[utf8vcl-cvs] utf8vcl UTF8VCL.pas,1.27,1.28

[Robert M. <mar...@us...>]

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}