Skip to content
This repository was archived by the owner on Nov 9, 2021. It is now read-only.

Update anchordocking.pas #3

Open
georgebou wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Update anchordocking.pas #3

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
20 changes: 17 additions & 3 deletions components/anchordocking/anchordocking.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -382,7 +382,8 @@ TAnchorDockManagerClass = class of TAnchorDockManager;
adhsFrame3D,
adhsLine,
adhsLines,
adhsPoints
adhsPoints,
adhsFrameRect
);
const
adhsDefault = adhsFrame3D;
Expand Down Expand Up @@ -655,7 +656,8 @@ TAnchorDockMaster = class(TComponent)
'Frame3D',
'Line',
'Lines',
'Points'
'Points',
'FrameRect'
);

function StrToADHeaderStyle(const s: string): TADHeaderStyle;
Expand Down Expand Up @@ -774,6 +776,19 @@ procedure DrawADHeader(Canvas: TCanvas; Style: TADHeaderStyle; r: TRect;
ly := ly - 4;
end;
end;
adhsFrameRect:
if Horizontal then begin
Canvas.Pen.Color:=clgray;
Canvas.Rectangle( r.Left+2, r.Top, r.Right-0, r.Bottom);
Canvas.Pen.Color:=clltgray;
Canvas.Rectangle( r.Left+2+2, r.Top+2, r.Right-0-2, r.Bottom-2);
end
else begin
Canvas.Pen.Color:=clgray;
Canvas.Rectangle( r.Left, r.Top+0, r.Right, r.Bottom-2);
Canvas.Pen.Color:=clltgray;
Canvas.Rectangle( r.Left+2, r.Top+0+2, r.Right-2, r.Bottom-2-2);
end;
end;
end;

Expand Down Expand Up @@ -6027,4 +6042,3 @@ finalization
FreeAndNil(DockMaster);

end.