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

lcl: cleanup

Browse Source 
git-svn-id: trunk@25295 -
This commit is contained in:
paul 2010-05-10 13:22:00 +00:00
parent 581c468507
commit 65b652094f
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/control.inc
View File

@ -702,11 +702,9 @@ end;
------------------------------------------------------------------------------}
procedure TControl.CMVisibleChanged(var Message : TLMessage);
begin
if (not (csDesigning in ComponentState)
or (csNoDesignVisible in ControlStyle))
and (not (csLoading in ComponentState)) then begin
InvalidateControl(true, FVisible and (csOpaque in ControlStyle),true);
end;
if (not (csDesigning in ComponentState) or (csNoDesignVisible in ControlStyle)) and
(not (csLoading in ComponentState)) then
InvalidateControl(True, FVisible and (csOpaque in ControlStyle), True);
end;
procedure TControl.CMTextChanged(var Message: TLMessage);