Changeset 317 for trunk/Packages

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Packages/CevoComponents

Files:

• BaseWin.pas (modified) (6 diffs)
• ScreenTools.pas (modified) (2 diffs)
• Sound.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/BaseWin.pas

@@ -153 +153 @@
 begin
   if FWindowMode = wmSubmodal then
-    Close
+    Close;
 end;
 
@@ -316 +316 @@
     else
       MainTexture := MainTexture;
-    MainTexture := MainTexture
+    MainTexture := MainTexture;
   end;
   Canvas.Font.Assign(UniFont[ftCaption]);
@@ -330 +330 @@
   begin
     FrameTop := 0;
-    FrameBottom := ClientHeight
+    FrameBottom := ClientHeight;
   end
   else
@@ -338 +338 @@
       FrameBottom := ClientHeight - (WideFrame - NarrowFrame)
     else
-      FrameBottom := ClientHeight
+      FrameBottom := ClientHeight;
   end;
   Fill(Canvas, 3, InnerBottom + 1, ClientWidth - 6, ClientHeight - InnerBottom -
@@ -386 +386 @@
         MoveTo(ClientWidth - 3 - ModalFrameIndent, 3);
         LineTo(ClientWidth - 3 - ModalFrameIndent, TitleHeight);
-      end
+      end;
   end
   else
@@ -441 +441 @@
         LineTo(ClientWidth - CaptionLeft - 2, FrameBottom - 2);
       end;
-    end
+    end;
   end;
   RisedTextOut(Canvas, Cut - 1, 7, Caption);

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -92 +92 @@
 procedure VLightGradient(ca: TCanvas; x, y, Height, Color: integer);
 procedure VDarkGradient(ca: TCanvas; x, y, Height, Kind: integer);
+procedure UnderlinedTitleValue(Canvas: TCanvas; Title, Value: string; X, Y, Width: Integer);
 procedure NumberBar(dst: TBitmap; x, y: integer; Cap: string; val: integer;
   const T: TTexture);
@@ -1313 +1314 @@
   Gradient(ca, x, y, 1, 0, 0, Height,
     HGrSystem.Data.Canvas.Pixels[187, 137 + Kind], Brightness);
+end;
+
+procedure UnderlinedTitleValue(Canvas: TCanvas; Title, Value: string; X, Y, Width: Integer);
+begin
+  DLine(Canvas, X, X + Width, Y + 19, MainTexture.clBevelLight, MainTexture.clBevelShade);
+  RisedTextOut(Canvas, X, Y, Title);
+  RisedTextOut(Canvas, X + Width - BiColorTextWidth(Canvas, Value), Y, Value);
 end;
 

trunk/Packages/CevoComponents/Sound.pas

@@ -11 +11 @@
 type
   TPlayStyle = (psAsync, psSync);
+  TSoundMode = (smOff, smOn, smOnAlt);
 
   { TSoundPlayer }
@@ -50 +51 @@
 procedure PreparePlay(Item: string; Index: Integer = -1);
 
-const
-  // sound modes
-  smOff = 0;
-  smOn = 1;
-  smOnAlt = 2;
-
 var
   Sounds: TStringTable;
-  SoundMode: Integer;
+  SoundMode: TSoundMode;
   SoundPlayer: TSoundPlayer;
   SoundList: TFPGObjectList<TSound>;