Changeset 167 for trunk/Locale.pas

Timestamp:

Jun 15, 2019, 12:03:12 AM (5 years ago)

Author:

chronos

Message:

• Added: Allow to change full screen mode to windowed mode.

File:

• trunk/Locale.pas (modified) (6 diffs)

trunk/Locale.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ScreenTools, Messg, ButtonA, Registry, fgl, Directories, DrawDlg;
+  ScreenTools, Messg, ButtonA, Registry, fgl, Directories, DrawDlg, ButtonC;
 
 type
@@ -27 +27 @@
 
   TLocaleDlg = class(TDrawDlg)
+    ButtonFullscreen: TButtonC;
     List: TListBox;
     OKBtn: TButtonA;
     CancelBtn: TButtonA;
+    procedure ButtonFullscreenClick(Sender: TObject);
     procedure CancelBtnClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -101 +103 @@
   OkBtn.Graphic := GrExt[HGrSystem].Data;
   CancelBtn.Graphic := GrExt[HGrSystem].Data;
+
+  ButtonFullscreen.Graphic := GrExt[HGrSystem].Data;
+  if FullScreen then ButtonFullscreen.ButtonIndex := 3
+    else ButtonFullscreen.ButtonIndex := 2;
 end;
 
@@ -106 +112 @@
 begin
   ModalResult := mrOk;
+end;
+
+procedure TLocaleDlg.ButtonFullscreenClick(Sender: TObject);
+begin
+  FullScreen := not FullScreen;
+  ButtonFullscreen.ButtonIndex := ButtonFullscreen.ButtonIndex xor 1;
 end;
 
@@ -114 +126 @@
 
 procedure TLocaleDlg.FormPaint(Sender: TObject);
+var
+  S: string;
+  W: Integer;
 begin
   PaintBackground(self, 3, 3, ClientWidth - 6, ClientHeight - 6);
@@ -124 +139 @@
   BtnFrame(Canvas, OKBtn.BoundsRect, MainTexture);
   BtnFrame(Canvas, CancelBtn.BoundsRect, MainTexture);
+
+  RFrame(Canvas, ButtonFullscreen.Left - 1, ButtonFullscreen.Top - 1,
+    ButtonFullscreen.Left + 12, ButtonFullscreen.Top + 12, MainTexture.clBevelShade,
+    MainTexture.clBevelLight);
+
+  s := Phrases.Lookup('SETTINGS', 0);
+  LoweredTextOut(Canvas, -2, MainTexture, ButtonFullscreen.Left + 32,
+    ButtonFullscreen.Top - 4, s);
 end;