paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:19:21 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -18,6 +18,10 @@ unit shlobj;
interface interface
{$ifdef FPC_OS_UNICODE}
{$define UNICODE}
{$endif}
uses uses
windows,activex,shellapi,commctrl; windows,activex,shellapi,commctrl;
@ -1126,7 +1130,17 @@ Type
LPSHFOLDERCUSTOMSETTINGSW = PSHFOLDERCUSTOMSETTINGSW; LPSHFOLDERCUSTOMSETTINGSW = PSHFOLDERCUSTOMSETTINGSW;
PLPSHFOLDERCUSTOMSETTINGSW = ^LPSHFOLDERCUSTOMSETTINGSW; PLPSHFOLDERCUSTOMSETTINGSW = ^LPSHFOLDERCUSTOMSETTINGSW;
TSHFOLDERCUSTOMSETTINGSW = SHFOLDERCUSTOMSETTINGSW; TSHFOLDERCUSTOMSETTINGSW = SHFOLDERCUSTOMSETTINGSW;
{$ifdef unicode}
LPSHFOLDERCUSTOMSETTINGS = PSHFOLDERCUSTOMSETTINGSW;
PLPSHFOLDERCUSTOMSETTINGS = PLPSHFOLDERCUSTOMSETTINGSW;
TSHFOLDERCUSTOMSETTINGS = SHFOLDERCUSTOMSETTINGSW;
SHFOLDERCUSTOMSETTINGS = SHFOLDERCUSTOMSETTINGSW;
{$else}
LPSHFOLDERCUSTOMSETTINGS = PSHFOLDERCUSTOMSETTINGSA;
PLPSHFOLDERCUSTOMSETTINGS = PLPSHFOLDERCUSTOMSETTINGSA;
TSHFOLDERCUSTOMSETTINGS = SHFOLDERCUSTOMSETTINGSA;
SHFOLDERCUSTOMSETTINGS = SHFOLDERCUSTOMSETTINGSA;
{$endif}
_browseinfoA = record _browseinfoA = record
hwndOwner : HWND; hwndOwner : HWND;
pidlRoot : LPCITEMIDLIST; pidlRoot : LPCITEMIDLIST;
@ -1160,7 +1174,21 @@ Type
LPBROWSEINFOW = PbrowseinfoW; LPBROWSEINFOW = PbrowseinfoW;
PLPBROWSEINFOW = ^LPBROWSEINFOW; PLPBROWSEINFOW = ^LPBROWSEINFOW;
TBROWSEINFOW = BROWSEINFOW; 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; P_EnumImageStoreDATAtag = ^_EnumImageStoreDATAtag;
_EnumImageStoreDATAtag = record _EnumImageStoreDATAtag = record
szPath : array[0..(MAX_PATH)-1] of WCHAR; szPath : array[0..(MAX_PATH)-1] of WCHAR;