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

fixed setting TMaskEdit.Text while handle not allocated

Browse Source 
git-svn-id: trunk@4590 -
This commit is contained in:
mattias 2003-09-09 11:44:56 +00:00
parent 78d8cb65a4
commit 1ac4440607
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/maskedit.pp
View File

@ -658,9 +658,11 @@ end;
procedure TCustomMaskEdit.SetEditText(const Value: string); procedure TCustomMaskEdit.SetEditText(const Value: string);
begin begin
if GetEditText <> Value then if GetEditText <> Value then begin
begin if HandleAllocated then
SetTextBuf(PChar(Value)); SetTextBuf(PChar(Value))
else
inherited Text:=Value;
CheckCursor; CheckCursor;
end; end;
end; end;