#pas
Program test;
uses  windows,kol;

var MainForm,ChildForm,Label1,Label2:PControl;

begin
  Applet    := NewApplet('Хи-Хи-Хи');
//главная форма
  MainForm  := NewForm (Applet, 'Ха-Ха-Ха').SetPosition(120,120).SetSize(400,200);
  Label1    := NewLabel(MainForm, 'TEST-1').SetPosition( 20, 20);
  Label1.Transparent := true;
//дочерняя форма
  ChildForm := NewForm (MainForm, 'Хм....').SetPosition(220,220).SetSize(400,200);
  Label2    := NewLabel(ChildForm,'TEST-2').SetPosition( 20, 20);
  Label2.Transparent := true;
//поехали...
  Run(Applet);
end.

Add(MainForm,8982372,245,91)
{
 Width=525
 Height=436
 link(onCreate,7988387:doWork1,[])
}
Add(ChildScrollBox,7988387,329,105)
{
}
BEGIN_SDK
  Add(EditMulti,13661698,21,21)
  {
   WorkCount=1
   Width=580
   Height=326
   link(doWork1,9912251:doWork1,[(134,27)])
  }
  Add(ScrollBox,7781642,35,105)
  {
   Left=15
   Top=55
   Width=400
   Height=264
  }
  Add(MTStrTbl,525283,511,238)
  {
   Top=20
   Width=370
   Height=220
   Name="tab"
   Columns=#8:Col1=150|8:Col2=150|8:Col3=150|8:Col4=150|
   Point(doWidth)
  }
  Add(MST_UseEditCtrl,12362975,91,105)
  {
   MSTControl="tab"
   link(onCellSize,9912251:doWork2,[])
  }
  Add(MST_ColAction,16344917,203,105)
  {
   Action=10
   MSTControl="tab"
   link(onResult,919324:doEvent1,[])
  }
  Add(MT_MultiData,15686416,273,119)
  {
   From=2
   Count=1
   link(onData1,6273379:doEvent1,[])
  }
  Add(For,6526043,154,105)
  {
   IncludeEnd=1
   link(onEvent,16344917:doColAction,[])
   link(End,16344917:CountCol,[(167,93)(193,93)(193,150)(209,150)])
  }
  Add(IndexToChanel,928491,350,119)
  {
   Point(Index)
   link(onEvent1,11730687:doValue,[(392,125)(392,83)])
   link(onEvent2,8124947:doOperation,[])
   link(Index,6526043:Position,[(356,110)(247,110)(247,159)(160,159)])
  }
  Add(HubEx,9912251,130,105)
  {
   link(onEvent,6526043:doFor,[])
  }
  Add(Button,6801586,511,126)
  {
   Width=300
   Point(doWidth)
   Point(doLeft)
  }
  Add(Math,8124947,406,126)
  {
   ResultType=0
   link(onResult,12395170:doOperation,[])
   link(Op2,11730687:Value,[])
  }
  Add(Memory,11730687,413,77)
  {
  }
  Add(Math,12395170,455,126)
  {
   Op2=2
   link(onResult,6801586:doWidth,[])
  }
  Add(Hub,6273379,315,119)
  {
   OutCount=3
   link(onEvent1,928491:doEvent,[])
   link(onEvent2,11903988:doCalc,[(346,132)(346,174)])
  }
  Add(MathParse,11903988,455,168)
  {
   DataCount=1
   MathStr="%1+%0+2"
   Point(doClear)
  }
  Add(If_else,2349871,364,245)
  {
   link(onTrue,5139317:doEvent1,[])
   link(Op1,16344917:EndIdxCol,[(370,191)(216,191)])
  }
  Add(Hub,919324,245,119)
  {
   link(onEvent1,15686416:doSeparateMT,[])
   link(onEvent2,3717122:doSeparateMT,[(266,132)(266,251)])
  }
  Add(MT_MultiData,3717122,301,245)
  {
   Count=1
   link(onData1,2349871:doCompare,[])
  }
  Add(Hub,5139317,406,245)
  {
   link(onEvent1,6494448:doData,[])
   link(onEvent2,11903988:doClear,[(438,258)(438,181)])
  }
  Add(DoData,6494448,455,245)
  {
   link(onEventData,525283:doWidth,[])
   link(Data,11903988:Result,[])
  }
END_SDK