Changeset 124 for trunk/Packages
- Timestamp:
- Mar 16, 2022, 11:41:49 AM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/Common/UCommon.pas
r121 r124 34 34 DLLHandle1: HModule; 35 35 36 {$IFDEF WINDOWS} 37 GetUserNameEx: procedure (NameFormat: DWORD; 38 lpNameBuffer: LPSTR; nSize: PULONG); stdcall; 39 {$ENDIF} 40 36 41 const 37 42 clLightBlue = TColor($FF8080); 38 43 clLightGreen = TColor($80FF80); 39 44 clLightRed = TColor($8080FF); 40 41 {$IFDEF WINDOWS}42 GetUserNameEx: procedure (NameFormat: DWORD;43 lpNameBuffer: LPSTR; nSize: PULONG); stdcall;44 {$ENDIF}45 45 46 46 function AddLeadingZeroes(const aNumber, Length : integer) : string;
Note:
See TracChangeset
for help on using the changeset viewer.