- Timestamp:
- Mar 16, 2022, 11:41:49 AM (3 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormContact.pas
r123 r124 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 9 ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, Buttons, UContact, LCLIntf, 10 UFormProperties, DateUtils, Gtk2Globals,UContactImage, ubarcodes;10 UFormProperties, DateUtils, {$IFDEF LCLGTK2}Gtk2Globals, {$ENDIF}UContactImage, ubarcodes; 11 11 12 12 type -
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.