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

designer: cleanup

Browse Source 
git-svn-id: trunk@21839 -
This commit is contained in:
paul 2009-09-23 12:51:46 +00:00
parent 3009135479
commit d7d5afb621
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
designer/designer.pp
View File

@ -1417,22 +1417,18 @@ begin
LastPaintSender:=Sender;
if IsDesignerDC(Form.Handle, TheMessage.DC) then
begin
DoPaintDesignerItems;
end
DoPaintDesignerItems
else
begin
// client grid
if (Sender is TWinControl)
and (csAcceptsControls in Sender.ControlStyle) then begin
if (Sender is TWinControl) and (csAcceptsControls in Sender.ControlStyle) then
PaintClientGrid(TWinControl(Sender),DDC);
end;
if (WidgetSet.GetLCLCapability(lcCanDrawOutsideOnPaint) <> 0) and
not EnvironmentOptions.DesignerPaintLazy then
DoPaintDesignerItems;
end;
// clean up
DDC.Clear;
end;