Changeset 317 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (2 diffs)

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;