paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 07:18:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed setting TEdit properties after creating handle

Browse Source 
git-svn-id: trunk@3725 -
This commit is contained in:
mattias 2002-12-22 23:25:34 +00:00
parent 204bb4d8fa
commit 847131452a
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/customedit.inc
View File

@ -38,6 +38,12 @@ begin
end;
end;
procedure TCustomEdit.CreateWnd;
begin
inherited CreateWnd;
CNSendMessage(LM_SETPROPERTIES, Self, nil);
end;
{------------------------------------------------------------------------------
Method: TCustomEdit.Create
Params: none
@ -222,6 +228,7 @@ procedure TCustomEdit.SetEchoMode(Val : TEchoMode);
begin
if (Val <> FEchoMode) then begin
FEchoMode:= Val;
writeln('TCustomEdit.SetEchoMode ',FEchoMode=emPassword,' ',HandleAllocated);
if HandleAllocated then
CNSendMessage(LM_SETPROPERTIES, Self, nil);
end;
@ -303,6 +310,9 @@ end;
{ =============================================================================
$Log$
Revision 1.15 2002/12/22 23:25:34 mattias
fixed setting TEdit properties after creating handle
Revision 1.14 2002/12/12 17:47:46 mattias
new constants for compatibility

4
lcl/stdctrls.pp
View File

@ -437,6 +437,7 @@ type
procedure SetReadOnly(Value : Boolean);
Protected
Procedure DoAutoSize; Override;
procedure CreateWnd; override;
procedure CMTextChanged(Var Message : TLMessage); message CM_TextChanged;
procedure Change; dynamic;
@ -1386,6 +1387,9 @@ end.
{ =============================================================================
$Log$
Revision 1.70 2002/12/22 23:25:34 mattias
fixed setting TEdit properties after creating handle
Revision 1.69 2002/12/12 17:47:45 mattias
new constants for compatibility