Changeset 447 for trunk/Packages/CevoComponents/BaseWin.pas

Timestamp:

May 19, 2022, 10:39:34 PM (2 years ago)

Author:

chronos

Message:

• Modified: Use first capital letter in identifiers.

File:

• trunk/Packages/CevoComponents/BaseWin.pas (modified) (11 diffs)

trunk/Packages/CevoComponents/BaseWin.pas

@@ -23 +23 @@
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormDeactivate(Sender: TObject);
-    procedure SmartUpdateContent(ImmUpdate: Boolean = false);
+    procedure SmartUpdateContent(ImmUpdate: Boolean = False);
     procedure StayOnTop_Workaround;
   protected
@@ -50 +50 @@
     CaptionRight: Integer;
     InnerWidth: Integer;
-    InnerHeight: integer;
+    InnerHeight: Integer;
     WideBottom: Boolean;
     FullCaption: Boolean;
@@ -180 +180 @@
       UserLeft := Left;
       UserTop := Top;
-      Visible := false;
+      Visible := False;
       FWindowMode := NewMode;
       ShowModal;
@@ -186 +186 @@
     else if forceclose then
     begin // make modal
-      Visible := false;
+      Visible := False;
       FWindowMode := NewMode;
       Left := UserLeft;
@@ -272 +272 @@
 procedure TFramedDlg.SmartInvalidate;
 var
-  i, BottomFrame: integer;
+  I, BottomFrame: Integer;
   r0, r1: HRgn;
 begin
@@ -281 +281 @@
   r0 := CreateRectRgn(SideFrame, TitleHeight, ClientWidth - SideFrame,
     ClientHeight - BottomFrame);
-  for i := 0 to ControlCount - 1 do
-    if not(Controls[i] is TArea) and Controls[i].Visible then
+  for I := 0 to ControlCount - 1 do
+    if not(Controls[I] is TArea) and Controls[I].Visible then
     begin
-      with Controls[i].BoundsRect do
+      with Controls[I].BoundsRect do
         r1 := CreateRectRgn(Left, Top, Right, Bottom);
       CombineRgn(r0, r0, r1, RGN_DIFF);
@@ -295 +295 @@
 procedure TFramedDlg.VPaint;
 
-  procedure CornerFrame(x0, y0, x1, y1: integer);
+  procedure CornerFrame(x0, y0, x1, y1: Integer);
   begin
     Frame(Canvas, x0 + 1, y0 + 1, x1 - 2, y1 - 2, MainTexture.ColorBevelLight,
@@ -308 +308 @@
 
 var
-  i, l, FrameTop, FrameBottom, InnerBottom, Cut, xTexOffset,
-    yTexOffset: integer;
+  I, L, FrameTop, FrameBottom, InnerBottom, Cut, xTexOffset,
+    yTexOffset: Integer;
   R: TRect;
 begin
@@ -321 +321 @@
   end;
   Canvas.Font.Assign(UniFont[ftCaption]);
-  l := BiColorTextWidth(Canvas, Caption);
-  Cut := (ClientWidth - l) div 2;
+  L := BiColorTextWidth(Canvas, Caption);
+  Cut := (ClientWidth - L) div 2;
   xTexOffset := (Maintexture.Width - ClientWidth) div 2;
   yTexOffset := (Maintexture.Height - ClientHeight) div 2;
@@ -446 +446 @@
   RisedTextOut(Canvas, Cut - 1, 7, Caption);
 
-  for i := 0 to ControlCount - 1 do
-    if Controls[i].Visible and (Controls[i] is TButtonBase) then
+  for I := 0 to ControlCount - 1 do
+    if Controls[I].Visible and (Controls[I] is TButtonBase) then
     begin
-      R := Controls[i].BoundsRect;
+      R := Controls[I].BoundsRect;
       if (R.Bottom <= TitleHeight) or (R.Top >= InnerBottom) then
         BtnFrame(Canvas, R, MainTexture);
@@ -463 +463 @@
 begin
   if FullCaption then
-    exit;
+    Exit;
   r0 := CreateRectRgn(0, 0, ClientWidth, ClientHeight);
   r1 := CreateRectRgn(0, 0, CaptionLeft, TitleHeight - NarrowFrame);