unit hiGl_Text2dEX_test;

interface

uses Windows,Kol,Share,Debug;

const
   AnsiCharset = ANSI_CHARSET;
   DefaultCharset = DEFAULT_CHARSET;
   SymbolCharset = SYMBOL_CHARSET;
   RussianCharset = RUSSIAN_CHARSET;
   DefaultQuality = DEFAULT_QUALITY;
   AntialiasedQuality = ANTIALIASED_QUALITY;
   Normal = 0;
   Bold = FW_BOLD;

type
   THIGl_Text2dEX_test = class(TDebug)

   private
   TextH : Integer;
   Ptext : string;       

   public
   _prop_Text:string;
   _prop_TextHeight:Integer;
   _prop_Font:PChar;
   _prop_Charset:integer;
   _prop_Quality:integer;
   _prop_FontWeights:integer;
   _prop_ListStart:integer;
   _prop_X:Integer;
   _prop_Y:Integer;
   _prop_Z:Integer;

   _event_onDraw:THI_Event;
   _event_onInit:THI_Event;
   _event_onWidthText:THI_Event;
   _event_onTextHeight:THI_Event;
   _event_onSetText:THI_Event;
   _data_Text:THI_Event;
   _data_TextHeight:THI_Event;

   _data_X:THI_Event;
   _data_Y:THI_Event;
   _data_Z:THI_Event;
   _data_GLHandle:THI_Event;

procedure _work_doInit(var _Data:TData; Index:word);
procedure _work_doSetText(var _Data:TData; Index:word);
procedure _work_doDraw(var _Data:TData; Index:word);
procedure _work_doDelete(var _Data:TData; Index:word);
end;


implementation



procedure THIGl_Text2dEX_test._work_doInit;

begin
   TextH := ReadInteger(_data,_data_TextHeight,_prop_TextHeight);
   //--------------------------------
   _hi_onEvent(_event_onInit,TextH);
end;

procedure THIGl_Text2dEX_test._work_doSetText;

begin
   Ptext := ReadString(_data,_data_Text,_prop_Text);
   //--------------------------------
   _hi_onEvent(_event_onSetText);
end;

procedure THIGl_Text2dEX_test._work_doDraw;

var
   Xset:Integer;
   Yset:Integer;
   
begin
   Xset:=ToIntegerEvent(_data_X) or _prop_X;
   Yset:=ToIntegerEvent(_data_Y) or _prop_Y;
   //-------------------------------------
   _hi_onEvent(_event_onDraw,TextH);
end;

procedure THIGl_Text2dEX_test._work_doDelete;
begin
   //----------------------------------------
end;

end.