Add(MainForm,15279742,70,126)
{
 Width=277
 Height=154
 link(onCreate,4895477:doString,[])
}
Add(InlineCode,11511720,119,70)
{
 VarPoints=#9:PhysWidth|10:PhysHeight|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Windows,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|0:|50:Procedure PhysWidth (var _Data:TData; Index:word);|51:Procedure PhysHeight (var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|0:|62:Procedure THiAsmClass.PhysWidth (var _Data:TData; Index:word);|5:Begin|60:  dtInteger(_Data, GetDeviceCaps(GetDC(0), DESKTOPHORZRES));|25:  ReleaseDC(0, GetDC(0));|4:end;|63:Procedure THiAsmClass.PhysHeight (var _Data:TData; Index:word);|5:Begin|60:  dtInteger(_Data, GetDeviceCaps(GetDC(0), DESKTOPVERTRES));|25:  ReleaseDC(0, GetDC(0));|4:end;|0:|4:end.|
}
Add(Memo,348412,175,140)
{
 Width=261
 Height=115
 Align=5
 Font=[Lucida Console,12,0,0,204]
 Antialiased=1
 ScrollBars=3
}
Add(FormatStr,4895477,119,140)
{
 DataCount=4
 Mask="    \r\n    IC - %1 Х %2\r\nScreen - %3 Х %4"
 link(onFString,348412:doAdd,[])
 link(Str1,11511720:PhysWidth,[])
 link(Str2,11511720:PhysHeight,[])
 link(Str3,283952:Width,[(139,110)(174,110)])
 link(Str4,283952:Height,[(146,117)(181,117)])
}
Add(Screen,283952,168,70)
{
}