src/game/opengl/r_gui.pas

   1 (* Copyright (C)  Doom 2D: Forever Developers
   2  *
   3  * This program is free software: you can redistribute it and/or modify
   4  * it under the terms of the GNU General Public License as published by
   5  * the Free Software Foundation, version 3 of the License ONLY.
   6  *
   7  * This program is distributed in the hope that it will be useful,
   8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
   9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  10  * GNU General Public License for more details.
  11  *
  12  * You should have received a copy of the GNU General Public License
  13  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  14  *)
  15 {$INCLUDE ../../shared/a_modes.inc}
  16 unit r_gui;
  17
  18 interface
  19
  20   uses g_gui;
  21
  22   procedure r_GUI_Load;
  23   procedure r_GUI_Free;
  24
  25   procedure r_GUI_GetSize (ctrl: TGUIControl; out w, h: Integer);
  26   procedure r_GUI_GetLogoSize (out w, h: Integer);
  27   procedure r_GUI_GetMaxFontSize (BigFont: Boolean; out w, h: Integer);
  28   procedure r_GUI_GetStringSize (BigFont: Boolean; str: String; out w, h: Integer);
  29
  30   procedure r_GUI_Draw_Window (win: TGUIWindow);
  31
  32 implementation
  33
  34   uses
  35     Classes, Math,
  36     MAPDEF, utils,
  37     g_basic, g_base, e_input, g_options,
  38     r_graphics, r_textures, r_playermodel, r_game,
  39     g_game, g_menu
  40   ;
  41
  42   const
  43     BOX1 = 'BOX1';
  44     BOX2 = 'BOX2';
  45     BOX3 = 'BOX3';
  46     BOX4 = 'BOX4';
  47     BOX5 = 'BOX5';
  48     BOX6 = 'BOX6';
  49     BOX7 = 'BOX7';
  50     BOX8 = 'BOX8';
  51     BOX9 = 'BOX9';
  52
  53     MAINMENU_MARKER1 = 'MAINMENU_MARKER1';
  54     MAINMENU_MARKER2 = 'MAINMENU_MARKER2';
  55     SCROLL_LEFT = 'SCROLL_LEFT';
  56     SCROLL_RIGHT = 'SCROLL_RIGHT';
  57     SCROLL_MIDDLE = 'SCROLL_MIDDLE';
  58     SCROLL_MARKER = 'SCROLL_MARKER';
  59     EDIT_LEFT = 'EDIT_LEFT';
  60     EDIT_RIGHT = 'EDIT_RIGHT';
  61     EDIT_MIDDLE = 'EDIT_MIDDLE';
  62     EDIT_CURSORCOLOR: TRGB = (R:200; G:0; B:0);
  63     EDIT_CURSORLEN = 10;
  64     BSCROLL_UPA = 'BSCROLL_UP_A';
  65     BSCROLL_UPU = 'BSCROLL_UP_U';
  66     BSCROLL_DOWNA = 'BSCROLL_DOWN_A';
  67     BSCROLL_DOWNU = 'BSCROLL_DOWN_U';
  68     BSCROLL_MIDDLE = 'BSCROLL_MIDDLE';
  69
  70   type
  71     TFontType = (Texture, Character);
  72
  73     TFont = class{$IFDEF USE_MEMPOOL}(TPoolObject){$ENDIF}
  74     private
  75       FID: DWORD;
  76       FScale: Single;
  77       FFontType: TFontType;
  78     public
  79       constructor Create(FontID: DWORD; FontType: TFontType);
  80       destructor Destroy; override;
  81       procedure Draw(X, Y: Integer; Text: string; R, G, B: Byte);
  82       procedure GetTextSize(Text: string; var w, h: Word);
  83       property Scale: Single read FScale write FScale;
  84       property ID: DWORD read FID;
  85     end;
  86
  87   var
  88     Box: Array [0..8] of DWORD;
  89     MarkerID: array [Boolean] of DWORD;
  90     ScrollLeft, ScrollRight, ScrollMiddle, ScrollMarker: DWORD;
  91     EditLeft, EditRight, EditMiddle: DWORD;
  92
  93     Font: array [boolean] of TFont; (* Small[FALSE] / Big[TRUE] *)
  94     LogoTex: DWORD;
  95
  96   constructor TFont.Create (FontID: DWORD; FontType: TFontType);
  97   begin
  98     FID := FontID;
  99     FScale := 1;
 100     FFontType := FontType;
 101   end;
 102
 103   destructor TFont.Destroy;
 104   begin
 105     inherited;
 106   end;
 107
 108   procedure TFont.Draw (X, Y: Integer; Text: string; R, G, B: Byte);
 109   begin
 110     if FFontType = TFontType.Character then
 111       e_CharFont_PrintEx(ID, X, Y, Text, _RGB(R, G, B), FScale)
 112     else
 113       e_TextureFontPrintEx(X, Y, Text, ID, R, G, B, FScale)
 114   end;
 115
 116   procedure TFont.GetTextSize (Text: string; var w, h: Word);
 117     var cw, ch: Byte;
 118   begin
 119     if FFontType = TFontType.Character then
 120       e_CharFont_GetSize(ID, Text, w, h)
 121     else
 122     begin
 123       e_TextureFontGetSize(ID, cw, ch);
 124       w := cw * Length(Text);
 125       h := ch;
 126     end;
 127     w := Round(w * FScale);
 128     h := Round(h * FScale);
 129   end;
 130
 131   procedure r_GUI_GetMaxFontSize (BigFont: Boolean; out w, h: Integer);
 132     var f: TFont;
 133   begin
 134     f := Font[BigFont];
 135     w := e_CharFont_GetMaxWidth(f.ID);
 136     h := e_CharFont_GetMaxHeight(f.ID);
 137   end;
 138
 139   procedure r_GUI_GetStringSize (BigFont: Boolean; str: String; out w, h: Integer);
 140     var ww, hh: WORD;
 141   begin
 142     e_CharFont_GetSize(Font[BigFont].ID, str, ww, hh);
 143     w := ww;
 144     h := hh;
 145   end;
 146
 147   procedure r_GUI_GetLogoSize (out w, h: Integer);
 148     var ww, hh: WORD;
 149   begin
 150     ww := 0;
 151     hh := 0;
 152     if LogoTex <> 0 then
 153       e_GetTextureSize(LogoTex, @ww, @hh);
 154     w := ww;
 155     h := hh;
 156   end;
 157
 158   procedure r_GUI_Load;
 159   begin
 160     g_Texture_CreateWADEx('MAINMENU_LOGO', GameWAD + ':TEXTURES\MAINLOGO');
 161     g_Texture_CreateWADEx('MAINMENU_MARKER1', GameWAD + ':TEXTURES\MARKER1');
 162     g_Texture_CreateWADEx('MAINMENU_MARKER2', GameWAD + ':TEXTURES\MARKER2');
 163     g_Texture_CreateWADEx('SCROLL_LEFT', GameWAD + ':TEXTURES\SLEFT');
 164     g_Texture_CreateWADEx('SCROLL_RIGHT', GameWAD + ':TEXTURES\SRIGHT');
 165     g_Texture_CreateWADEx('SCROLL_MIDDLE', GameWAD + ':TEXTURES\SMIDDLE');
 166     g_Texture_CreateWADEx('SCROLL_MARKER', GameWAD + ':TEXTURES\SMARKER');
 167     g_Texture_CreateWADEx('EDIT_LEFT', GameWAD + ':TEXTURES\ELEFT');
 168     g_Texture_CreateWADEx('EDIT_RIGHT', GameWAD + ':TEXTURES\ERIGHT');
 169     g_Texture_CreateWADEx('EDIT_MIDDLE', GameWAD + ':TEXTURES\EMIDDLE');
 170     g_Texture_CreateWADEx('BOX1', GameWAD +  ':TEXTURES\BOX1');
 171     g_Texture_CreateWADEx('BOX2', GameWAD + ':TEXTURES\BOX2');
 172     g_Texture_CreateWADEx('BOX3', GameWAD + ':TEXTURES\BOX3');
 173     g_Texture_CreateWADEx('BOX4', GameWAD + ':TEXTURES\BOX4');
 174     g_Texture_CreateWADEx('BOX5', GameWAD + ':TEXTURES\BOX5');
 175     g_Texture_CreateWADEx('BOX6', GameWAD + ':TEXTURES\BOX6');
 176     g_Texture_CreateWADEx('BOX7', GameWAD + ':TEXTURES\BOX7');
 177     g_Texture_CreateWADEx('BOX8', GameWAD + ':TEXTURES\BOX8');
 178     g_Texture_CreateWADEx('BOX9', GameWAD + ':TEXTURES\BOX9');
 179     g_Texture_CreateWADEx('BSCROLL_UP_A', GameWAD + ':TEXTURES\SCROLLUPA');
 180     g_Texture_CreateWADEx('BSCROLL_UP_U', GameWAD + ':TEXTURES\SCROLLUPU');
 181     g_Texture_CreateWADEx('BSCROLL_DOWN_A', GameWAD + ':TEXTURES\SCROLLDOWNA');
 182     g_Texture_CreateWADEx('BSCROLL_DOWN_U', GameWAD + ':TEXTURES\SCROLLDOWNU');
 183     g_Texture_CreateWADEx('BSCROLL_MIDDLE', GameWAD + ':TEXTURES\SCROLLMIDDLE');
 184     g_Texture_CreateWADEx('NOPIC', GameWAD + ':TEXTURES\NOPIC');
 185
 186     g_Texture_Get(MAINMENU_MARKER1, MarkerID[FALSE]);
 187     g_Texture_Get(MAINMENU_MARKER2, MarkerID[TRUE]);
 188
 189     g_Texture_Get(BOX1, Box[0]);
 190     g_Texture_Get(BOX2, Box[1]);
 191     g_Texture_Get(BOX3, Box[2]);
 192     g_Texture_Get(BOX4, Box[3]);
 193     g_Texture_Get(BOX5, Box[4]);
 194     g_Texture_Get(BOX6, Box[5]);
 195     g_Texture_Get(BOX7, Box[6]);
 196     g_Texture_Get(BOX8, Box[7]);
 197     g_Texture_Get(BOX9, Box[8]);
 198
 199     g_Texture_Get(SCROLL_LEFT, ScrollLeft);
 200     g_Texture_Get(SCROLL_RIGHT, ScrollRight);
 201     g_Texture_Get(SCROLL_MIDDLE, ScrollMiddle);
 202     g_Texture_Get(SCROLL_MARKER, ScrollMarker);
 203
 204     g_Texture_Get(EDIT_LEFT, EditLeft);
 205     g_Texture_Get(EDIT_RIGHT, EditRight);
 206     g_Texture_Get(EDIT_MIDDLE, EditMiddle);
 207
 208     Font[FALSE] := TFont.Create(gMenuSmallFont, TFontType.Character);
 209     Font[TRUE] := TFont.Create(gMenuFont, TFontType.Character);
 210
 211     g_Texture_Get('MAINMENU_LOGO', LogoTex)
 212   end;
 213
 214   procedure r_GUI_Free;
 215   begin
 216     g_Texture_Delete('MAINMENU_LOGO');
 217     g_Texture_Delete('MAINMENU_MARKER1');
 218     g_Texture_Delete('MAINMENU_MARKER2');
 219     g_Texture_Delete('SCROLL_LEFT');
 220     g_Texture_Delete('SCROLL_RIGHT');
 221     g_Texture_Delete('SCROLL_MIDDLE');
 222     g_Texture_Delete('SCROLL_MARKER');
 223     g_Texture_Delete('EDIT_LEFT');
 224     g_Texture_Delete('EDIT_RIGHT');
 225     g_Texture_Delete('EDIT_MIDDLE');
 226     g_Texture_Delete('BOX1');
 227     g_Texture_Delete('BOX2');
 228     g_Texture_Delete('BOX3');
 229     g_Texture_Delete('BOX4');
 230     g_Texture_Delete('BOX5');
 231     g_Texture_Delete('BOX6');
 232     g_Texture_Delete('BOX7');
 233     g_Texture_Delete('BOX8');
 234     g_Texture_Delete('BOX9');
 235     g_Texture_Delete('BSCROLL_UP_A');
 236     g_Texture_Delete('BSCROLL_UP_U');
 237     g_Texture_Delete('BSCROLL_DOWN_A');
 238     g_Texture_Delete('BSCROLL_DOWN_U');
 239     g_Texture_Delete('BSCROLL_MIDDLE');
 240     g_Texture_Delete('NOPIC');
 241   end;
 242
 243   procedure r_GUI_GetSize_TextButton (ctrl: TGUITextButton; out w, h: Integer);
 244     var ww, hh: WORD; f: TFont;
 245   begin
 246     f := Font[ctrl.BigFont];
 247     f.GetTextSize(ctrl.Caption, ww, hh);
 248     w := ww;
 249     h := hh;
 250   end;
 251
 252   procedure r_GUI_GetSize_Label (ctrl: TGUILabel; out w, h: Integer);
 253     var ww, hh: WORD; f: TFont;
 254   begin
 255     f := Font[ctrl.BigFont];
 256     f.GetTextSize(ctrl.Text, ww, hh);
 257     h := hh;
 258     if ctrl.FixedLength = 0 then
 259       w := ww
 260     else
 261       w := e_CharFont_GetMaxWidth(f.ID) * ctrl.FixedLength
 262   end;
 263
 264   procedure r_GUI_GetSize_Switch (ctrl: TGUISwitch; out w, h: Integer);
 265     var i: Integer; ww, hh: WORD; f: TFont;
 266   begin
 267     w := 0;
 268     h := 0;
 269     if ctrl.Items <> nil then
 270     begin
 271       for i := 0 to High(ctrl.Items) do
 272       begin
 273         f := Font[ctrl.BigFont];
 274         f.GetTextSize(ctrl.Items[i], ww, hh);
 275         if ww > w then
 276           w := ww;
 277       end;
 278     end;
 279   end;
 280
 281   procedure r_GUI_GetSize_KeyRead (ctrl: TGUIKeyRead; out w, h: Integer);
 282     var i: Integer; ww, hh: WORD; f: TFont;
 283   begin
 284     w := 0;
 285     h := 0; // ??? always 0
 286     f := Font[ctrl.BigFont];
 287     for i := 0 to 255 do
 288     begin
 289       f.GetTextSize(e_KeyNames[i], ww, hh);
 290       w := MAX(w, ww);
 291     end;
 292     f.GetTextSize(KEYREAD_QUERY, ww, hh);
 293     if ww > w then w := ww;
 294     f.GetTextSize(KEYREAD_CLEAR, ww, hh);
 295     if ww > w then w := ww;
 296   end;
 297
 298   procedure r_GUI_GetSize (ctrl: TGUIControl; out w, h: Integer);
 299   begin
 300     w := 0;
 301     h := 0;
 302     if ctrl is TGUITextButton then
 303       r_GUI_GetSize_TextButton(ctrl as TGUITextButton, w, h)
 304     else if ctrl is TGUILabel then
 305       r_GUI_GetSize_Label(ctrl as TGUILabel, w, h)
 306     else if ctrl is TGUIScroll then
 307       w := 16 + ((ctrl as TGUIScroll).Max + 1) * 8 // ??? but h = 0
 308     else if ctrl is TGUISwitch then
 309       r_GUI_GetSize_Switch(ctrl as TGUISwitch, w, h)
 310     else if ctrl is TGUIEdit then
 311       w := 16 + (ctrl as TGUIEdit).Width * 16 // ??? but h = 0
 312     else if ctrl is TGUIKeyRead then
 313       r_GUI_GetSize_KeyRead(ctrl as TGUIKeyRead, w, h)
 314     else if ctrl is TGUIKeyRead2 then
 315       w := (ctrl as TGUIKeyRead2).MaxKeyNameWdt * 2 + 8 + 8 + 16 // ??? but h = 0
 316     else if ctrl is TGUIListBox then
 317     begin
 318       w := 8 + ((ctrl as TGUIListBox).Width + 1) * 16; // recheck w & h
 319       h := 8 + (ctrl as TGUIListBox).Height * 16;
 320     end
 321     else if ctrl is TGUIMemo then
 322     begin
 323       w := 8 + ((ctrl as TGUIMemo).Width + 1) * 16;
 324       h := 8 + (ctrl as TGUIMemo).Height * 16;
 325     end
 326     else
 327     begin
 328       w := ctrl.GetWidth();
 329       h := ctrl.GetHeight();
 330     end;
 331   end;
 332
 333   procedure r_GUI_Draw_Control (ctrl: TGUIControl); forward;
 334
 335   procedure r_GUI_Draw_TextButton (ctrl: TGUITextButton);
 336     var f: TFont;
 337   begin
 338     f := Font[ctrl.BigFont];
 339     f.Draw(ctrl.X, ctrl.Y, ctrl.Caption, ctrl.Color.R, ctrl.Color.G, ctrl.Color.B)
 340   end;
 341
 342   procedure r_GUI_Draw_Label (ctrl: TGUILabel);
 343     var w, h: Word; f: TFont;
 344   begin
 345     f := Font[ctrl.BigFont];
 346     if ctrl.RightAlign then
 347     begin
 348       f.GetTextSize(ctrl.Text, w, h);
 349       f.Draw(ctrl.X + ctrl.CMaxWidth - w, ctrl.Y, ctrl.Text, ctrl.Color.R, ctrl.Color.G, ctrl.Color.B);
 350     end
 351     else
 352       f.Draw(ctrl.X, ctrl.Y, ctrl.Text, ctrl.Color.R, ctrl.Color.G, ctrl.Color.B);
 353   end;
 354
 355   procedure r_GUI_Draw_Scroll (ctrl: TGUIScroll);
 356     var a: Integer;
 357   begin
 358     e_Draw(ScrollLeft, ctrl.X, ctrl.Y, 0, True, False);
 359     e_Draw(ScrollRight, ctrl.X + 8 + (ctrl.Max + 1) * 8, ctrl.Y, 0, True, False);
 360     for a := 0 to ctrl.Max do
 361       e_Draw(ScrollMiddle, ctrl.X + 8 + a * 8, ctrl.Y, 0, True, False);
 362     e_Draw(ScrollMarker, ctrl.X + 8 + ctrl.Value * 8, ctrl.Y, 0, True, False);
 363   end;
 364
 365   procedure r_GUI_Draw_Switch (ctrl: TGUISwitch);
 366     var f: TFont;
 367   begin
 368     f := Font[ctrl.BigFont];
 369     f.Draw(ctrl.X, ctrl.Y, ctrl.Items[ctrl.ItemIndex], ctrl.Color.R, ctrl.Color.G, ctrl.Color.B);
 370   end;
 371
 372   procedure r_GUI_Draw_Edit (ctrl: TGUIEdit);
 373     var c, w, h: Word; r, g, b: Byte; f: TFont;
 374   begin
 375     e_Draw(EditLeft, ctrl.X, ctrl.Y, 0, True, False);
 376     e_Draw(EditRight, ctrl.X + 8 + ctrl.Width * 16, ctrl.Y, 0, True, False);
 377     for c := 0 to ctrl.Width - 1 do
 378       e_Draw(EditMiddle, ctrl.X + 8 + c * 16, ctrl.Y, 0, True, False);
 379     r := ctrl.Color.R;
 380     g := ctrl.Color.G;
 381     b := ctrl.Color.B;
 382     if ctrl.Invalid and (ctrl.Window.ActiveControl <> ctrl) then
 383     begin
 384       r := 128;
 385       g := 128;
 386       b := 128;
 387     end;
 388     f := Font[ctrl.BigFont];
 389     f.Draw(ctrl.X + 8, ctrl.Y, ctrl.Text, r, g, b);
 390     if ctrl.Window.ActiveControl = ctrl then
 391     begin
 392       f.GetTextSize(Copy(ctrl.Text, 1, ctrl.CaretPos), w, h);
 393       h := e_CharFont_GetMaxHeight(f.ID);
 394       e_DrawLine(2, ctrl.X + 8 + w, ctrl.Y + h - 3, ctrl.X + 8 + w + EDIT_CURSORLEN, ctrl.Y + h - 3, EDIT_CURSORCOLOR.R, EDIT_CURSORCOLOR.G, EDIT_CURSORCOLOR.B);
 395     end;
 396   end;
 397
 398   procedure r_GUI_Draw_KeyRead (ctrl: TGUIKeyRead);
 399     var k: AnsiString; f: TFont;
 400   begin
 401     if ctrl.IsQuery then
 402       k := KEYREAD_QUERY
 403     else if ctrl.Key <> 0 then
 404       k := e_KeyNames[ctrl.Key]
 405     else
 406       k := KEYREAD_CLEAR;
 407     f := Font[ctrl.BigFont];
 408     f.Draw(ctrl.X, ctrl.Y, k, ctrl.Color.R, ctrl.Color.G, ctrl.Color.B);
 409   end;
 410
 411   procedure r_GUI_Draw_KeyRead2 (ctrl: TGUIKeyRead2);
 412
 413     procedure drawText (idx: Integer);
 414       var x, y: Integer; r, g, b: Byte; kk: DWORD; str: AnsiString; f: TFont;
 415     begin
 416       if idx = 0 then kk := ctrl.Key0 else kk := ctrl.Key1;
 417       y := ctrl.Y;
 418       if idx = 0 then x := ctrl.X + 8 else x := ctrl.X + 8 + ctrl.MaxKeyNameWdt + 16;
 419       r := 255;
 420       g := 0;
 421       b := 0;
 422       if ctrl.KeyIdx = idx then
 423       begin
 424         r := 255; g := 255; b := 255;
 425       end;
 426       f := Font[ctrl.BigFont];
 427       if ctrl.IsQuery and (ctrl.KeyIdx = idx) then
 428       begin
 429         f.Draw(x, y, KEYREAD_QUERY, r, g, b)
 430       end
 431       else
 432       begin
 433         if kk <> 0 then
 434           str := e_KeyNames[kk]
 435         else
 436           str := KEYREAD_CLEAR;
 437         f.Draw(x, y, str, r, g, b);
 438       end
 439     end;
 440
 441   begin
 442     drawText(0);
 443     drawText(1);
 444   end;
 445
 446   procedure DrawBox(X, Y: Integer; Width, Height: Word);
 447   begin
 448     e_Draw(Box[0], X, Y, 0, False, False);
 449     e_DrawFill(Box[1], X + 4, Y, Width * 4, 1, 0, False, False);
 450     e_Draw(Box[2], X + 4 + Width * 16, Y, 0, False, False);
 451     e_DrawFill(Box[3], X, Y + 4, 1, Height * 4, 0, False, False);
 452     e_DrawFill(Box[4], X + 4, Y + 4, Width, Height, 0, False, False);
 453     e_DrawFill(Box[5], X + 4 + Width * 16, Y + 4, 1, Height * 4, 0, False, False);
 454     e_Draw(Box[6], X, Y + 4 + Height * 16, 0, False, False);
 455     e_DrawFill(Box[7], X + 4, Y + 4 + Height * 16, Width * 4, 1, 0, False, False);
 456     e_Draw(Box[8], X + 4 + Width * 16, Y + 4 + Height * 16, 0, False, False);
 457   end;
 458
 459   procedure r_GUI_Draw_ModelView (ctrl: TGUIModelView);
 460   begin
 461     DrawBox(ctrl.X, ctrl.Y, 4, 4);
 462     if ctrl.Model <> nil then
 463       r_PlayerModel_Draw(ctrl.Model, ctrl.X + 4, ctrl.Y + 4);
 464   end;
 465
 466   procedure r_GUI_Draw_MapPreview (ctrl: TGUIMapPreview);
 467     var a: Integer; r, g, b: Byte;
 468   begin
 469     DrawBox(ctrl.X, ctrl.Y, MAPPREVIEW_WIDTH, MAPPREVIEW_HEIGHT);
 470     if (ctrl.MapSize.X <= 0) or (ctrl.MapSize.Y <= 0) then
 471       Exit;
 472     e_DrawFillQuad(ctrl.X + 4, ctrl.Y + 4, ctrl.X + 4 + Trunc(ctrl.MapSize.X / ctrl.Scale) - 1, ctrl.Y + 4 + Trunc(ctrl.MapSize.Y / ctrl.Scale) - 1, 32, 32, 32, 0);
 473     if ctrl.MapData <> nil then
 474       for a := 0 to High(ctrl.MapData) do
 475         with ctrl.MapData[a] do
 476         begin
 477           if X1 > MAPPREVIEW_WIDTH * 16 then Continue;
 478           if Y1 > MAPPREVIEW_HEIGHT * 16 then Continue;
 479           if X2 < 0 then Continue;
 480           if Y2 < 0 then Continue;
 481           if X2 > MAPPREVIEW_WIDTH * 16 then X2 := MAPPREVIEW_WIDTH * 16;
 482           if Y2 > MAPPREVIEW_HEIGHT * 16 then Y2 := MAPPREVIEW_HEIGHT * 16;
 483           if X1 < 0 then X1 := 0;
 484           if Y1 < 0 then Y1 := 0;
 485           case PanelType of
 486             PANEL_WALL:
 487             begin
 488               r := 255; g := 255; b := 255;
 489             end;
 490             PANEL_CLOSEDOOR:
 491             begin
 492               r := 255; g := 255; b := 0;
 493             end;
 494             PANEL_WATER:
 495             begin
 496               r := 0; g := 0; b := 192;
 497             end;
 498             PANEL_ACID1:
 499             begin
 500               r := 0; g := 176; b := 0;
 501             end;
 502             PANEL_ACID2:
 503             begin
 504               r := 176; g := 0; b := 0;
 505             end;
 506           else
 507             r := 128; g := 128; b := 128;
 508           end;
 509           if ((X2 - X1) > 0) and ((Y2 - Y1) > 0) then
 510             e_DrawFillQuad(ctrl.X + 4 + X1, ctrl.Y + 4 + Y1, ctrl.X + 4 + X2 - 1, ctrl.Y + 4 + Y2 - 1, r, g, b, 0);
 511       end;
 512   end;
 513
 514   procedure r_GUI_Draw_Image (ctrl: TGUIImage);
 515     var ID: DWORD;
 516   begin
 517     if ctrl.ImageRes = '' then
 518     begin
 519       if g_Texture_Get(ctrl.DefaultRes, ID) then
 520         e_Draw(ID, ctrl.X, ctrl.Y, 0, True, False);
 521     end
 522     else
 523     begin
 524       if g_Texture_CreateWADEx(ctrl.ImageRes, ctrl.ImageRes) then
 525       begin
 526         if g_Texture_Get(ctrl.ImageRes, ID) then
 527           e_Draw(ID, ctrl.X, ctrl.Y, 0, True, False);
 528         g_Texture_Delete(ctrl.ImageRes);
 529       end;
 530     end;
 531   end;
 532
 533   procedure DrawScroll(X, Y: Integer; Height: Word; Up, Down: Boolean);
 534     var ID: DWORD;
 535   begin
 536     if Height < 3 then
 537       Exit;
 538     if Up then
 539       g_Texture_Get(BSCROLL_UPA, ID)
 540     else
 541       g_Texture_Get(BSCROLL_UPU, ID);
 542     e_Draw(ID, X, Y, 0, False, False);
 543     if Down then
 544       g_Texture_Get(BSCROLL_DOWNA, ID)
 545     else
 546       g_Texture_Get(BSCROLL_DOWNU, ID);
 547     e_Draw(ID, X, Y + (Height - 1) * 16, 0, False, False);
 548     g_Texture_Get(BSCROLL_MIDDLE, ID);
 549     e_DrawFill(ID, X, Y + 16, 1, Height - 2, 0, False, False);
 550   end;
 551
 552   procedure r_GUI_Draw_ListBox (ctrl: TGUIListBox); // + TGUIFileListBox
 553     var w2, h2: Word; a: Integer; s: string; f: TFont;
 554   begin
 555     if ctrl.DrawBack then
 556       DrawBox(ctrl.X, ctrl.Y, ctrl.Width + 1, ctrl.Height);
 557     if ctrl.DrawScrollBar then
 558       DrawScroll(ctrl.X + 4 + ctrl.Width * 16, ctrl.Y + 4, ctrl.Height, (ctrl.StartLine > 0) and (ctrl.Items <> nil), (ctrl.StartLine + ctrl.Height - 1 < High(ctrl.Items)) and (ctrl.Items <> nil));
 559     if ctrl.Items <> nil then
 560     begin
 561       f := Font[ctrl.BigFont];
 562       for a := ctrl.StartLine to Min(High(ctrl.Items), ctrl.StartLine + ctrl.Height - 1) do
 563       begin
 564         s := ctrl.Items[a];
 565         f.GetTextSize(s, w2, h2);
 566         while (Length(s) > 0) and (w2 > ctrl.Width * 16) do
 567         begin
 568           SetLength(s, Length(s) - 1);
 569           f.GetTextSize(s, w2, h2);
 570         end;
 571         if a = ctrl.ItemIndex then
 572           f.Draw(ctrl.X + 4, ctrl.Y + 4 + (a - ctrl.StartLine) * 16, s, ctrl.ActiveColor.R, ctrl.ActiveColor.G, ctrl.ActiveColor.B)
 573         else
 574           f.Draw(ctrl.X + 4, ctrl.Y + 4 + (a - ctrl.StartLine) * 16, s, ctrl.UnActiveColor.R, ctrl.UnActiveColor.G, ctrl.UnActiveColor.B);
 575       end;
 576     end;
 577   end;
 578
 579   procedure r_GUI_Draw_Memo (ctrl: TGUIMemo);
 580     var a: Integer; f: TFont;
 581   begin
 582     f := Font[ctrl.BigFont];
 583     if ctrl.DrawBack then
 584       DrawBox(ctrl.X, ctrl.Y, ctrl.Width + 1, ctrl.Height);
 585     if ctrl.DrawScrollBar then
 586       DrawScroll(ctrl.X + 4 + ctrl.Width * 16, ctrl.Y + 4, ctrl.Height, (ctrl.StartLine > 0) and (ctrl.Lines <> nil), (ctrl.StartLine + ctrl.Height - 1 < High(ctrl.Lines)) and (ctrl.Lines <> nil));
 587     if ctrl.Lines <> nil then
 588       for a := ctrl.StartLine to Min(High(ctrl.Lines), ctrl.StartLine + ctrl.Height - 1) do
 589         f.Draw(ctrl.X + 4, ctrl.Y + 4 + (a - ctrl.StartLine) * 16, ctrl.Lines[a], ctrl.Color.R, ctrl.Color.G, ctrl.Color.B);
 590   end;
 591
 592   procedure r_GUI_Draw_MainMenu (ctrl: TGUIMainMenu);
 593     var a: Integer; w, h: Word; ID: DWORD;
 594   begin
 595     if ctrl.Header <> nil then
 596     begin
 597       r_GUI_Draw_Label(ctrl.Header)
 598     end
 599     else if LogoTex <> 0 then
 600     begin
 601       e_GetTextureSize(LogoTex, @w, @h);
 602       e_Draw(LogoTex, ((gScreenWidth div 2) - (w div 2)), ctrl.Buttons[0].Y - ctrl.Buttons[0].GetHeight - h, 0, True, False);
 603     end;
 604     if ctrl.Buttons <> nil then
 605     begin
 606       for a := 0 to High(ctrl.Buttons) do
 607         if ctrl.Buttons[a] <> nil then
 608           r_GUI_Draw_TextButton(ctrl.Buttons[a]);
 609       if ctrl.Index <> -1 then
 610       begin
 611         ID := MarkerID[ctrl.Counter DIV MAINMENU_MARKERDELAY MOD 2 <> 0];
 612         e_Draw(ID, ctrl.Buttons[ctrl.Index].X - 48, ctrl.Buttons[ctrl.Index].Y, 0, True, False);
 613       end
 614     end;
 615   end;
 616
 617   procedure r_GUI_Draw_Menu (ctrl: TGUIMenu);
 618     var a, locx, locy: Integer; f: TFont;
 619   begin
 620     if ctrl.Header <> nil then
 621       r_GUI_Draw_Label(ctrl.Header);
 622     if ctrl.Items <> nil then
 623     begin
 624       for a := 0 to High(ctrl.Items) do
 625       begin
 626         if ctrl.Items[a].Text <> nil then
 627           r_GUI_Draw_Control(ctrl.Items[a].Text);
 628         if ctrl.Items[a].Control <> nil then
 629           r_GUI_Draw_Control(ctrl.Items[a].Control);
 630       end;
 631     end;
 632     if (ctrl.Index <> -1) and (ctrl.Counter > MENU_MARKERDELAY div 2) then
 633     begin
 634       locx := 0;
 635       locy := 0;
 636       if ctrl.Items[ctrl.Index].Text <> nil then
 637       begin
 638         locx := ctrl.Items[ctrl.Index].Text.X;
 639         locy := ctrl.Items[ctrl.Index].Text.Y;
 640         //HACK!
 641         if ctrl.Items[ctrl.Index].Text.RightAlign then
 642         begin
 643           locx := locx + ctrl.Items[ctrl.Index].Text.CMaxWidth - ctrl.Items[ctrl.Index].Text.GetWidth;
 644         end;
 645       end
 646       else if ctrl.Items[ctrl.Index].Control <> nil then
 647       begin
 648         locx := ctrl.Items[ctrl.Index].Control.X;
 649         locy := ctrl.Items[ctrl.Index].Control.Y;
 650       end;
 651       f := Font[ctrl.BigFont];
 652       locx := locx - e_CharFont_GetMaxWidth(f.ID);
 653       e_CharFont_PrintEx(f.ID, locx, locy, #16, _RGB(255, 0, 0));
 654     end;
 655   end;
 656
 657   procedure r_GUI_Draw_Control (ctrl: TGUIControl);
 658   begin
 659     if ctrl is TGUITextButton then
 660       r_GUI_Draw_TextButton(TGUITextButton(ctrl))
 661     else if ctrl is TGUILabel then
 662       r_GUI_Draw_Label(TGUILabel(ctrl))
 663     else if ctrl is TGUIScroll then
 664       r_GUI_Draw_Scroll(TGUIScroll(ctrl))
 665     else if ctrl is TGUISwitch then
 666       r_GUI_Draw_Switch(TGUISwitch(ctrl))
 667     else if ctrl is TGUIEdit then
 668       r_GUI_Draw_Edit(TGUIEdit(ctrl))
 669     else if ctrl is TGUIKeyRead then
 670       r_GUI_Draw_KeyRead(TGUIKeyRead(ctrl))
 671     else if ctrl is TGUIKeyRead2 then
 672       r_GUI_Draw_KeyRead2(TGUIKeyRead2(ctrl))
 673     else if ctrl is TGUIModelView then
 674       r_GUI_Draw_ModelView(TGUIModelView(ctrl))
 675     else if ctrl is TGUIMapPreview then
 676       r_GUI_Draw_MapPreview(TGUIMapPreview(ctrl))
 677     else if ctrl is TGUIImage then
 678       r_GUI_Draw_Image(TGUIImage(ctrl))
 679     else if ctrl is TGUIListBox then
 680       r_GUI_Draw_ListBox(TGUIListBox(ctrl)) // + TGUIFileListBox
 681     else if ctrl is TGUIMemo then
 682       r_GUI_Draw_Memo(TGUIMemo(ctrl))
 683     else if ctrl is TGUIMainMenu then
 684       r_GUI_Draw_MainMenu(TGUIMainMenu(ctrl))
 685     else if ctrl is TGUIMenu then
 686       r_GUI_Draw_Menu(TGUIMenu(ctrl))
 687     else
 688       Assert(False)
 689   end;
 690
 691   procedure r_GUI_Draw_Window (win: TGUIWindow);
 692     var i: Integer; ID: DWORD; tw, th: Word;
 693   begin
 694     // Here goes code duplication from g_game.pas:DrawMenuBackground()
 695     if win.BackTexture <> '' then
 696       if g_Texture_Get(win.BackTexture, ID) then
 697       begin
 698         e_Clear(0, 0, 0);
 699         e_GetTextureSize(ID, @tw, @th);
 700         if tw = th then
 701           tw := round(tw * 1.333 * (gScreenHeight / th))
 702         else
 703           tw := trunc(tw * (gScreenHeight / th));
 704         e_DrawSize(ID, (gScreenWidth - tw) div 2, 0, 0, False, False, tw, gScreenHeight);
 705       end
 706       else
 707         e_Clear(0.5, 0.5, 0.5);
 708
 709     // small hack here
 710     if win.Name = 'AuthorsMenu' then
 711       e_DarkenQuadWH(0, 0, gScreenWidth, gScreenHeight, 150);
 712     for i := 0 to High(win.Childs) do
 713       if win.Childs[i] <> nil then
 714         r_GUI_Draw_Control(win.Childs[i]);
 715   end;
 716
 717 end.