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

LazControls DividerBevel: Styles. Patch by Vojtech Cihak . Issue #0027618

Browse Source 
git-svn-id: trunk@48159 -
This commit is contained in:
martin 2015-03-07 03:56:42 +00:00
parent c740a16492
commit 8ab3f3a5d8
1 changed files with 93 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
components/lazcontrols/dividerbevel.pas
View File

@ -17,7 +17,7 @@ interface
uses
Classes, LResources, Forms, Controls, Graphics, Dialogs, Types,
LCLType, LCLIntf, LCLProc, Math, GraphType, ComCtrls, ExtCtrls;
LCLType, LCLIntf, LCLProc, Math, GraphType, ComCtrls, ExtCtrls, Themes;
type
{ TDividerBevel }
@ -29,12 +29,14 @@ type
FCaptionSpacing: Integer;
FLeftIndent: Integer;
FOrientation: TTrackBarOrientation;
FStyle: TGrabStyle;
FTransparent: Boolean;
procedure SetBevelStyle(AValue: TBevelStyle);
procedure SetBevelWidth(AValue: Integer);
procedure SetCaptionSpacing(const AValue: Integer);
procedure SetLeftIndent(const AValue: Integer);
procedure SetOrientation(AValue: TTrackBarOrientation);
procedure SetStyle(AValue: TGrabStyle);
procedure SetTransparent(AValue: Boolean);
protected
FBevelHeight: Integer;
@ -79,6 +81,7 @@ type
property ParentShowHint;
property PopupMenu;
property ShowHint;
property Style: TGrabStyle read FStyle write SetStyle default gsSimple;
property Transparent: Boolean read FTransparent write SetTransparent default True;
property Visible;
property OnChangeBounds;
@ -154,6 +157,13 @@ begin
Invalidate;
end;
procedure TDividerBevel.SetStyle(AValue: TGrabStyle);
begin
if FStyle=AValue then Exit;
FStyle:=AValue;
Invalidate;
end;
procedure TDividerBevel.SetTransparent(AValue: Boolean);
begin
if FTransparent = AValue then Exit;
@ -186,8 +196,79 @@ procedure TDividerBevel.Paint;
var
aBevel: TGraphicsBevelCut;
aHorizontal: Boolean;
aIndent, aRight, j: Integer;
PaintRect: TRect;
aStyle: TGrabStyle;
procedure PaintBevel;
var aDetails: TThemedElementDetails;
aRect: TRect;
w, l: Integer;
begin
case aStyle of
gsSimple: Canvas.Frame3D(PaintRect, 1, aBevel);
gsDouble: if aHorizontal then begin
aRect.TopLeft := PaintRect.TopLeft;
aRect.Right := PaintRect.Right;
w := (PaintRect.Bottom - PaintRect.Top - 2) div 2;
aRect.Bottom := aRect.Top + w;
Canvas.Frame3D(aRect, 1, aBevel);
aRect.Left := PaintRect.Left;
aRect.Top := PaintRect.Bottom - w;
aRect.BottomRight := PaintRect.BottomRight;
Canvas.Frame3D(aRect, 1, aBevel);
end else begin
aRect.TopLeft := PaintRect.TopLeft;
w := (PaintRect.Right - PaintRect.Left - 2) div 2;
aRect.Right := aRect.Left + w;
aRect.Bottom := PaintRect.Bottom;
Canvas.Frame3D(aRect, 1, aBevel);
aRect.Left := PaintRect.Right - w;
aRect.Top := PaintRect.Top;
aRect.BottomRight := PaintRect.BottomRight;
Canvas.Frame3D(aRect, 1, aBevel);
end;
gsHorLines: begin
aRect.TopLeft := PaintRect.TopLeft;
aRect.Right := PaintRect.Right;
l := (PaintRect.Bottom - aRect.Top + 1) div 3;
inc(aRect.Top);
Canvas.Pen.Color := clBtnShadow;
for w := 0 to l - 1 do
Canvas.Line(aRect.Left, aRect.Top + w * 3, aRect.Right, aRect.Top + w * 3);
Canvas.Pen.Color := clBtnHighlight;
inc(aRect.Top);
for w := 0 to l - 1 do
Canvas.Line(aRect.Left, aRect.Top + w * 3, aRect.Right, aRect.Top + w * 3);
end;
gsVerLines: begin
aRect.TopLeft := PaintRect.TopLeft;
l := (PaintRect.Right - aRect.Left + 1) div 3;
aRect.Bottom := PaintRect.Bottom + 1;
inc(aRect.Left);
Canvas.Pen.Color := clBtnShadow;
for w := 0 to l - 1 do
Canvas.Line(aRect.Left + w * 3, aRect.Top, aRect.Left + w * 3, aRect.Bottom);
Canvas.Pen.Color := clBtnHighlight;
inc(aRect.Left);
for w := 0 to l - 1 do
Canvas.Line(aRect.Left + w * 3, aRect.Top, aRect.Left + w * 3, aRect.Bottom);
end;
gsGripper: begin
if aHorizontal then
aDetails := ThemeServices.GetElementDetails(trGripper)
else
aDetails := ThemeServices.GetElementDetails(trGripperVert);
ThemeServices.DrawElement(Canvas.Handle, aDetails, PaintRect);
end;
gsButton: begin
aDetails := ThemeServices.GetElementDetails(tbPushButtonNormal);
ThemeServices.DrawElement(Canvas.Handle, aDetails, PaintRect);
end;
end;
end;
var
aIndent, aRight, j: Integer;
begin
CalcSize;
if not FTransparent then begin
@ -202,6 +283,13 @@ begin
aBevel := bvRaised;
aHorizontal := (Orientation = trHorizontal);
aStyle := Style;
if not aHorizontal then
case aStyle of
gsHorLines: aStyle := gsVerLines;
gsVerLines: aStyle := gsHorLines;
end;
if aHorizontal then begin
PaintRect.Left := 0;
PaintRect.Top := FBevelTop;
@ -217,7 +305,7 @@ begin
PaintRect.Right := Width
else
PaintRect.Bottom := Height;
Canvas.Frame3D(PaintRect, 1, aBevel);
PaintBevel;
exit;
end;
@ -245,7 +333,7 @@ begin
PaintRect.Right := aRight
else
PaintRect.Bottom := aRight;
Canvas.Frame3D(PaintRect, 1, aBevel);
PaintBevel;
end;
if aIndent > 0 then inc(aIndent, FCaptionSpacing);
@ -262,7 +350,7 @@ begin
PaintRect.Right := FBevelTop + FBevelHeight;
PaintRect.Bottom := Height;
end;
Canvas.Frame3D(PaintRect, 1, aBevel);
PaintBevel;
Canvas.Brush.Style := bsClear;
j := Max((FBevelHeight - FTextExtent.cy) div 2, 0);