Changeset 558 for Common/UCommon.pas

Timestamp:

Apr 25, 2022, 6:32:09 PM (3 years ago)

Author:

chronos

Message:

• Modified: Updated Common package to version 0.10.

File:

• Common/UCommon.pas (modified) (3 diffs)

Common/UCommon.pas

@@ -1 +1 @@
 unit UCommon;
-
-{$mode delphi}
 
 interface
@@ -8 +6 @@
   {$IFDEF WINDOWS}Windows,{$ENDIF}
   {$IFDEF UNIX}baseunix,{$ENDIF}
-  Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf,
+  Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf, Graphics,
   FileUtil; //, ShFolder, ShellAPI;
 
@@ -34 +32 @@
   DLLHandle1: HModule;
 
-{$IFDEF WINDOWS}
-  GetUserNameEx: procedure (NameFormat: DWORD;
-    lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
-{$ENDIF}
+  {$IFDEF WINDOWS}
+    GetUserNameEx: procedure (NameFormat: DWORD;
+      lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
+  {$ENDIF}
+
+const
+  clLightBlue = TColor($FF8080);
+  clLightGreen = TColor($80FF80);
+  clLightRed = TColor($8080FF);
 
 function AddLeadingZeroes(const aNumber, Length : integer) : string;