paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 12:31:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* small ifdef unicode fix

Browse Source 
git-svn-id: trunk@10267 -
This commit is contained in:
marco 2008-02-10 13:16:39 +00:00
parent 3f3105172d
commit 60c1b69019
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/winunits-base/src/shellapi.pp
View File

@ -341,6 +341,13 @@ Const
BFFM_SETSTATUSTEXTW = (WM_USER + 104); BFFM_SETSTATUSTEXTW = (WM_USER + 104);
BFFM_SETOKTEXT = (WM_USER + 105); // Unicode only BFFM_SETOKTEXT = (WM_USER + 105); // Unicode only
BFFM_SETEXPANDED = (WM_USER + 106); // Unicode only BFFM_SETEXPANDED = (WM_USER + 106); // Unicode only
{$IFDEF UNICODE}
BFFM_SETSTATUSTEXT = BFFM_SETSTATUSTEXTW;
BFFM_SETSELECTION = BFFM_SETSELECTIONW;
{$ELSE}
BFFM_SETSTATUSTEXT = BFFM_SETSTATUSTEXTA;
BFFM_SETSELECTION = BFFM_SETSELECTIONA;
{$ENDIF}
ISHCUTCMDID_DOWNLOADICON = 0; ISHCUTCMDID_DOWNLOADICON = 0;
ISHCUTCMDID_INTSHORTCUTCREATE = 1; ISHCUTCMDID_INTSHORTCUTCREATE = 1;
ACLO_NONE = 0; // don't enumerate anything ACLO_NONE = 0; // don't enumerate anything