paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 06:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some {$ifdef unicode} added. + FPC_OS_UNICODE shebang.

Browse Source 
git-svn-id: trunk@24447 -
This commit is contained in:
marco 2013-05-05 09:32:24 +00:00
parent c9dce154fd
commit f080e173c5
1 changed files with 31 additions and 3 deletions

34
packages/winunits-base/src/shlobj.pp
View File

@ -16,7 +16,11 @@
{$mode objfpc}
unit shlobj;
interface
interface
{$ifdef FPC_OS_UNICODE}
{$define UNICODE}
{$endif}
uses
windows,activex,shellapi,commctrl;
@ -1126,7 +1130,17 @@ Type
LPSHFOLDERCUSTOMSETTINGSW = PSHFOLDERCUSTOMSETTINGSW;
PLPSHFOLDERCUSTOMSETTINGSW = ^LPSHFOLDERCUSTOMSETTINGSW;
TSHFOLDERCUSTOMSETTINGSW = SHFOLDERCUSTOMSETTINGSW;
{$ifdef unicode}
LPSHFOLDERCUSTOMSETTINGS = PSHFOLDERCUSTOMSETTINGSW;
PLPSHFOLDERCUSTOMSETTINGS = PLPSHFOLDERCUSTOMSETTINGSW;
TSHFOLDERCUSTOMSETTINGS = SHFOLDERCUSTOMSETTINGSW;
SHFOLDERCUSTOMSETTINGS = SHFOLDERCUSTOMSETTINGSW;
{$else}
LPSHFOLDERCUSTOMSETTINGS = PSHFOLDERCUSTOMSETTINGSA;
PLPSHFOLDERCUSTOMSETTINGS = PLPSHFOLDERCUSTOMSETTINGSA;
TSHFOLDERCUSTOMSETTINGS = SHFOLDERCUSTOMSETTINGSA;
SHFOLDERCUSTOMSETTINGS = SHFOLDERCUSTOMSETTINGSA;
{$endif}
_browseinfoA = record
hwndOwner : HWND;
pidlRoot : LPCITEMIDLIST;
@ -1160,7 +1174,21 @@ Type
LPBROWSEINFOW = PbrowseinfoW;
PLPBROWSEINFOW = ^LPBROWSEINFOW;
TBROWSEINFOW = BROWSEINFOW;
{$IFDEF UNICODE}
BROWSEINFO = _browseinfoW;
PBROWSEINFO = PBROWSEINFOW;
PPBROWSEINFO = PPBROWSEINFOW;
LPBROWSEINFO = PbrowseinfoW;
PLPBROWSEINFO = PLPBROWSEINFOW;
TBROWSEINFO = BROWSEINFOW;
{$else}
BROWSEINFO = _browseinfoA;
PBROWSEINFO = PBROWSEINFOA;
TBROWSEINFO = BROWSEINFOA;
PPBROWSEINFO = PPBROWSEINFOA;
LPBROWSEINFO = PbrowseinfoA;
PLPBROWSEINFO = PLPBROWSEINFOA;
{$endif}
P_EnumImageStoreDATAtag = ^_EnumImageStoreDATAtag;
_EnumImageStoreDATAtag = record
szPath : array[0..(MAX_PATH)-1] of WCHAR;