Changeset 317 for trunk/Settings.pas

Timestamp:

Mar 19, 2021, 9:59:02 AM (4 years ago)

Author:

chronos

Message:

• Added: Allow to set gamma corection in settings dialog.

File:

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

trunk/Settings.pas

@@ -28 +28 @@
   TSettingsDlg = class(TDrawDlg)
     ButtonFullscreen: TButtonC;
+    Down2Btn: TButtonC;
     List: TListBox;
     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;
@@ -111 +115 @@
 end;
 
+procedure TSettingsDlg.Down2BtnClick(Sender: TObject);
+begin
+  if LocalGamma > 50 then
+  begin
+    Dec(LocalGamma);
+    Invalidate;
+  end;
+end;
+
 procedure TSettingsDlg.ButtonFullscreenClick(Sender: TObject);
 begin
@@ -139 +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;
 
@@ -155 +172 @@
   SaveData;
   ModalResult := mrOk;
+end;
+
+procedure TSettingsDlg.Up2BtnClick(Sender: TObject);
+begin
+  if LocalGamma < 150 then begin
+    Inc(LocalGamma);
+    Invalidate;
+  end;
 end;
 
@@ -164 +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;