Changeset 178 for branches/highdpi/Locale.pas

Timestamp:

Jun 23, 2019, 3:15:29 PM (5 years ago)

Author:

chronos

Message:

• Modified: Use DpiControls package for High DPI support.

File:

• branches/highdpi/Locale.pas (modified) (6 diffs)

branches/highdpi/Locale.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ScreenTools, Messg, ButtonA, Registry, fgl, Directories, DrawDlg, ButtonC;
+  ScreenTools, Messg, ButtonA, Registry, fgl, Directories, DrawDlg, UDpiControls;
 
 type
@@ -27 +27 @@
 
   TLocaleDlg = class(TDrawDlg)
-    ButtonFullscreen: TButtonC;
-    List: TListBox;
+    List: TDpiListBox;
     OKBtn: TButtonA;
     CancelBtn: TButtonA;
-    procedure ButtonFullscreenClick(Sender: TObject);
     procedure CancelBtnClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -103 +101 @@
   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;
 
@@ -112 +106 @@
 begin
   ModalResult := mrOk;
-end;
-
-procedure TLocaleDlg.ButtonFullscreenClick(Sender: TObject);
-begin
-  FullScreen := not FullScreen;
-  ButtonFullscreen.ButtonIndex := ButtonFullscreen.ButtonIndex xor 1;
 end;
 
@@ -126 +114 @@
 
 procedure TLocaleDlg.FormPaint(Sender: TObject);
-var
-  S: string;
-  W: Integer;
 begin
   PaintBackground(self, 3, 3, ClientWidth - 6, ClientHeight - 6);
@@ -139 +124 @@
   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;