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

MG: added jitform error messagedlg

Browse Source 
git-svn-id: trunk@2014 -
This commit is contained in:
lazarus 2002-08-17 23:40:38 +00:00
parent 06b1f43748
commit 93cf16fbfb
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/designer.pp
View File

@ -402,7 +402,11 @@ begin
DDC.SetDC(Form,TheMessage.DC);
{$IFDEF VerboseDesignerDraw}
writeln('TDesigner.PaintControl D ',Sender.Name,':',Sender.ClassName,
' DC=',HexStr(DDC.DC,8),' FormOrigin=',DDC.FormOrigin.X,',',DDC.FormOrigin.Y);
' DC=',HexStr(DDC.DC,8),
' FormOrigin=',DDC.FormOrigin.X,',',DDC.FormOrigin.Y,
' DCOrigin=',DDC.DCOrigin.X,',',DDC.DCOrigin.Y,
' FormClientOrigin=',DDC.FormClientOrigin.X,',',DDC.FormClientOrigin.Y
);
{$ENDIF}
if (Sender is TWinControl)
and (csAcceptsControls in Sender.ControlStyle) then begin