Add(MainForm,2953706,105,91)
{
 Width=444
 Height=225
 Caption="Test"
 link(onCreate,12884905:doFor,[])
}
Add(MTStrTbl,16035729,350,105)
{
 Width=428
 Height=186
 Align=5
 Font=[MS Sans Serif,12,0,0,1]
 Name="TestTable"
 Layout="ver"
 Columns=#5:Col_1|9:Col_2=200|
 FlatScroll=1
 HeaderDragDrop=0
 Grid=0
 Point(doHeight)
}
Add(MST_RowAction,1274236,294,105)
{
 MSTControl="TestTable"
}
Add(For,12884905,168,105)
{
 Start=1
 End=100
 link(onEvent,4328192:doConvert,[])
}
Add(MT_AddData,7206176,252,105)
{
 InputMT=3
 link(onAdd,1274236:doRowAction,[])
 link(Data1,12884905:Position,[(258,79)(151,79)(151,157)(174,157)])
}
Add(Convertor,4328192,210,105)
{
 Mode=8
 Digits=16
 link(onResult,7206176:doAdd,[])
}

procedure THIWin._onResize;
var
  i: integer;
begin
  inherited;
  Control.Invalidate;
  for i := 0 to Control.ChildCount - 1 do
    Control.Children[i].Invalidate;
  Sendmessage(Control.Handle, US_RESIZE, 0, 0);
end;

procedure THIWin._onResize;
//var
//  i: integer;
begin
  inherited;
  if (Control.Width = GetSystemMetrics(SM_CXSCREEN)) or (Control.Height = GetSystemMetrics(SM_CYSCREEN)) then
    Control.Invalidate;
//  for i := 0 to Control.ChildCount - 1 do
//    Control.Children[i].Invalidate;
  Sendmessage(Control.Handle, US_RESIZE, 0, 0);
end;

Add(MainForm,10888429,196,168)
{
 Width=594
 Height=495
 Caption="Test"
 Position=1
 link(onCreate,12884905:doFor,[])
}
Add(MTStrTbl,16035729,441,182)
{
 Width=558
 Height=221
 Font=[MS Sans Serif,12,0,0,1]
 Name="TestTable"
 Layout="ver"
 HeightScale=100
 Columns=#5:Col_1|9:Col_2=200|
 FlatScroll=1
 HeaderDragDrop=0
 Grid=0
 Point(doHeight)
}
Add(MST_RowAction,1274236,385,182)
{
 MSTControl="TestTable"
}
Add(For,12884905,259,182)
{
 Start=1
 End=100
 link(onEvent,4328192:doConvert,[])
}
Add(MT_AddData,7206176,343,182)
{
 InputMT=3
 link(onAdd,1274236:doRowAction,[])
 link(Data1,12884905:Position,[(349,156)(242,156)(242,234)(265,234)])
}
Add(Convertor,4328192,301,182)
{
 Mode=8
 Digits=16
 link(onResult,7206176:doAdd,[])
}
Add(VBoxLayout,15400704,441,245)
{
 Name="ver"
}
Add(ChildPanelEx,11733249,385,245)
{
 link(onClick,15400704:doResize,[])
}
BEGIN_SDK
  Add(EditMultiEx,7688882,21,21)
  {
   EventCount=#7:onClick|
   Width=335
  }
  Add(Panel,13529188,294,70)
  {
   Left=15
   Top=230
   Width=485
   Height=215
   Layout="parent.ver"
   Point(doVisible)
   Point(doHeight)
  }
  Add(Button,3123401,42,168)
  {
   Left=215
   Top=15
   Height=25
   Font=[MS Sans Serif,12,0,0,1]
   Caption="TEST"
   link(onClick,4706100:doEvent1,[])
  }
  Add(Hub,4706100,105,168)
  {
   link(onEvent1,902366:doData,[(154,174)(154,83)])
   link(onEvent2,7688882:onClick,[(345,181)(345,27)])
  }
  Add(DoData,902366,203,77)
  {
   Data=Integer(0)
   link(onEventData,9217745:doEvent1,[])
   AddHint(-1,-21,21,13,Data)
  }
  Add(Hub,9217745,252,77)
  {
   link(onEvent1,13529188:doVisible,[])
   link(onEvent2,13529188:doHeight,[])
  }
END_SDK

(*
    WM_SIZING:
    begin
      if (Msg.wParam = WMSZ_TOP) or (Msg.wParam = WMSZ_TOPLEFT) or (Msg.wParam = WMSZ_TOPRIGHT) or
         (Msg.wParam = WMSZ_BOTTOM) or (Msg.wParam = WMSZ_BOTTOMLEFT) or (Msg.wParam = WMSZ_BOTTOMRIGHT) then 
        InvalidateRect(Control.Handle, nil, false);
    end;
*)

procedure THIWin._onResize;
//var
//  i: integer;
begin
  inherited;
  Control.Invalidate;
//  for i := 0 to Control.ChildCount - 1 do
//    Control.Children[i].Invalidate;
  Sendmessage(Control.Handle, US_RESIZE, 0, 0);
end;