Changeset 124 for trunk


Ignore:
Timestamp:
Mar 16, 2022, 11:41:49 AM (3 years ago)
Author:
chronos
Message:
  • Fixed: Build under Windows.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormContact.pas

    r123 r124  
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    99  ComCtrls, ActnList, Menus, ExtCtrls, ExtDlgs, Buttons, UContact, LCLIntf,
    10   UFormProperties, DateUtils, Gtk2Globals, UContactImage, ubarcodes;
     10  UFormProperties, DateUtils, {$IFDEF LCLGTK2}Gtk2Globals, {$ENDIF}UContactImage, ubarcodes;
    1111
    1212type
  • trunk/Packages/Common/UCommon.pas

    r121 r124  
    3434  DLLHandle1: HModule;
    3535
     36  {$IFDEF WINDOWS}
     37    GetUserNameEx: procedure (NameFormat: DWORD;
     38      lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
     39  {$ENDIF}
     40
    3641const
    3742  clLightBlue = TColor($FF8080);
    3843  clLightGreen = TColor($80FF80);
    3944  clLightRed = TColor($8080FF);
    40 
    41 {$IFDEF WINDOWS}
    42   GetUserNameEx: procedure (NameFormat: DWORD;
    43     lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
    44 {$ENDIF}
    4545
    4646function AddLeadingZeroes(const aNumber, Length : integer) : string;
Note: See TracChangeset for help on using the changeset viewer.