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

TArrow: cleanup, added AntiAliasingMode property, published ParentColor, Hint and ShowHint.

Browse Source 
git-svn-id: trunk@41226 -
This commit is contained in:
zeljko 2013-05-16 15:59:41 +00:00
parent f76ef23ed9
commit 0923bb8e5e
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/arrow.pp
View File

@ -39,6 +39,7 @@ type
TArrow = class(TGraphicControl)
private
FAntiAliasingMode: TAntialiasingMode;
FArrowColor: TColor;
FArrowType: TArrowType;
FR: TRect;
@ -46,6 +47,7 @@ type
FT: TTrianglePoints;
procedure CalcTrianglePoints;
procedure GraphicChanged(Sender: TObject);
procedure SetAntiAliasingMode(AValue: TAntialiasingMode);
procedure SetArrowColor(AValue: TColor);
procedure SetArrowType(AValue: TArrowType);
procedure SetShadowType(AValue: TShadowType);
@ -57,11 +59,13 @@ type
published
property Align;
property Anchors;
property AntiAliasingMode: TAntialiasingMode read FAntiAliasingMode write SetAntiAliasingMode default amDontCare;
property ArrowColor: TColor read FArrowColor write SetArrowColor default clBlack;
property ArrowType: TArrowType read FArrowType write SetArrowType default atLeft;
property BorderSpacing;
property Color;
property Constraints;
property Hint;
property OnChangeBounds;
property OnClick;
property OnContextPopup;
@ -75,9 +79,11 @@ type
property OnPaint;
property OnResize;
//property OnStartDrag;
property ParentColor;
property ParentShowHint;
property PopupMenu;
property ShadowType: TShadowType read FShadowType write SetShadowType default stEtchedIn;
property ShowHint;
property Visible;
end;
@ -145,6 +151,13 @@ begin
then Invalidate;
end;
procedure TArrow.SetAntiAliasingMode(AValue: TAntialiasingMode);
begin
if FAntiAliasingMode=AValue then Exit;
FAntiAliasingMode:=AValue;
GraphicChanged(nil);
end;
procedure TArrow.SetArrowColor(AValue: TColor);
begin
if FArrowColor=AValue then Exit;
@ -205,6 +218,7 @@ const
end;
begin
Canvas.AntialiasingMode := FAntiAliasingMode;
Canvas.Brush.Color := Color;
Canvas.FillRect(ClientRect);
@ -222,6 +236,7 @@ end;
constructor TArrow.Create(aOwner: TComponent);
begin
inherited Create(aOwner);
FAntiAliasingMode := amDontCare;
Constraints.MinHeight:= ArrowMinHeight;
Constraints.MinWidth:= ArrowMinHeight;
with GetControlClassDefaultSize do
@ -230,11 +245,6 @@ begin
FArrowType:= atLeft; // set defaults to match TArrow component
FShadowType:= stEtchedIn;
FArrowColor:= clBlack;
Canvas.Pen.Color := clBlack;
if Assigned(Parent)
then Color:= Parent.Color
else Color:= clBtnFace;
Canvas.Brush.Color := Color;
end;
end.