Changeset 124

Timestamp:

Mar 16, 2022, 11:41:49 AM (2 years ago)

Author:

chronos

Message:

• Fixed: Build under Windows.

Location:

trunk

Files:

• Forms/UFormContact.pas (modified) (1 diff)
• Packages/Common/UCommon.pas (modified) (1 diff)

trunk/Forms/UFormContact.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, Buttons, UContact, LCLIntf,
-  UFormProperties, DateUtils, Gtk2Globals, UContactImage, ubarcodes;
+  UFormProperties, DateUtils, {$IFDEF LCLGTK2}Gtk2Globals, {$ENDIF}UContactImage, ubarcodes;
 
 type

trunk/Packages/Common/UCommon.pas

@@ -34 +34 @@
   DLLHandle1: HModule;
 
+  {$IFDEF WINDOWS}
+    GetUserNameEx: procedure (NameFormat: DWORD;
+      lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
+  {$ENDIF}
+
 const
   clLightBlue = TColor($FF8080);
   clLightGreen = TColor($80FF80);
   clLightRed = TColor($8080FF);
-
-{$IFDEF WINDOWS}
-  GetUserNameEx: procedure (NameFormat: DWORD;
-    lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
-{$ENDIF}
 
 function AddLeadingZeroes(const aNumber, Length : integer) : string;