Add(MainForm,2953706,252,133)
{
}
Add(InlineCode,6573220,175,70)
{
 VarPoints=#9:getLayout|
 DataPoints=#7:HWindow|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|21:   HWindow:THI_Event;|52:   procedure getLayout(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|32:procedure THiAsmClass.getLayout;|3:var|11:WPID:DWORD;|8:wh:HWND;|5:begin|37:  wh := Readinteger(_Data,HWindow,0);|43:  WPID := GetWindowThreadProcessId(wh,nil);|57:  dtInteger(_data, loWord(GetKeyboardLayout(WPID)));     |4:end;|0:|4:end.|
 link(HWindow,12408459:GetActiveWindow,[])
}
Add(Timer,4093085,105,133)
{
 Interval=100
 link(onTimer,11417225:doData,[])
}
Add(DoData,11417225,175,133)
{
 link(onEventData,2953706:doCaption,[])
 link(Data,6573220:getLayout,[])
}
Add(WinEnum,12408459,168,14)
{
 Point(GetActiveWindow)
}