paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 16:39:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: headerstyle: adhsPoints

Browse Source 
git-svn-id: trunk@39580 -
This commit is contained in:
mattias 2012-12-18 13:19:31 +00:00
parent 1e14e9c720
commit 65dbe17d9c
1 changed files with 51 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
components/anchordocking/anchordocking.pas
View File

@ -386,7 +386,8 @@ type
TADHeaderStyle = ( TADHeaderStyle = (
adhsFrame3D, adhsFrame3D,
adhsLine adhsLine,
adhsPoints
); );
const const
adhsDefault = adhsFrame3D; adhsDefault = adhsFrame3D;
@ -650,7 +651,8 @@ var
const const
ADHeaderStyle: array[TADHeaderStyle] of string = ( ADHeaderStyle: array[TADHeaderStyle] of string = (
'Frame3D', 'Frame3D',
'Line' 'Line',
'Points'
); );
function StrToADHeaderStyle(const s: string): TADHeaderStyle; function StrToADHeaderStyle(const s: string): TADHeaderStyle;
@ -4879,10 +4881,13 @@ begin
end; end;
procedure TAnchorDockHeader.Paint; procedure TAnchorDockHeader.Paint;
type
TGrabberAlign = (gHorizontal,gVertical);
procedure DrawGrabber(r: TRect); procedure DrawGrabber(r: TRect; gAlign: TGrabberAlign);
var var
Center: Integer; Center: Integer;
lx, ly, d, lt, lb, lm: Integer;
begin begin
case DockMaster.HeaderStyle of case DockMaster.HeaderStyle of
adhsFrame3D: adhsFrame3D:
@ -4906,6 +4911,34 @@ procedure TAnchorDockHeader.Paint;
Canvas.Pen.Color:=clgray; Canvas.Pen.Color:=clgray;
Canvas.Line(Center,r.Top+3,Center,r.Bottom-5); Canvas.Line(Center,r.Top+3,Center,r.Bottom-5);
end; end;
adhsPoints:
if gAlign=gHorizontal then begin
lx := r.left+2;
d := (r.Bottom - r.Top - 5) div 2;
lt := r.Top + d;
lb := lt + 4;
lm := lt + 2;
while lx < r.Right do
begin
Canvas.Pixels[lx, lt] := clBtnShadow;
Canvas.Pixels[lx, lb] := clBtnShadow;
Canvas.Pixels[lx+2, lm] := clBtnShadow;
lx := lx + 4;
end;
end else begin
ly := r.Bottom - 2;
d := (r.Right - r.Left - 5) div 2;
lt := r.Left + d;
lb := lt + 4;
lm := lt + 2;
while ly > r.Top do
begin
Canvas.Pixels[lt, ly] := clBtnShadow;
Canvas.Pixels[lb, ly] := clBtnShadow;
Canvas.Pixels[lm, ly-2] := clBtnShadow;
ly := ly - 4;
end;
end;
end; end;
end; end;
@ -4916,8 +4949,12 @@ var
dx,dy: Integer; dx,dy: Integer;
begin begin
r:=ClientRect; r:=ClientRect;
Canvas.Frame3d(r,1,bvRaised); case DockMaster.HeaderStyle of
adhsPoints: Canvas.Brush.Color := clForm;
else Canvas.Frame3d(r,1,bvRaised);
end;
Canvas.FillRect(r); Canvas.FillRect(r);
if CloseButton.IsControlVisible and (CloseButton.Parent=Self) then begin if CloseButton.IsControlVisible and (CloseButton.Parent=Self) then begin
if Align in [alLeft,alRight] then if Align in [alLeft,alRight] then
r.Top:=CloseButton.Top+CloseButton.Height+1 r.Top:=CloseButton.Top+CloseButton.Height+1
@ -4937,19 +4974,23 @@ begin
dy:=Max(0,(r.Bottom-r.Top-TxtW) div 2); dy:=Max(0,(r.Bottom-r.Top-TxtW) div 2);
Canvas.Font.Orientation:=900; Canvas.Font.Orientation:=900;
Canvas.TextOut(r.Left+dx,r.Bottom-dy,Caption); Canvas.TextOut(r.Left+dx,r.Bottom-dy,Caption);
DrawGrabber(Rect(r.Left,r.Top,r.Right,r.Bottom-dy-TxtW-1)); DrawGrabber(Rect(r.Left,r.Top,r.Right,r.Bottom-dy-TxtW-1),gVertical);
DrawGrabber(Rect(r.Left,r.Bottom-dy+1,r.Right,r.Bottom)); DrawGrabber(Rect(r.Left,r.Bottom-dy+1,r.Right,r.Bottom),gVertical);
end else begin end else begin
// horizontal // horizontal
dx:=Max(0,(r.Right-r.Left-TxtW) div 2); dx:=Max(0,(r.Right-r.Left-TxtW) div 2);
dy:=Max(0,(r.Bottom-r.Top-TxtH) div 2); dy:=Max(0,(r.Bottom-r.Top-TxtH) div 2);
Canvas.Font.Orientation:=0; Canvas.Font.Orientation:=0;
Canvas.TextOut(r.Left+dx,r.Top+dy,Caption); Canvas.TextOut(r.Left+dx,r.Top+dy,Caption);
DrawGrabber(Rect(r.Left,r.Top,r.Left+dx-1,r.Bottom)); DrawGrabber(Rect(r.Left,r.Top,r.Left+dx-1,r.Bottom),gHorizontal);
DrawGrabber(Rect(r.Left+dx+TxtW+2,r.Top,r.Right,r.Bottom)); DrawGrabber(Rect(r.Left+dx+TxtW+2,r.Top,r.Right,r.Bottom),gHorizontal);
end; end;
end else end else begin
DrawGrabber(r); if Align in [alLeft,alRight] then
DrawGrabber(r,gVertical)
else
DrawGrabber(r,gHorizontal);
end;
end; end;
procedure TAnchorDockHeader.CalculatePreferredSize(var PreferredWidth, procedure TAnchorDockHeader.CalculatePreferredSize(var PreferredWidth,