Changeset 112 for trunk/Packages/Common


Ignore:
Timestamp:
Feb 15, 2022, 9:42:57 AM (3 years ago)
Author:
chronos
Message:
  • Fixed: Contact photo was not saved correctly.
  • Fixed: URL contact photo was incorrectly encoded with BASE64 encoding.
  • Fixed: Disabled not correctly working autodetection of max. line length.
  • Fixed: Tab order in Contact name details window.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Packages/Common/UCommon.pas

    r109 r112  
    310310end;
    311311
    312 {$IFDEF Windows}
     312{$IFDEF WINDOWS}
    313313function GetUserName: string;
    314314const
     
    318318begin
    319319  L := MAX_USERNAME_LENGTH + 2;
     320  Result := Default(string);
    320321  SetLength(Result, L);
    321322  if Windows.GetUserName(PChar(Result), L) and (L > 0) then begin
     
    331332  end;
    332333end;
    333 {$endif}
     334{$ENDIF}
    334335
    335336function ComputerName: string;
    336 {$ifdef mswindows}
     337{$IFDEF WINDOWS}
    337338const
    338339 INFO_BUFFER_SIZE = 32767;
     
    349350  end;
    350351end;
    351 {$endif}
    352 {$ifdef unix}
     352{$ENDIF}
     353{$IFDEF UNIX}
    353354var
    354355  Name: UtsName;
     
    358359  Result := Name.Nodename;
    359360end;
    360 {$endif}
    361 
    362 {$ifdef windows}
     361{$ENDIF}
     362
     363{$IFDEF WINDOWS}
    363364function LoggedOnUserNameEx(Format: TUserNameFormat): string;
    364365const
     
    438439procedure LoadLibraries;
    439440begin
    440   {$IFDEF Windows}
     441  {$IFDEF WINDOWS}
    441442  DLLHandle1 := LoadLibrary('secur32.dll');
    442443  if DLLHandle1 <> 0 then
     
    449450procedure FreeLibraries;
    450451begin
    451   {$IFDEF Windows}
     452  {$IFDEF WINDOWS}
    452453  if DLLHandle1 <> 0 then FreeLibrary(DLLHandle1);
    453454  {$ENDIF}
Note: See TracChangeset for help on using the changeset viewer.