Changeset 317 for trunk/Packages/CevoComponents/BaseWin.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/BaseWin.pas (modified) (6 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);