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

lcl, designer: better invalidate designer on move, resize (issue #0013886)

Browse Source 
git-svn-id: trunk@21875 -
This commit is contained in:
paul 2009-09-26 03:26:52 +00:00
parent 5321a16744
commit b680c53595
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
designer/designer.pp
View File

@ -1544,8 +1544,6 @@ begin
begin begin
ControlSelection.CheckForLCLChanges(True); ControlSelection.CheckForLCLChanges(True);
end; end;
if (Sender <> Form) and (Sender.Parent <> nil) then
Sender.Parent.Invalidate;
end; end;
function TDesigner.MoveControl(Sender: TControl; TheMessage: TLMMove): Boolean; function TDesigner.MoveControl(Sender: TControl; TheMessage: TLMMove): Boolean;
@ -1564,8 +1562,6 @@ begin
OnPropertiesChanged(Self); OnPropertiesChanged(Self);
end; end;
end; end;
if (Sender <> Form) and (Sender.Parent <> nil) then
Sender.Parent.Invalidate;
end; end;
procedure TDesigner.MouseDownOnControl(Sender: TControl; procedure TDesigner.MouseDownOnControl(Sender: TControl;

11
lcl/include/control.inc
View File

@ -421,11 +421,14 @@ begin
if FSizeLock>0 then exit; if FSizeLock>0 then exit;
// invalidate // invalidate
if (not (csLoading in ComponentState)) if (csDesigning in ComponentState) and (Parent <> nil) then
and (not (Self is TWinControl)) then Parent.Invalidate
else
if (not (csLoading in ComponentState)) and (not (Self is TWinControl)) then
Invalidate; Invalidate;
// notify user about resize // notify user about resize
if (not (csLoading in ComponentState)) then begin if (not (csLoading in ComponentState)) then
begin
Resize; Resize;
CheckOnChangeBounds; CheckOnChangeBounds;
// for delphi compatibility send size/move messages // for delphi compatibility send size/move messages
@ -4815,7 +4818,7 @@ end;
Event handler for LMSize messages. Event handler for LMSize messages.
Overriden by TWinControl.WMSize. Overriden by TWinControl.WMSize.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TControl.WMSize(Var Message : TLMSize); procedure TControl.WMSize(var Message : TLMSize);
begin begin
{$IFDEF CHECK_POSITION} {$IFDEF CHECK_POSITION}
if CheckPosition(Self) then if CheckPosition(Self) then