[utf8vcl-cvs] utf8vcl TestForm.dfm, 1.13, 1.14 TestForm.pas, 1.18, 1.19 UTF8Test.dpr, 1.3, 1.4 UTF8VCL.pas, 1.17, 1.18 UTF8VCLControls.pas, 1.2, 1.3

[Bart v. d. W. <blu...@us...>]

Update of /cvsroot/utf8vcl/utf8vcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv26183

Modified Files:
	TestForm.dfm TestForm.pas UTF8Test.dpr UTF8VCL.pas 
	UTF8VCLControls.pas 
Log Message:
Make FileOpenDialog work, the filter string was invalid in the dfm.
Fix application title, the initialization order was fubarred, implementation sections are also regarded when determining the order :(


Index: UTF8VCLControls.pas
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/UTF8VCLControls.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** UTF8VCLControls.pas	17 Mar 2007 18:36:43 -0000	1.2
--- UTF8VCLControls.pas	18 Mar 2007 13:25:37 -0000	1.3
***************
*** 62,65 ****
--- 62,68 ----
  end;
  
+ initialization
+   HookTWinControlDoKeyPress;
+ 
  end.
  

Index: UTF8VCL.pas
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/UTF8VCL.pas,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** UTF8VCL.pas	18 Mar 2007 11:26:40 -0000	1.17
--- UTF8VCL.pas	18 Mar 2007 13:25:37 -0000	1.18
***************
*** 17,21 ****
  uses
    Windows, Messages, SysUtils, Classes, CommDlg,
!   UTF8VCLUtils, UTF8VCLMessages, UTF8VCLControls;
  
  function _CreateWindowExW(dwExStyle: DWORD; lpClassName: PWideChar;
--- 17,21 ----
  uses
    Windows, Messages, SysUtils, Classes, CommDlg,
!   UTF8VCLUtils, UTF8VCLMessages;
  
  function _CreateWindowExW(dwExStyle: DWORD; lpClassName: PWideChar;
***************
*** 390,393 ****
--- 390,394 ----
      finally
        FreeMem(C);
+       FreeMem(X);
      end;
    end
***************
*** 626,631 ****
    if Active then
    begin
-     HookTWinControlDoKeyPress;
- 
      HookUser32Func('SendMessageA', @SendMessageAIntercept); // do not localize
      HookUser32Func('PostMessageA', @PostMessageAIntercept); // do not localize
--- 627,630 ----

Index: TestForm.dfm
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/TestForm.dfm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** TestForm.dfm	18 Mar 2007 11:26:40 -0000	1.13
--- TestForm.dfm	18 Mar 2007 13:25:36 -0000	1.14
***************
*** 244,248 ****
      DefaultExt = 'OpenDialog1'
      FileName = 'OpenDialog1'
!     Filter = 'OpenDialog1'
      InitialDir = 'OpenDialog1'
      Title = 'OpenDialog1'
--- 244,248 ----
      DefaultExt = 'OpenDialog1'
      FileName = 'OpenDialog1'
!     Filter = 'StrangeFiles|*.*'
      InitialDir = 'OpenDialog1'
      Title = 'OpenDialog1'

Index: UTF8Test.dpr
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/UTF8Test.dpr,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** UTF8Test.dpr	16 Mar 2007 23:39:11 -0000	1.3
--- UTF8Test.dpr	18 Mar 2007 13:25:36 -0000	1.4
***************
*** 9,15 ****
    UTF8VCL in 'UTF8VCL.pas',
    UTF8VCLUtils in 'UTF8VCLUtils.pas',
    Forms,
!   TestForm in 'TestForm.pas' {Form1},
!   UTF8VCLControls in 'UTF8VCLControls.pas';
  
  {$R *.res}
--- 9,15 ----
    UTF8VCL in 'UTF8VCL.pas',
    UTF8VCLUtils in 'UTF8VCLUtils.pas',
+   UTF8VCLControls in 'UTF8VCLControls.pas',
    Forms,
!   TestForm in 'TestForm.pas' {Form1};
  
  {$R *.res}

Index: TestForm.pas
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/TestForm.pas,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** TestForm.pas	18 Mar 2007 11:26:40 -0000	1.18
--- TestForm.pas	18 Mar 2007 13:25:36 -0000	1.19
***************
*** 103,107 ****
    CheckTranslation(RichEdit1.Name, RichEdit1.Text);
    Application.Title := TestText;
!   CheckTranslation(Application.Name, Application.Title);
    Self.Caption := TestText;
    CheckTranslation(Self.Name, Self.Caption);
--- 103,107 ----
    CheckTranslation(RichEdit1.Name, RichEdit1.Text);
    Application.Title := TestText;
!   CheckTranslation('Application.Title', Application.Title);
    Self.Caption := TestText;
    CheckTranslation(Self.Name, Self.Caption);
***************
*** 146,149 ****
--- 146,151 ----
    Content: string;
  begin
+   OpenDialog1.Filter := TestText +'|*.*';
+   OpenDialog1.FileName := TestText;
    OpenDialog1.Execute;