浏览代码

* another fix. unicode <> ascii swap

git-svn-id: trunk@10326 -
marco 17 年之前
父节点
当前提交
a4eab5ca58
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      packages/winunits-base/src/commdlg.pp

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

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