Леонид писал(а): специально для Вас Автор сделал компонент SizeWindowНеправильно это: сначала изменить размер, а потом его вернуть... Правильнее - сразу не давать делать неправильные изменения. Нарезка (типа - просьба не ругаться за оставшиеся артефакты) из боевой схемы: Add(MainForm,50613,280,175) { Left=20 Top=105 Width=650 Height=90 Font=[Microsoft Sans Serif,8,0,0,204] Caption="Expression Calculator" ClientSize=0 Position=1 Point(doHeight) Point(HeightControls) Point(Height) Point(SizeHeader) Point(onClose) Point(onKeyDown) link(onCreate,12876271:doWork2,[]) link(HeightControls,14004310:reCalc,[]) } Add(ChildPanelEx,15858561,455,182) { @Hint=#36:Контейнер с калькуляторами=CalcPanel| Mode=1 link(onClose,6015896:doKill,[]) } BEGIN_SDK Add(EditMultiEx,950425,21,7) { WorkCount=#9:##hDelete|5:##Add|8:##Select|7:doRight|6:doLeft|5:doEXE|7:doColor|7:##clear| EventCount=#7:onClose|9:onReplace|7:onFocus|5:onEXE|13:onRightResize|12:onLeftResize| VarCount=#39:Line=Текстовая информация о всей строке|7:##Count|8:##Handle|13:##EventHandle|7:Results|5:Names| DataCount=#4:Args|0:| Width=598 Height=464 VOffset=14 HOffset=14 Point(##hDelete) Point(##Add) Point(##Select) Point(##clear) Point(##Count) Point(##Handle) Point(##EventHandle) link(##Add,15866796:doEvent1,[(60,34)(60,97)]) link(doRight,43759:doWork1,[(242,48)]) link(doLeft,877576:doWork2,[(53,55)(53,202)]) link(doColor,14654234:doColor,[(46,69)(46,209)]) link(Names,14654234:Text,[(76,236)(314,236)]) } Add(Edit,8673778,259,252) { @Hint=#10:EXPRESSION| Left=63 Width=207 Align=5 Font=[Courier New,9,0,0,204] SizeSp=0 Text=" <Expression>" ClearAfterEnter=1 Point(doColor) Point(onSetFocus) Point(doPosition) Point(doSetFocus) Point(doSelectAll) } Add(Panel,14656767,399,21) { Width=442 Height=20 Align=2 BorderWidth=0 BevelInner=0 BevelWidth=0 Point(doColor) Point(onMouseDown) Point(doVisible) } Add(Edit,14654234,308,182) { @Hint=#4:NAME| Width=63 Align=1 Font=[Courier New,9,0,0,204] ModeSp=2 SizeSp=3 Text="<Name>" Alignment=2 Point(Width) Point(doWidth) Point(doColor) Point(Position) Point(onSetFocus) Point(onResize) link(onResize,950425:onLeftResize,[(557,209)(557,62)]) } Add(GlobalVar,8769952,259,168) { Name="$Left" } Add(DoData,13013100,259,196) { link(onEventData,14654234:doWidth,[]) link(Data,8769952:Var,[]) } Add(HubEx,877576,238,196) { link(onEvent,13013100:doData,[]) } Add(Hub,15866796,203,91) { link(onEvent1,43759:doWork2,[]) link(onEvent2,877576:doWork1,[(242,104)]) } Add(HubEx,43759,238,91) { link(onEvent,15330088:doData,[]) } Add(DoData,15330088,259,91) { link(onEventData,40515:doWidth,[]) link(Data,12866048:Var,[]) } Add(GlobalVar,12866048,259,49) { Name="$Right" } Add(BitBtn,2154143,455,21) { Left=422 Width=20 Align=3 TabOrder=-1 Frame=1 FrameColor=0 Caption="" link(onClick,950425:onClose,[]) } Add(Edit,40515,308,77) { @Hint=#6:RESULT| Left=290 Width=132 Align=3 Color=-16777201 Font=[Courier New,9,0,0,204] ModeSp=2 SizeSp=3 Text="<Result> " Alignment=1 ReadOnly=0 Point(onSetFocus) Point(doWidth) Point(onResize) Point(Width) Point(onMouseDown) link(onResize,950425:onRightResize,[(550,104)(550,55)]) } Add(BitBtn,11053820,511,35) { Left=270 Width=20 Align=3 TabOrder=-1 Frame=1 FrameColor=-16777201 Caption="" Point(Handle) link(onClick,950425:onFocus,[]) } END_SDK Add(Hub,13718991,399,189) { link(onEvent1,15858561:##Add,[]) link(onEvent2,11560420:doWork3,[(431,202)]) } Add(MultiElementEx,6015896,539,182) { @Hint=#14:Заказ KILLER-а| Name="Req" link(onKill,8082777:doEvent1,[]) link(Data,15858561:##EventHandle,[(545,173)(531,173)(531,250)(482,250)]) } BEGIN_SDK Add(EditMultiEx,1501251,28,14) { WorkCount=#6:doKill|0:| EventCount=#6:onKill|0:| DataCount=#4:Data| Width=174 Height=81 VOffset=21 HOffset=21 link(doKill,306648:doValue,[]) } Add(Timer,6032471,98,35) { Interval=0 Enable=1 AutoStop=1 link(onTimer,11853407:doData,[]) } Add(DoData,11853407,147,35) { link(onEventData,1501251:onKill,[]) link(Data,306648:Value,[(153,26)(139,26)(139,75)(55,75)]) } Add(Memory,306648,49,35) { Point(Data) link(onData,6032471:doTimer,[]) link(Data,1501251:Data,[]) } END_SDK Add(HubEx,11560420,427,154) { Angle=2 link(onEvent,50613:doHeight,[(270,160)(270,209)]) } Add(MathParse,14004310,273,119) { DataCount=3 MathStr="%3*20+20+%2-%1" ResultType=0 Point(reCalc) link(X1,50613:Height,[(279,110)(265,110)(265,222)(286,222)]) link(X2,50613:SizeHeader,[(286,103)(258,103)(258,229)(293,229)]) link(X3,15858561:##Count,[(293,110)(321,110)(321,250)(468,250)]) } Add(Label,14896782,336,119) { Top=41 Width=442 Align=4 Font=[Arial,7,0,-16777201,204] Transparent=0 Caption="New Expression" AutoSize=1 Alignment=2 ColorHover=-16777214 link(onClick,12876271:doWork1,[(382,125)]) } Add(GlobalVar,9891951,336,266) { Name="$Left" Data=Integer(70) } Add(GlobalVar,15866932,336,287) { Name="$Right" Data=Integer(170) } Add(Menu,1219331,280,287) { Menu=#4:File|1:(|13: Open CtrL+O|13: Save Ctrl+S|8: Save As|12: Exit Alt+X|1:)|4:Edit|1:(|23: New Expression Ctrl+N|1:)|6:Option|4:Help| } Add(GlobalVar,8991240,336,308) { Name="$CalcOne" Data=Integer(0) } Add(Hub,8082777,588,182) { link(onEvent1,15858561:##hDelete,[(613,188)(613,167)(445,167)(445,188)]) link(onEvent2,11560420:doWork2,[(620,195)(620,160)]) } Add(HubEx,12876271,378,189) { link(onEvent,13718991:doEvent1,[]) }
------------ Дoбавленo в 19.23:
Хотя, еще более правильно, было бы ответить, что "как РАЗШИРИТЬ форму" -- мы не знаем
|