Update of /cvsroot/utf8vcl/utf8vcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv21513
Modified Files:
JVCLTest.dpr TestForm.pas UTF8VCLMessages.pas
Log Message:
remove unused dependecy on gauges.
allways pass a buffer for some gettext stuff.
Index: JVCLTest.dpr
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/JVCLTest.dpr,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** JVCLTest.dpr 29 Mar 2007 11:59:37 -0000 1.1
--- JVCLTest.dpr 30 Mar 2007 22:27:22 -0000 1.2
***************
*** 2,5 ****
--- 2,6 ----
uses
+ ShareMem,
Forms,
JVCLMainTest in 'JVCLMainTest.pas' {Form1},
Index: UTF8VCLMessages.pas
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/UTF8VCLMessages.pas,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** UTF8VCLMessages.pas 28 Mar 2007 18:36:04 -0000 1.24
--- UTF8VCLMessages.pas 30 Mar 2007 22:27:22 -0000 1.25
***************
*** 127,134 ****
Assert(not SpecialWndProc(Cardinal(@Proc)));
L := Proc(hWnd, CB_GETLBTEXTLEN, InWParam, UnusedLParam);
! if L > 0 then
! GetMem(Pointer(OutLParam), SizeOf(Utf8Byte) * (L + 1))
! else
! OutLParam := LPARAM(nil);
end;
EM_GETLINE:
--- 127,131 ----
Assert(not SpecialWndProc(Cardinal(@Proc)));
L := Proc(hWnd, CB_GETLBTEXTLEN, InWParam, UnusedLParam);
! GetMem(Pointer(OutLParam), SizeOf(Utf8Byte) * (L + 1))
end;
EM_GETLINE:
***************
*** 305,312 ****
begin
L := CallWindowProcW(@Proc, hWnd, CB_GETLBTEXTLEN, InWParam, UnusedLParam);
! if L > 0 then
! GetMem(Pointer(OutLParam), SizeOf(WideChar) * (L + 1))
! else
! OutLParam := LPARAM(nil);
end;
EM_GETLINE:
--- 302,306 ----
begin
L := CallWindowProcW(@Proc, hWnd, CB_GETLBTEXTLEN, InWParam, UnusedLParam);
! GetMem(Pointer(OutLParam), SizeOf(WideChar) * (L + 1))
end;
EM_GETLINE:
Index: TestForm.pas
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/TestForm.pas,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** TestForm.pas 25 Mar 2007 15:55:16 -0000 1.25
--- TestForm.pas 30 Mar 2007 22:27:22 -0000 1.26
***************
*** 12,16 ****
Windows, SysUtils, Classes, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Menus, Grids, ValEdit, Buttons, ExtCtrls,
! Mask, ActnList, CheckLst, DBGrids, Gauges, ShellCtrls;
type
--- 12,16 ----
Windows, SysUtils, Classes, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Menus, Grids, ValEdit, Buttons, ExtCtrls,
! Mask, ActnList, CheckLst, DBGrids, ShellCtrls;
type
|
