paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 10:39:15 +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) TStatusPanel = class(TCollectionItem)
private private
FBidiMode: TBiDiMode;
FText: TCaption; FText: TCaption;
FWidth: Integer; FWidth: Integer;
FAlignment: TAlignment; FAlignment: TAlignment;
@ -85,6 +86,8 @@ type
published published
property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify; property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
property Bevel: TStatusPanelBevel read FBevel write SetBevel default pbLowered; 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 Style: TStatusPanelStyle read FStyle write SetStyle default psText;
property Text: TCaption read FText write SetText; property Text: TCaption read FText write SetText;
property Width: Integer read FWidth write SetWidth; property Width: Integer read FWidth write SetWidth;
@ -128,6 +131,7 @@ type
FSimplePanel: Boolean; FSimplePanel: Boolean;
FOnDrawPanel: TDrawPanelEvent; FOnDrawPanel: TDrawPanelEvent;
FOnHint: TNotifyEvent; FOnHint: TNotifyEvent;
FUseSystemFont: Boolean;
procedure SetPanels(Value: TStatusPanels); procedure SetPanels(Value: TStatusPanels);
procedure SetSimpleText(const Value : TCaption); procedure SetSimpleText(const Value : TCaption);
procedure SetSimplePanel(Value : Boolean); procedure SetSimplePanel(Value : Boolean);
@ -170,19 +174,27 @@ type
property Anchors; property Anchors;
property AutoHint: Boolean read FAutoHint write FAutoHint default false; property AutoHint: Boolean read FAutoHint write FAutoHint default false;
property AutoSize default true; property AutoSize default true;
property BiDiMode;
property BorderSpacing; property BorderSpacing;
property BorderWidth;
property Color default {$ifdef UseCLDefault}clDefault{$else}clBtnFace{$endif}; property Color default {$ifdef UseCLDefault}clDefault{$else}clBtnFace{$endif};
property Constraints; property Constraints;
property DragCursor; property DragCursor;
property DragKind; property DragKind;
property DragMode; property DragMode;
property Enabled; property Enabled;
property Font;
property Panels: TStatusPanels read FPanels write SetPanels; property Panels: TStatusPanels read FPanels write SetPanels;
property ParentBiDiMode;
property ParentColor;
property ParentFont;
property ParentShowHint; property ParentShowHint;
property PopupMenu;
property SimpleText: TCaption read FSimpleText write SetSimpleText; property SimpleText: TCaption read FSimpleText write SetSimpleText;
property SimplePanel: Boolean read FSimplePanel write SetSimplePanel default True; property SimplePanel: Boolean read FSimplePanel write SetSimplePanel default True;
property SizeGrip: Boolean read FSizeGrip write SetSizeGrip default True; property SizeGrip: Boolean read FSizeGrip write SetSizeGrip default True;
property ShowHint; property ShowHint;
property UseSystemFont: Boolean read FUseSystemFont write FUseSystemFont default True;
property Visible default true; property Visible default true;
property OnClick; property OnClick;
property OnContextPopup; property OnContextPopup;

1
lcl/include/statusbar.inc
View File

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