Add(MainForm,12206003,175,154)
{
 Width=364
 Height=160
}
Add(Edit,6540607,434,196)
{
 Left=10
 Top=10
 Width=215
 link(Str,2616888:ClassName,[(440,184)(398,184)(398,240)(356,240)])
}
Add(WinInfo,2616888,350,196)
{
 link(onWinInfo,6540607:doText,[])
 link(Handle,11264525:Handle,[])
}
Add(MouseEvent,11264525,336,147)
{
 Point(Handle)
}
Add(Timer,5432451,301,196)
{
 Interval=50
 link(onTimer,2616888:doWinInfo,[])
}
Add(Label,9761367,182,245)
{
 Left=5
 Top=40
}
Add(CheckBox,12734219,70,42)
{
 Left=75
 Top=40
}
Add(RadioButton,14476405,70,70)
{
 Left=70
 Top=70
}
Add(Button,10632441,175,42)
{
 Left=175
 Top=40
}
Add(ListBox,13560533,168,77)
{
 Left=165
 Top=65
 Width=65
 Height=65
}
Add(DatePicker,14098546,266,70)
{
 Left=245
 Top=70
 Width=95
 Height=21
}

function TControl.get_ClassName: String;
begin
  if not fCtlClsNameChg then
    Result := 'obj_' + fControlClassName
  else
    Result := fControlClassName;
end;