Selaa lähdekoodia

* another fix. unicode <> ascii swap

git-svn-id: trunk@10326 -
marco 17 vuotta sitten
vanhempi
commit
a4eab5ca58
1 muutettua tiedostoa jossa 2 lisäystä ja 2 poistoa
  1. 2 2
      packages/winunits-base/src/commdlg.pp

+ 2 - 2
packages/winunits-base/src/commdlg.pp

@@ -469,7 +469,7 @@ Type
      tagPDW = TPRINTDLGW;
      tagPDW = TPRINTDLGW;
      TPDW = TPRINTDLGW;
      TPDW = TPRINTDLGW;
      PPDW = ^TPRINTDLGW;
      PPDW = ^TPRINTDLGW;
-     {$ifdef unicode}
+     {$ifndef unicode}
 	  LPPRINTDLG = ^TPRINTDLGA;
 	  LPPRINTDLG = ^TPRINTDLGA;
       PPRINTDLG = ^TPRINTDLGA;
       PPRINTDLG = ^TPRINTDLGA;
       _PRINTDLG = TPRINTDLGA; 
       _PRINTDLG = TPRINTDLGA; 
@@ -562,7 +562,7 @@ Type
 Const
 Const
   comctl32 = 'comctl32.dll';
   comctl32 = 'comctl32.dll';
 
 
-{$ifdef unicode}
+{$ifndef unicode}
 function GetOpenFileName(_para1:LPOPENFILENAME):WINBOOL; stdcall; external 'comdlg32' name 'GetOpenFileNameA';
 function GetOpenFileName(_para1:LPOPENFILENAME):WINBOOL; stdcall; external 'comdlg32' name 'GetOpenFileNameA';
 function GetSaveFileName(_para1:LPOPENFILENAME):WINBOOL; stdcall; external 'comdlg32' name 'GetSaveFileNameA';
 function GetSaveFileName(_para1:LPOPENFILENAME):WINBOOL; stdcall; external 'comdlg32' name 'GetSaveFileNameA';
 function GetFileTitle(_para1:LPCSTR; _para2:LPSTR; _para3:WORD):integer; stdcall; external 'comdlg32' name 'GetFileTitleA';
 function GetFileTitle(_para1:LPCSTR; _para2:LPSTR; _para3:WORD):integer; stdcall; external 'comdlg32' name 'GetFileTitleA';