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

designer: formatting

Browse Source 
git-svn-id: trunk@18801 -
This commit is contained in:
paul 2009-02-23 07:32:49 +00:00
parent 8eef3a2022
commit b260e0bc7d
1 changed files with 42 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
designer/designer.pp
View File

@ -2472,59 +2472,63 @@ var
Icon: TBitmap;
AComponent: TComponent;
begin
for i:=0 to FLookupRoot.ComponentCount-1 do begin
AComponent:=FLookupRoot.Components[i];
if ComponentIsNonVisual(AComponent) then begin
Diff:=aDDC.FormOrigin;
for i := 0 to FLookupRoot.ComponentCount - 1 do
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;
ItemTop:=ItemLeftTop.Y-Diff.Y;
ItemRight:=ItemLeft+NonVisualCompWidth;
ItemBottom:=ItemTop+NonVisualCompWidth;
if not aDDC.RectVisible(ItemLeft,ItemTop,ItemRight,ItemBottom) then
continue;
ItemLeftTop := NonVisualComponentLeftTop(AComponent);
ItemLeft := ItemLeftTop.X - Diff.X;
ItemTop := ItemLeftTop.Y-Diff.Y;
ItemRight := ItemLeft+NonVisualCompWidth;
ItemBottom := ItemTop+NonVisualCompWidth;
if not aDDC.RectVisible(ItemLeft, ItemTop, ItemRight, ItemBottom) then
Continue;
aDDC.Save;
with aDDC.Canvas do begin
Pen.Width:=1;
Pen.Color:=clWhite;
for j:=0 to NonVisualCompBorder-1 do begin
MoveTo(ItemLeft+j,ItemBottom-j);
LineTo(ItemLeft+j,ItemTop+j);
LineTo(ItemRight-j,ItemTop+j);
with aDDC.Canvas do
begin
Pen.Width := 1;
Pen.Color := clWhite;
for j := 0 to NonVisualCompBorder - 1 do
begin
MoveTo(ItemLeft + j, ItemBottom - j);
LineTo(ItemLeft + j, ItemTop + j);
LineTo(ItemRight - j, ItemTop + j);
end;
Pen.Color:=clBlack;
for j:=0 to NonVisualCompBorder-1 do begin
MoveTo(ItemLeft+j,ItemBottom-j);
LineTo(ItemRight-j,ItemBottom-j);
MoveTo(ItemRight-j,ItemTop+j);
LineTo(ItemRight-j,ItemBottom-j+1);
Pen.Color := clBlack;
for j := 0 to NonVisualCompBorder - 1 do
begin
MoveTo(ItemLeft + j, ItemBottom - j);
LineTo(ItemRight - j, ItemBottom - j);
MoveTo(ItemRight - j, ItemTop + j);
LineTo(ItemRight - j, ItemBottom - j + 1);
end;
IconRect:=Rect(ItemLeft+NonVisualCompBorder,ItemTop+NonVisualCompBorder,
ItemRight-NonVisualCompBorder,ItemBottom-NonVisualCompBorder);
Brush.Color:=clBtnFace;
IconRect := Rect(ItemLeft + NonVisualCompBorder, ItemTop + NonVisualCompBorder,
ItemRight - NonVisualCompBorder, ItemBottom - NonVisualCompBorder);
Brush.Color := clBtnFace;
//writeln('TDesigner.DrawNonVisualComponents A ',IconRect.Left,',',IconRect.Top,',',IconRect.Right,',',IconRect.Bottom);
FillRect(Rect(IconRect.Left,IconRect.Top,
IconRect.Right+1,IconRect.Bottom+1));
FillRect(Rect(IconRect.Left, IconRect.Top,
IconRect.Right + 1, IconRect.Bottom + 1));
end;
if Assigned(FOnGetNonVisualCompIcon)
then begin
if Assigned(FOnGetNonVisualCompIcon) then
begin
Icon := nil;
FOnGetNonVisualCompIcon(Self, AComponent, Icon);
if Icon <> nil then
begin
inc(IconRect.Left,(NonVisualCompIconWidth-Icon.Width) div 2);
inc(IconRect.Top,(NonVisualCompIconWidth-Icon.Height) div 2);
IconRect.Right:=IconRect.Left+Icon.Width;
IconRect.Bottom:=IconRect.Top+Icon.Height;
inc(IconRect.Left, (NonVisualCompIconWidth - Icon.Width) div 2);
inc(IconRect.Top, (NonVisualCompIconWidth - Icon.Height) div 2);
IconRect.Right := IconRect.Left + Icon.Width;
IconRect.Bottom := IconRect.Top + Icon.Height;
aDDC.Canvas.StretchDraw(IconRect, Icon);
end;
end;
if (ControlSelection.Count>1)
and (ControlSelection.IsSelected(AComponent)) then
if (ControlSelection.Count > 1) and (ControlSelection.IsSelected(AComponent)) then
ControlSelection.DrawMarkerAt(aDDC,
ItemLeft,ItemTop,NonVisualCompWidth,NonVisualCompWidth);
ItemLeft, ItemTop, NonVisualCompWidth, NonVisualCompWidth);
end;
end;
end;