paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-19 01:08:34 +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;
end; end;
procedure TCustomEdit.CreateWnd;
begin
inherited CreateWnd;
CNSendMessage(LM_SETPROPERTIES, Self, nil);
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TCustomEdit.Create Method: TCustomEdit.Create
Params: none Params: none
@ -222,6 +228,7 @@ procedure TCustomEdit.SetEchoMode(Val : TEchoMode);
begin begin
if (Val <> FEchoMode) then begin if (Val <> FEchoMode) then begin
FEchoMode:= Val; FEchoMode:= Val;
writeln('TCustomEdit.SetEchoMode ',FEchoMode=emPassword,' ',HandleAllocated);
if HandleAllocated then if HandleAllocated then
CNSendMessage(LM_SETPROPERTIES, Self, nil); CNSendMessage(LM_SETPROPERTIES, Self, nil);
end; end;
@ -303,6 +310,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.14 2002/12/12 17:47:46 mattias
new constants for compatibility new constants for compatibility

4
lcl/stdctrls.pp
View File

@ -437,6 +437,7 @@ type
procedure SetReadOnly(Value : Boolean); procedure SetReadOnly(Value : Boolean);
Protected Protected
Procedure DoAutoSize; Override; Procedure DoAutoSize; Override;
procedure CreateWnd; override;
procedure CMTextChanged(Var Message : TLMessage); message CM_TextChanged; procedure CMTextChanged(Var Message : TLMessage); message CM_TextChanged;
procedure Change; dynamic; procedure Change; dynamic;
@ -1386,6 +1387,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.69 2002/12/12 17:47:45 mattias
new constants for compatibility new constants for compatibility