Changeset 447 for trunk/Packages/Common

Timestamp:

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

Author:

chronos

Message:

• Modified: Use first capital letter in identifiers.

Location:

trunk/Packages/Common

Files:

• Common.pas (modified) (1 diff)
• StopWatch.pas (modified) (3 diffs)
• UAboutDialog.pas (modified) (1 diff)
• UCommon.pas (modified) (5 diffs)
• UFindFile.pas (modified) (7 diffs)
• UFormAbout.pas (modified) (1 diff)
• UGeometric.pas (modified) (2 diffs)
• UJobProgressView.pas (modified) (1 diff)
• UMetaCanvas.pas (modified) (3 diffs)
• UPrefixMultiplier.pas (modified) (2 diffs)
• UResetableThread.pas (modified) (1 diff)
• UScaleDPI.pas (modified) (1 diff)
• UStringTable.pas (modified) (1 diff)
• UTheme.pas (modified) (1 diff)
• UTranslator.pas (modified) (9 diffs)

trunk/Packages/Common/Common.pas

@@ -37 +37 @@
   RegisterPackage('Common', @Register);
 end.
+

trunk/Packages/Common/StopWatch.pas

@@ -35 +35 @@
 implementation
 
-constructor TStopWatch.Create(const startOnCreate : boolean = false) ;
+constructor TStopWatch.Create(const startOnCreate : Boolean = False) ;
 begin
   inherited Create;
@@ -72 +72 @@
 begin
   dt := ElapsedMiliseconds / MSecsPerSec / SecsPerDay;
-  result := Format('%d days, %s', [Trunc(dt), FormatDateTime('hh:nn:ss.z', Frac(dt))]) ;
+  Result := Format('%d days, %s', [Trunc(dt), FormatDateTime('hh:nn:ss.z', Frac(dt))]) ;
 end;
 
@@ -93 +93 @@
 
 end.
+

trunk/Packages/Common/UAboutDialog.pas

@@ -51 +51 @@
 end.
 
+

trunk/Packages/Common/UCommon.pas

@@ -42 +42 @@
   clLightRed = TColor($8080FF);
 
-function AddLeadingZeroes(const aNumber, Length : integer) : string;
+function AddLeadingZeroes(const aNumber, Length : Integer) : string;
 function BinToInt(BinStr: string): Int64;
 function BinToHexString(Source: AnsiString): string;
@@ -96 +96 @@
 function BinToInt(BinStr : string) : Int64;
 var
-  i : byte;
+  I : Byte;
   RetVar : Int64;
 begin
   BinStr := UpperCase(BinStr);
-  if BinStr[length(BinStr)] = 'B' then Delete(BinStr,length(BinStr),1);
+  if BinStr[Length(BinStr)] = 'B' then Delete(BinStr,Length(BinStr),1);
   RetVar := 0;
-  for i := 1 to length(BinStr) do begin
-    if not (BinStr[i] in ['0','1']) then begin
+  for I := 1 to Length(BinStr) do begin
+    if not (BinStr[I] in ['0','1']) then begin
       RetVar := 0;
       Break;
     end;
-    RetVar := (RetVar shl 1) + (byte(BinStr[i]) and 1) ;
+    RetVar := (RetVar shl 1) + (Byte(BinStr[I]) and 1) ;
   end;
 
@@ -435 +435 @@
 end;
 
-function AddLeadingZeroes(const aNumber, Length : integer) : string;
+function AddLeadingZeroes(const aNumber, Length : Integer) : string;
 begin
   Result := SysUtils.Format('%.*d', [Length, aNumber]) ;
@@ -614 +614 @@
   begin
     for J := ReadFrom to Len do
-      if (S[j] = C) then
+      if (S[J] = C) then
       begin
         Result := J;
@@ -631 +631 @@
     Inc(I);
     APos := ReadUntil(I, '<');
-    Result := Result + Copy(S, I, APos - i);
+    Result := Result + Copy(S, I, APos - I);
     I := ReadUntil(APos + 1, '>');
   end;

trunk/Packages/Common/UFindFile.pas

@@ -6 +6 @@
 Tired of using FindFirst, Next and Close?
 Come see how to encapsulate all those functions
-in a single "find-files-recursively" component.
+in A Single "find-files-recursively" component.
 It's easy to use, free and with code.
 
@@ -34 +34 @@
   TFindFile = class(TComponent)
   private
-    s : TStringList;
-    fSubFolder : boolean;
+    S : TStringList;
+    fSubFolder : Boolean;
     fAttr: TFileAttrib;
     fPath : string;
@@ -47 +47 @@
   published
     property FileAttr: TFileAttrib read fAttr write fAttr;
-    property InSubFolders : boolean read fSubFolder write fSubFolder;
+    property InSubFolders : Boolean read fSubFolder write fSubFolder;
     property Path : string read fPath write SetPath;
     property FileMask : string read fFileMask write fFileMask ;
@@ -79 +79 @@
   FileMask := FilterAll;
   FileAttr := [ffaAnyFile];
-  s := TStringList.Create;
+  S := TStringList.Create;
 end;
 
 destructor TFindFile.Destroy;
 begin
-  s.Free;
+  S.Free;
   inherited Destroy;
 end;
@@ -101 +101 @@
 function TFindFile.SearchForFiles: TStringList;
 begin
-  s.Clear;
+  S.Clear;
   try
     FileSearch(Path);
   finally
-    Result := s;
+    Result := S;
   end;
 end;
@@ -111 +111 @@
 procedure TFindFile.FileSearch(const InPath : string);
 var Rec  : TSearchRec;
-    Attr : integer;
+    Attr : Integer;
 begin
   Attr := 0;
@@ -125 +125 @@
   try
     repeat
-      s.Add(inPath + Rec.Name);
+      S.Add(inPath + Rec.Name);
     until SysUtils.FindNext(Rec) <> 0;
   finally

trunk/Packages/Common/UFormAbout.pas

@@ -83 +83 @@
 end.
 
+

trunk/Packages/Common/UGeometric.pas

@@ -52 +52 @@
 function PointToLineDistance(const P, V, W: TPoint): Integer;
 var
-  l2, t: Double;
+  l2, T: Double;
   tt: TPoint;
 begin
@@ -165 +165 @@
 end.
 
+

trunk/Packages/Common/UJobProgressView.pas

@@ -221 +221 @@
       for I := 0 to ListViewJobs.Items.Count - 1 do
       begin
-        ItemRect := ListViewJobs.Items[i].DisplayRect(drBounds);
+        ItemRect := ListViewJobs.Items[I].DisplayRect(drBounds);
         Maxh := Max(Maxh, ItemRect.Top + (ItemRect.Bottom - ItemRect.Top));
       end;

trunk/Packages/Common/UMetaCanvas.pas

@@ -124 +124 @@
     procedure SetWidth(AValue: Integer); override;
     function GetWidth: Integer; override;
-    procedure DoLine (x1,y1,x2,y2:integer); override;
+    procedure DoLine (x1,y1,x2,y2:Integer); override;
     procedure DoTextOut(X, Y: Integer; Text: string); override;
     procedure DoRectangle(const Bounds: TRect); override;
@@ -451 +451 @@
 end;
 
-procedure TMetaCanvas.DoLine(x1, y1, x2, y2: integer);
+procedure TMetaCanvas.DoLine(x1, y1, x2, y2: Integer);
 var
   NewObj: TCanvasLine;
@@ -665 +665 @@
 end.
 
+

trunk/Packages/Common/UPrefixMultiplier.pas

@@ -30 +30 @@
   BasePrefixMultipliers: TPrefixMultiplierDef =
   (
-    (ShortText: 'y'; FullText: 'yocto'; Value: 1e-24),
-          (ShortText: 'z'; FullText: 'zepto'; Value: 1e-21),
-    (ShortText: 'a'; FullText: 'atto'; Value: 1e-18),
-    (ShortText: 'f'; FullText: 'femto'; Value: 1e-15),
-    (ShortText: 'p'; FullText: 'piko'; Value: 1e-12),
-    (ShortText: 'n'; FullText: 'nano'; Value: 1e-9),
-    (ShortText: 'u'; FullText: 'mikro'; Value: 1e-6),
-    (ShortText: 'm'; FullText: 'mili'; Value: 1e-3),
+    (ShortText: 'y'; FullText: 'yocto'; Value: 1E-24),
+          (ShortText: 'z'; FullText: 'zepto'; Value: 1E-21),
+    (ShortText: 'a'; FullText: 'atto'; Value: 1E-18),
+    (ShortText: 'f'; FullText: 'femto'; Value: 1E-15),
+    (ShortText: 'p'; FullText: 'piko'; Value: 1E-12),
+    (ShortText: 'n'; FullText: 'nano'; Value: 1E-9),
+    (ShortText: 'u'; FullText: 'mikro'; Value: 1E-6),
+    (ShortText: 'm'; FullText: 'mili'; Value: 1E-3),
     (ShortText: ''; FullText: ''; Value: 1e0),
     (ShortText: 'k'; FullText: 'kilo'; Value: 1e3),
@@ -51 +51 @@
   TimePrefixMultipliers: TPrefixMultiplierDef =
   (
-    (ShortText: 'ys'; FullText: 'yocto'; Value: 1e-24),
-          (ShortText: 'zs'; FullText: 'zepto'; Value: 1e-21),
-    (ShortText: 'as'; FullText: 'atto'; Value: 1e-18),
-    (ShortText: 'fs'; FullText: 'femto'; Value: 1e-15),
-    (ShortText: 'ps'; FullText: 'piko'; Value: 1e-12),
-    (ShortText: 'ns'; FullText: 'nano'; Value: 1e-9),
-    (ShortText: 'us'; FullText: 'mikro'; Value: 1e-6),
-    (ShortText: 'ms'; FullText: 'mili'; Value: 1e-3),
+    (ShortText: 'ys'; FullText: 'yocto'; Value: 1E-24),
+          (ShortText: 'zs'; FullText: 'zepto'; Value: 1E-21),
+    (ShortText: 'as'; FullText: 'atto'; Value: 1E-18),
+    (ShortText: 'fs'; FullText: 'femto'; Value: 1E-15),
+    (ShortText: 'ps'; FullText: 'piko'; Value: 1E-12),
+    (ShortText: 'ns'; FullText: 'nano'; Value: 1E-9),
+    (ShortText: 'us'; FullText: 'mikro'; Value: 1E-6),
+    (ShortText: 'ms'; FullText: 'mili'; Value: 1E-3),
     (ShortText: 's'; FullText: 'sekunda'; Value: 1),
     (ShortText: 'min'; FullText: 'minuta'; Value: 60),

trunk/Packages/Common/UResetableThread.pas

@@ -296 +296 @@
 end.
 
+

trunk/Packages/Common/UScaleDPI.pas

@@ -259 +259 @@
     begin
       ImgList.Add(Temp[I], nil);
-      Temp[i].Free;
+      Temp[I].Free;
     end;
   finally

trunk/Packages/Common/UStringTable.pas

@@ -39 +39 @@
 function TStringTable.GetColCount: Integer;
 begin
-  Result := Size.x;
+  Result := Size.X;
 end;
 

trunk/Packages/Common/UTheme.pas

@@ -188 +188 @@
 
 end.
+

trunk/Packages/Common/UTranslator.pas

@@ -420 +420 @@
 
   if Lang = '' then begin
-    for i := 1 to Paramcount - 1 do
-      if (ParamStr(i) = '--LANG') or (ParamStr(i) = '-l') or
-        (ParamStr(i) = '--lang') then
-        Lang := ParamStr(i + 1);
+    for I := 1 to Paramcount - 1 do
+      if (ParamStr(I) = '--LANG') or (ParamStr(I) = '-l') or
+        (ParamStr(I) = '--lang') then
+        Lang := ParamStr(I + 1);
   end;
   if Lang = '' then begin
@@ -473 +473 @@
       DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      exit;
+      Exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' + DirectorySeparator + LangID +
       DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      exit;
+      Exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator
       + LangID + DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      exit;
+      Exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator
@@ -489 +489 @@
       ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      exit;
+      Exit;
 
     {$IFDEF UNIX}
@@ -496 +496 @@
       ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      exit;
+      Exit;
     {$ENDIF}
     // Let us search for reducted files
-    LangShortID := copy(LangID, 1, 2);
+    LangShortID := Copy(LangID, 1, 2);
     // At first, check all was checked
     Result := ExtractFilePath(ParamStrUTF8(0)) + LangShortID +
       DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      exit;
+      Exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' + DirectorySeparator +
@@ -510 +510 @@
       ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      exit;
+      Exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator
@@ -516 +516 @@
       ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      exit;
+      Exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator
@@ -522 +522 @@
       ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      exit;
+      Exit;
 
     // Full language in file name - this will be default for the project
@@ -529 +529 @@
       Result := ExtractFilePath(ParamStrUTF8(0)) + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangID])) + LCExt;
       if FileExistsUTF8(Result) then
-        exit;
+        Exit;
       // Common location (like in Lazarus)
       Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator +
         ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangID])) + LCExt;
       if FileExistsUTF8(Result) then
-        exit;
+        Exit;
 
       Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' +
         DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangID])) + LCExt;
       if FileExistsUTF8(Result) then
-        exit;
+        Exit;
     except
       Result := ''; // Or do something else (useless)
@@ -548 +548 @@
       ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      exit;
+      Exit;
     {$ENDIF}
     Result := ExtractFilePath(ParamStrUTF8(0)) + ChangeFileExt(
       ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangShortID])) + LCExt;
     if FileExistsUTF8(Result) then
-      exit;
+      Exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator +
       ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangShortID])) + LCExt;
     if FileExistsUTF8(Result) then
-      exit;
+      Exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' + DirectorySeparator +
       ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangShortID])) + LCExt;
     if FileExistsUTF8(Result) then
-      exit;
+      Exit;
   end;