//HUD erzeugen

HUD := TGUI.Create(DC,x,y);

 

 //Ein Fenster erstellen 

  HUD.CreateWindow(0,trunc(0.9*y), trunc(0.7*x) ,y,'hud');

 

 //Ansteuern des Fensters 'hud' und Einstellen diverser Eigenschaften

  HUD.Window('hud').BorderVisible := false;

  HUD.Window('hud').BorderSize := 0;

  HUD.Window('hud').BackgroundVisible := false;

  HUD.Window('hud').AddImage(0,0, trunc(0.7*x) ,trunc(0.1*y), ExtractFilePath(ParamStr(0))+'hud.tga','hud_image');

 

 //Ansteuern des Bildes 'hud_image' im Fenster 'hud'

  HUD.Window('hud').Image('hud_image').Active := true;

  HUD.Window('hud').Image('hud_image').onClick := DoSomethingAwesome;

  ...

 

TGUITabControl = class(TGUIStandartClass)

  private

   sActiveTab    : String;

   pActiveTab    : PGUIWindow;

 

   procedure SetActiveTab(actTab: String);

   procedure PlotHeader;

  public

   Tabs            : array of TGUIWindow;

   Captions        : array of String;

   CaptionPos      : array of TGUIRect;

   CaptionPics     : array of GLUInt;

   headerColor     : TGUIColor;

   backgroundColor : TGUIColor;

 

   inactiveCaptionHeight,

   activeCaptionHeight  : integer;

 

   property ActiveTab: String write SetActiveTab;

 

   procedure Init(pX,pY,pH,pW: integer; pName: String);

   procedure AddTab(TabName, TabCaption: String);

   function Tab(searchTab: String): PGUIWindow;

 

   procedure MouseDown(mX,mY: integer);

   procedure MouseUp(mX,mY: integer);

   procedure MouseMove(mX,mY: integer);

 

   procedure Render(pAlpha: extended);  override;

end;