integer i_int
Environment env

i_int = GetEnvironment(env)

IF i_int = 1 THEN
CHOOSE CASE env.ScreenWidth
CASE 640
dw_1.Height = 950
cbx_1.Y = 1050
/*"Ну и так далее..."*/

END CHOOSE

END IF

Шутить изволите....

В open ивенте каждого окна этот код должен стоять, у меня вся аппликация так работает и хорошо работает, просто нужно с каждым окном повозитса, потом всё...

Riska voronkinteger i_int
Environment env

i_int = GetEnvironment(env)

IF i_int = 1 THEN
CHOOSE CASE env.ScreenWidth
CASE 640
dw_1.Height = 950
cbx_1.Y = 1050
/*"Ну и так далее..."*/

END CHOOSE

END IF

Это проходит, если одно-два окна в проекте. А если их 20, то поменять ручками не получится. Вот функция, которая это делает. Для моего проекта ее достаточно. Остальным нужно будет добавить переменные (RadioButton и т.д.). Есть еще проблемы с UserObject. Пришлось менять размеры внутри самих объектов + если разные объекты, то тоже будут проблемы.
Если у кого-то есть желание, то можно доделать эту функцию до нормального вида. ldec_coeff = 1.19 - получено экспериментальным путем (если брать 1.28 (1024/800), то все получается мелкое). Все что надо - заслать f_resize(This).

global type f_resize from function_object
end type

forward prototypes
global function integer f_resize (window aw_name)
end prototypes

global function integer f_resize (window aw_name);integer i, l_control
int l_xx, l_yy
dec ldec_coeff = 1.19
windowobject wo
CommandButton cb
DataWindow dw
CheckBox cbx
GroupBox gb
StaticText st
DropDownListBox ddlb
PictureHyperLink phl
UserObject uo
SingleLineEdit sle
EditMask em

l_control = UpperBound(aw_name.Control)
l_xx = GetSystemMetrics(0)
l_yy = GetSystemMetrics(1)

IF l_xx = 800 AND l_yy = 600 THEN
FOR i = 1 TO l_control
wo = aw_name.Control
choose case wo.TypeOf()
case SingleLineEdit!
sle = aw_name.Control
sle.x = sle.x/ldec_coeff
sle.y = sle.y/ldec_coeff
sle.Width = sle.Width/ldec_coeff
sle.Height = sle.Height/ldec_coeff
case UserObject!
uo = aw_name.Control
uo.x = uo.x/ldec_coeff
uo.y = uo.y/ldec_coeff
uo.Width = uo.Width/ldec_coeff
uo.Height = uo.Height/ldec_coeff
case PictureHyperLink!
phl = aw_name.Control
phl.x = phl.x/ldec_coeff
phl.y = phl.y/ldec_coeff
phl.Width = phl.Width/ldec_coeff
phl.Height = phl.Height/ldec_coeff
case CheckBox!
cbx = aw_name.Control
cbx.x = cbx.x/ldec_coeff
cbx.y = cbx.y/ldec_coeff
case CommandButton!
cb = aw_name.Control
cb.x = cb.x/ldec_coeff
cb.y = cb.y/ldec_coeff
cb.Width = cb.Width/ldec_coeff
cb.Height = cb.Height/ldec_coeff
cb.TextSize = cb.TextSize/ldec_coeff
case DataWindow!
dw = aw_name.Control
dw.x = dw.x/ldec_coeff
dw.y = dw.y/ldec_coeff
dw.Width = dw.Width/ldec_coeff
dw.Height = dw.Height/ldec_coeff
dw.Object.DataWindow.Zoom = 84
case GroupBox!
gb = aw_name.Control
gb.x = gb.x/ldec_coeff
gb.y = gb.y/ldec_coeff
gb.Width = gb.Width/ldec_coeff
gb.Height = gb.Height/ldec_coeff
case StaticText!
st = aw_name.Control
st.x = st.x/ldec_coeff
st.y = st.y/ldec_coeff
st.Width = st.Width/ldec_coeff
st.Height = st.Height/ldec_coeff
st.TextSize = st.TextSize/ldec_coeff
case DropDownListBox!
ddlb = aw_name.Control
ddlb.x = ddlb.x/ldec_coeff
ddlb.y = ddlb.y/ldec_coeff
ddlb.Width = ddlb.Width/ldec_coeff
ddlb.Height = ddlb.Height/ldec_coeff
ddlb.TextSize = ddlb.TextSize/ldec_coeff
case EditMask!
em = aw_name.Control
em.x = em.x/ldec_coeff
em.y = em.y/ldec_coeff
em.Width = em.Width/ldec_coeff
em.Height = em.Height/ldec_coeff
em.TextSize = em.TextSize/ldec_coeff
end choose
NEXT
RETURN 1
END IF
RETURN 0
end function