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;
|
