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

LCL: Publish some TStatusBar properties. Issue #27235, patch from Vojtech Cihak.

Browse Source 
git-svn-id: trunk@47323 -
This commit is contained in:
juha 2015-01-08 23:45:47 +00:00
parent 73d61b2750
commit bc7b2a12c3
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/comctrls.pp
View File

@ -60,6 +60,7 @@ type
TStatusPanel = class(TCollectionItem)
private
FBidiMode: TBiDiMode;
FText: TCaption;
FWidth: Integer;
FAlignment: TAlignment;
@ -85,6 +86,8 @@ type
published
property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
property Bevel: TStatusPanelBevel read FBevel write SetBevel default pbLowered;
property BidiMode: TBiDiMode read FBidiMode write FBidiMode default bdLeftToRight;
property ParentBiDiMode: Boolean read FParentBiDiMode write FParentBiDiMode default True;
property Style: TStatusPanelStyle read FStyle write SetStyle default psText;
property Text: TCaption read FText write SetText;
property Width: Integer read FWidth write SetWidth;
@ -128,6 +131,7 @@ type
FSimplePanel: Boolean;
FOnDrawPanel: TDrawPanelEvent;
FOnHint: TNotifyEvent;
FUseSystemFont: Boolean;
procedure SetPanels(Value: TStatusPanels);
procedure SetSimpleText(const Value : TCaption);
procedure SetSimplePanel(Value : Boolean);
@ -170,19 +174,27 @@ type
property Anchors;
property AutoHint: Boolean read FAutoHint write FAutoHint default false;
property AutoSize default true;
property BiDiMode;
property BorderSpacing;
property BorderWidth;
property Color default {$ifdef UseCLDefault}clDefault{$else}clBtnFace{$endif};
property Constraints;
property DragCursor;
property DragKind;
property DragMode;
property Enabled;
property Font;
property Panels: TStatusPanels read FPanels write SetPanels;
property ParentBiDiMode;
property ParentColor;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property SimpleText: TCaption read FSimpleText write SetSimpleText;
property SimplePanel: Boolean read FSimplePanel write SetSimplePanel default True;
property SizeGrip: Boolean read FSizeGrip write SetSizeGrip default True;
property ShowHint;
property UseSystemFont: Boolean read FUseSystemFont write FUseSystemFont default True;
property Visible default true;
property OnClick;
property OnContextPopup;

1
lcl/include/statusbar.inc
View File

@ -21,6 +21,7 @@ begin
ControlStyle := [csCaptureMouse, csClickEvents, csDoubleClicks, csOpaque];
FSimplePanel := True;
FSizeGrip := True;
FUseSystemFont := True;
FPanels := CreatePanels;
Color := {$ifdef UseCLDefault}clDefault{$else}clBtnFace{$endif};
Align := alBottom;