Changeset 349 for branches/highdpi/Settings.pas

Timestamp:

Apr 6, 2021, 8:11:02 PM (3 years ago)

Author:

chronos

Message:

• Modified: Merged trunk branch version r348 into highdpi branch.

File:

• branches/highdpi/Settings.pas (modified) (7 diffs)

branches/highdpi/Settings.pas

@@ -28 +28 @@
   TSettingsDlg = class(TDrawDlg)
     ButtonFullscreen: TButtonC;
+    Down2Btn: TButtonC;
     List: TDpiListBox;
     OKBtn: TButtonA;
     CancelBtn: TButtonA;
+    Up2Btn: TButtonC;
     procedure ButtonFullscreenClick(Sender: TObject);
     procedure CancelBtnClick(Sender: TObject);
+    procedure Down2BtnClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -38 +41 @@
     procedure FormShow(Sender: TObject);
     procedure OKBtnClick(Sender: TObject);
+    procedure Up2BtnClick(Sender: TObject);
   private
-    { private declarations }
+    LocalGamma: Integer;
   public
     Languages: TLanguages;
@@ -103 +107 @@
   OKBtn.Caption := Phrases.Lookup('BTN_OK');
   CancelBtn.Caption := Phrases.Lookup('BTN_CANCEL');
-  OkBtn.Graphic := GrExt[HGrSystem].Data;
-  CancelBtn.Graphic := GrExt[HGrSystem].Data;
-
-  ButtonFullscreen.Graphic := GrExt[HGrSystem].Data;
+  InitButtons;
 end;
 
@@ -112 +113 @@
 begin
   ModalResult := mrCancel;
+end;
+
+procedure TSettingsDlg.Down2BtnClick(Sender: TObject);
+begin
+  if LocalGamma > 50 then
+  begin
+    Dec(LocalGamma);
+    Invalidate;
+  end;
 end;
 
@@ -142 +152 @@
     MainTexture.clBevelLight);
 
-  s := Phrases.Lookup('SETTINGS', 0);
+  S := Phrases.Lookup('SETTINGS', 0);
   LoweredTextOut(Canvas, -2, MainTexture, ButtonFullscreen.Left + 32,
-    ButtonFullscreen.Top - 4, s);
+    ButtonFullscreen.Top - 4, S);
+
+  // Gamma
+  UnderlinedTitleValue(Canvas, Phrases.Lookup('SETTINGS', 1), IntToStr(LocalGamma) + '%',
+    Up2Btn.Left - 150 - 4, Up2Btn.Top + 2, 150);
 end;
 
@@ -158 +172 @@
   SaveData;
   ModalResult := mrOk;
+end;
+
+procedure TSettingsDlg.Up2BtnClick(Sender: TObject);
+begin
+  if LocalGamma < 150 then begin
+    Inc(LocalGamma);
+    Invalidate;
+  end;
 end;
 
@@ -167 +189 @@
   if FullScreen then ButtonFullscreen.ButtonIndex := 3
     else ButtonFullscreen.ButtonIndex := 2;
+  LocalGamma := Gamma;
 end;
 
 procedure TSettingsDlg.SaveData;
-begin
+var
+  NeedRestart: Boolean;
+begin
+  NeedRestart := Gamma <> LocalGamma;
   LocaleCode := Languages[List.ItemIndex].ShortName;
   FullScreen := (ButtonFullscreen.ButtonIndex and 1) = 1;
+  Gamma := LocalGamma;
+  if NeedRestart then SimpleMessage(Phrases.Lookup('SETTINGS', 2));
 end;