#pas
procedure THIImg_Text.Handle;
var   dc:HDC;
      Wnd:HWND;
      x,y:integer;
      s:string;
      dt:TData;
begin
   dt := _Data;
   Wnd := ReadInteger(_Data,_data_Bitmap,0);
   dc := GetDC(wnd);
   s := ReadString(_Data,_data_Text,_prop_Text);
   x := ReadInteger(_Data,_data_X,_prop_X);
   y := ReadInteger(_Data,_data_Y,_prop_Y);
   SetBkMode(DC,TRANSPARENT);
   SetTextColor(DC,Color2RGB(GFont.Color));
   SelectObject(DC, hMyFont);
   TextOut(DC,x,y,PChar(s),length(s));
   ReleaseDC(Wnd,DC);
   _hi_CreateEvent(_Data,@_event_onDraw,dt);
end;