paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 00:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

arrow: fixed identation

Browse Source 
git-svn-id: trunk@41225 -
This commit is contained in:
zeljko 2013-05-16 15:50:06 +00:00
parent 9c1ebbdadc
commit f76ef23ed9
1 changed files with 44 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
lcl/arrow.pp
View File

@ -39,46 +39,46 @@ type
TArrow = class(TGraphicControl)
private
FArrowColor: TColor;
FArrowType: TArrowType;
FR: TRect;
FShadowType: TShadowType;
FT: TTrianglePoints;
procedure CalcTrianglePoints;
procedure GraphicChanged(Sender: TObject);
procedure SetArrowColor(AValue: TColor);
procedure SetArrowType(AValue: TArrowType);
procedure SetShadowType(AValue: TShadowType);
protected
class function GetControlClassDefaultSize: TSize; override;
procedure Paint; override;
public
constructor Create(aOwner: TComponent); override;
published
property Align;
property Anchors;
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 OnChangeBounds;
property OnClick;
property OnContextPopup;
property OnDblClick;
//property OnDragDrop;
//property OnDragOver;
//property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnPaint;
property OnResize;
//property OnStartDrag;
property ParentShowHint;
property PopupMenu;
property ShadowType: TShadowType read FShadowType write SetShadowType default stEtchedIn;
property Visible;
FArrowColor: TColor;
FArrowType: TArrowType;
FR: TRect;
FShadowType: TShadowType;
FT: TTrianglePoints;
procedure CalcTrianglePoints;
procedure GraphicChanged(Sender: TObject);
procedure SetArrowColor(AValue: TColor);
procedure SetArrowType(AValue: TArrowType);
procedure SetShadowType(AValue: TShadowType);
protected
class function GetControlClassDefaultSize: TSize; override;
procedure Paint; override;
public
constructor Create(aOwner: TComponent); override;
published
property Align;
property Anchors;
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 OnChangeBounds;
property OnClick;
property OnContextPopup;
property OnDblClick;
//property OnDragDrop;
//property OnDragOver;
//property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnPaint;
property OnResize;
//property OnStartDrag;
property ParentShowHint;
property PopupMenu;
property ShadowType: TShadowType read FShadowType write SetShadowType default stEtchedIn;
property Visible;
end;
procedure Register;
@ -93,9 +93,10 @@ end;
{ TArrow }
procedure TArrow.CalcTrianglePoints;
var midY, midX, half: integer;
sz: TSize;
square, tall: boolean;
var
midY, midX, half: integer;
sz: TSize;
square, tall: boolean;
begin
FR:= ClientRect;
InflateRect(FR, -2, -2);