Changeset 317 for trunk/Start.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/Start.pas (modified) (4 diffs)

trunk/Start.pas

@@ -894 +894 @@
   else if Page in [pgStartRandom, pgStartMap] then
   begin
-    DLine(Canvas, 344, 514, y0Mini + 61 + 19, MainTexture.clBevelLight,
-      MainTexture.clBevelShade);
-    RisedTextOut(Canvas, 344, y0Mini + 61, Phrases.Lookup('STARTCONTROLS', 10));
-    s := TurnToString(MaxTurn);
-    RisedTextOut(Canvas, 514 - BiColorTextWidth(Canvas, s), y0Mini + 61, s);
+    UnderlinedTitleValue(Canvas, Phrases.Lookup('STARTCONTROLS', 10),
+      TurnToString(MaxTurn), 344, y0Mini + 61, 170);
+
     s := Phrases.Lookup('STARTCONTROLS', 7);
     w := Canvas.TextWidth(s);
@@ -974 +972 @@
         s := IntToStr(nMapStartPositions - 1);
       RisedTextOut(Canvas, 198 - BiColorTextWidth(Canvas, s), yMain + 140, s);
+
       DLine(Canvas, 24, xDefault - 6, yMain + 164 + 19,
         MainTexture.clBevelLight, MainTexture.clBevelShade);
@@ -986 +985 @@
       DLine(Canvas, 56, 272, y0Mini + 61 + 19, MainTexture.clBevelLight,
         MainTexture.clBevelShade);
+
       RisedTextOut(Canvas, 56, y0Mini + 61,
         Phrases.Lookup('STARTCONTROLS', 14));
@@ -1024 +1024 @@
   else if Page = pgEditRandom then
   begin
-    DLine(Canvas, 344, 514, y0Mini - 77 + 19, MainTexture.clBevelLight,
-      MainTexture.clBevelShade);
-    RisedTextOut(Canvas, 344, y0Mini - 77, Phrases.Lookup('STARTCONTROLS', 5));
-    s := IntToStr((WorldSizes[WorldSize].X * WorldSizes[WorldSize].Y * 20 +
-      DefaultWorldTiles div 2) div DefaultWorldTiles * 5) + '%';
-    RisedTextOut(Canvas, 514 - BiColorTextWidth(Canvas, s), y0Mini - 77, s);
-    DLine(Canvas, 344, 514, y0Mini + 61 + 19, MainTexture.clBevelLight,
-      MainTexture.clBevelShade);
-    RisedTextOut(Canvas, 344, y0Mini + 61, Phrases.Lookup('STARTCONTROLS', 6));
-    s := IntToStr(StartLandMass) + '%';
-    RisedTextOut(Canvas, 514 - BiColorTextWidth(Canvas, s), y0Mini + 61, s);
+    UnderlinedTitleValue(Canvas, Phrases.Lookup('STARTCONTROLS', 5),
+      IntToStr((WorldSizes[WorldSize].X * WorldSizes[WorldSize].Y * 20 +
+      DefaultWorldTiles div 2) div DefaultWorldTiles * 5) + '%',
+      344, y0Mini - 77, 170);
+    UnderlinedTitleValue(Canvas, Phrases.Lookup('STARTCONTROLS', 6),
+      IntToStr(StartLandMass) + '%', 344, y0Mini + 61, 170);
   end
   else if Page = pgEditMap then