Update of /cvsroot/utf8vcl/utf8vcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv20389
Modified Files:
UTF8VCL.pas
Log Message:
made NonUTF8DefaultSystemCodePage available
Index: UTF8VCL.pas
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/UTF8VCL.pas,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** UTF8VCL.pas 31 Mar 2007 17:03:48 -0000 1.27
--- UTF8VCL.pas 3 Apr 2007 12:23:20 -0000 1.28
***************
*** 139,142 ****
--- 139,144 ----
NonUTF8DefFrameProc: TDefFrameProcA;
+ NonUTF8DefaultSystemCodePage: Integer;
+
implementation
***************
*** 684,687 ****
--- 686,690 ----
NonUTF8DefMDIChildProc := HookUser32Func('DefMDIChildProcA', @DefMDIChildProcAIntercept); // do not localize
NonUTF8DefDlgProc := HookUser32Func('DefDlgProcA', @DefDlgProcAIntercept); // do not localize
+ NonUTF8DefFrameProc := HookUser32Func('DefFrameProcA', @DefFrameProcAIntercept); // do not localize
NonUTF8GetWindowText := HookUser32Func('GetWindowTextA', @GetWindowTextAIntercept); // do not localize
***************
*** 703,709 ****
NonUTF8GetFileTitle := HookCommdlg32Func('GetFileTitleA', @GetFileTitleAIntercept); // do not localize
NonUTF8ChooseColor := HookCommdlg32Func('ChooseColorA', @ChooseColorAIntercept); // do not localize
-
- NonUTF8DefFrameProc := HookUser32Func('DefFrameProcA', @DefFrameProcAIntercept); // do not localize
-
end
else
--- 706,709 ----
***************
*** 714,717 ****
--- 714,718 ----
initialization
+ NonUTF8DefaultSystemCodePage := GetACP;
ActivateUtf8VCL(True);
{$IF CompilerVersion >= 18.0}
|
