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

designer: formatting, + add misc debugLn

Browse Source 
git-svn-id: trunk@16858 -
This commit is contained in:
paul 2008-10-03 09:26:48 +00:00
parent 1ea08777de
commit 942fc72cd3
2 changed files with 30 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
designer/designer.pp
View File

@ -2409,6 +2409,7 @@ begin
AComponent:=FLookupRoot.Components[i];
if ComponentIsNonVisual(AComponent) then begin
Diff:=aDDC.FormOrigin;
//DebugLn(['aDDC.FormOrigin - ', Diff.X, ' : ' ,Diff.Y]);
// non-visual component
ItemLeftTop:=NonVisualComponentLeftTop(AComponent);
ItemLeft:=ItemLeftTop.X-Diff.X;

27
designer/designerprocs.pas
View File

@ -37,8 +37,12 @@ uses
Graphics, FormEditingIntf;
type
TDesignerDCFlag = (ddcDCOriginValid, ddcFormOriginValid,
ddcFormClientOriginValid, ddcSizeValid);
TDesignerDCFlag = (
ddcDCOriginValid, // please comment
ddcFormOriginValid, //
ddcFormClientOriginValid, //
ddcSizeValid //
);
TDesignerDCFlags = set of TDesignerDCFlag;
TDesignerDeviceContext = class
@ -356,9 +360,11 @@ function TDesignerDeviceContext.GetFormOrigin: TPoint;
// returns the DC origin relative to the form client origin
// For example: The DC of the client area of the form itself will return 0,0
begin
if not (ddcFormOriginValid in FFlags) then begin
if not (ddcFormOriginValid in FFlags) then
begin
GetDCOriginRelativeToWindow(FDC, FForm.Handle, FFormOrigin);
Include(FFlags, ddcFormOriginValid);
// DebugLn(['New origin: ', FFormOrigin.X, ':', FFormOrigin.Y]);
end;
Result := FFormOrigin;
end;
@ -386,13 +392,13 @@ procedure TDesignerDeviceContext.Clear;
begin
Restore;
FDC := 0;
FFlags:=FFlags-[ddcFormOriginValid,ddcFormClientOriginValid,ddcDCOriginValid,
ddcSizeValid];
FFlags := FFlags - [ddcFormOriginValid, ddcFormClientOriginValid, ddcDCOriginValid, ddcSizeValid];
end;
procedure TDesignerDeviceContext.Save;
begin
if FSavedDC=0 then begin
if FSavedDC = 0 then
begin
FSavedDC := SaveDC(DC);
FCanvas.Handle := FDC;
end;
@ -400,7 +406,8 @@ end;
procedure TDesignerDeviceContext.Restore;
begin
if FSavedDC<>0 then begin
if FSavedDC <> 0 then
begin
FCanvas.Handle := 0;
RestoreDC(DC, FSavedDC);
FSavedDC := 0;
@ -414,13 +421,13 @@ var
ASize: TPoint;
begin
if (ARight < 0) or (ABottom < 0) then
Result:=false
Result := False
else begin
ASize := DCSize;
if (ALeft >= ASize.X) or (ATop >= ASize.Y) then
Result:=false
Result := False
else
Result:=true;
Result := True;
end;
end;