Scaling-down a dialog when moved to another screen

[ssimop]

Dear Gintaras, let me return again to this issue, with a specific case-study.

Function Dialog33_Long

Code:

Copy      Help

\Dialog_Editor

str dd=
;BEGIN DIALOG
;0 "" 0x90C80AC8 0x0 0 0 370 371 "Dialog"
;3 Static 0x54000000 0x0 257 391 48 12 "Bottom"
;4 Static 0x54000000 0x0 14 8 48 12 "Top"
;5 Edit 0x54030080 0x200 120 188 96 12 ""
;6 Static 0x54000000 0x0 132 298 114 14 "bottom in Lin0"
;7 Static 0x54000000 0x0 132 320 114 14 "bottom in Lin1"
;8 Static 0x54000000 0x0 132 340 114 14 "bottom in Lin2"
;1 Button 0x54030001 0x4 116 116 48 14 "OK"
;2 Button 0x54030000 0x4 168 116 48 14 "Cancel"
;END DIALOG
;DIALOG EDITOR: "" 0x2040202 "*" "" "" ""

str controls = "5"
str e5
if(!ShowDialog(dd &sub.DlgProc &controls)) ret


#sub DlgProc
function# hDlg message wParam lParam

sel message
,case WM_INITDIALOG
,EnsureWindowInScreen hDlg 1|32
,case WM_DESTROY
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1

This dialog is displayed properly in a PC's screen, but it is cut at the bottom at another screen. Is it possible to follow any simple method to display it in any screen by zooming by some percentage? Many thanks.