Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2015-01-21 12:55:39 ЛС | профиль | цитата
Вообще-то, SetWindowPos меняет сразу все координаты "одним махом".
Скажем, как-то так:
Add(PosWindow,4537334,406,140)
{
link(Handle,2712927:Var2,[])
}
Add(SizeWindow,8984922,455,140)
{
link(Handle,2712927:Var3,[(461,124)])
}
Add(Memory,9799820,329,203)
{
link(onData,7796527:doSet,[])
}
Add(FrameSize,7796527,441,203)
{
Align=
Color=255
Font=255
ParentFont=255
Visible=255
Enabled=255
Cursor=255
TabOrder=255
Ctl3D=255
WinStyle=255
Name=255
Hint=255
HintManager=255
Layout=255
WidthScale=255
HeightScale=255
BoxSize=7
Position=1
Point(onResize)
Point(Left)
Point(Top)
Point(Width)
Point(Height)
Point(doAlign)
link(onResize,7669386:doResize,[(480,216)(480,230)(424,230)(424,279)])
link(Left,4537334:CurrentLeft,[(447,194)(412,194)])
link(Top,4537334:CurrentTop,[(454,187)(419,187)])
link(Width,8984922:CurrentWidth,[])
link(Height,8984922:CurrentHeight,[])
}
Add(InlineCode,7669386,434,273)
{
WorkPoints=#8:doResize|
DataPoints=#6:Handle|4:Left|3:Top|5:Width|6:Height|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|30:uses Windows, kol,Share,Debug;|0:|5:type |0:|27:THiAsmClass = class(TDebug)|9: private|0:|8: public|21: Handle:THI_Event;|19: Left:THI_Event;|18: Top:THI_Event;|20: Width:THI_Event;|21: Height:THI_Event;|46: procedure doResize(var _D:TData; _I:word);|4:end;|0:|14:implementation|0:|31:procedure THiAsmClass.doResize;|33:var hnd:THandle; X,Y,W,H:integer;|5:begin|33: hnd := ReadInteger(_D, Handle);|29: X := ReadInteger(_D, Left);|28: Y := ReadInteger(_D, Top);|30: W := ReadInteger(_D, Width);|31: H := ReadInteger(_D, Height);|43: SetWindowPos(hnd,0,X,Y,W,H,SWP_NOZORDER);|4:end;|0:|4:end.|
link(Handle,10080483:Var3,[(440,249)])
link(Left,7796527:CurrentLeft,[])
link(Top,7796527:CurrentTop,[])
link(Width,7796527:CurrentWidth,[])
link(Height,7796527:CurrentHeight,[])
}
Add(GetDataEx,10080483,371,244)
{
Angle=3
link(Data,9799820:Value,[(335,249)])
}
Add(GetDataEx,2712927,406,119)
{
Angle=3
link(Data,10080483:Var1,[(377,124)])
}
Мне показалось, что мигают "квадратики", а не окно...

------------ Дoбавленo в 12.33:
Кстати, что за хрень ты понаписал в FrameSize.INI
Так дела не делаются...


------------ Дoбавленo в 12.55:
Хмм... Оказывается народ все это уже написал
С MoveWindow работает также (а параметров меньше)... Как мне показалось
карма: 9

0