paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 12:08:09 +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;

51
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,11 +360,13 @@ 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
GetDCOriginRelativeToWindow(FDC,FForm.Handle,FFormOrigin);
Include(FFlags,ddcFormOriginValid);
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;
Result := FFormOrigin;
end;
constructor TDesignerDeviceContext.Create;
@ -385,25 +391,26 @@ end;
procedure TDesignerDeviceContext.Clear;
begin
Restore;
FDC:=0;
FFlags:=FFlags-[ddcFormOriginValid,ddcFormClientOriginValid,ddcDCOriginValid,
ddcSizeValid];
FDC := 0;
FFlags := FFlags - [ddcFormOriginValid, ddcFormClientOriginValid, ddcDCOriginValid, ddcSizeValid];
end;
procedure TDesignerDeviceContext.Save;
begin
if FSavedDC=0 then begin
FSavedDC:=SaveDC(DC);
FCanvas.Handle:=FDC;
if FSavedDC = 0 then
begin
FSavedDC := SaveDC(DC);
FCanvas.Handle := FDC;
end;
end;
procedure TDesignerDeviceContext.Restore;
begin
if FSavedDC<>0 then begin
FCanvas.Handle:=0;
RestoreDC(DC,FSavedDC);
FSavedDC:=0;
if FSavedDC <> 0 then
begin
FCanvas.Handle := 0;
RestoreDC(DC, FSavedDC);
FSavedDC := 0;
end;
end;
@ -413,14 +420,14 @@ function TDesignerDeviceContext.RectVisible(ALeft, ATop, ARight,
var
ASize: TPoint;
begin
if (ARight<0) or (ABottom<0) then
Result:=false
if (ARight < 0) or (ABottom < 0) then
Result := False
else begin
ASize:=DCSize;
if (ALeft>=ASize.X) or (ATop>=ASize.Y) then
Result:=false
ASize := DCSize;
if (ALeft >= ASize.X) or (ATop >= ASize.Y) then
Result := False
else
Result:=true;
Result := True;
end;
end;