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

lcl: make TStatusBar, TStatusPanel, THeaderSection translatable (issue #18322)

Browse Source 
patch by: cobines

git-svn-id: trunk@28837 -
This commit is contained in:
vincents 2010-12-30 10:16:40 +00:00
parent 762b048004
commit e975b38aab
4 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/comctrls.pp
View File

@ -66,7 +66,7 @@ type
TStatusPanel = class(TCollectionItem) TStatusPanel = class(TCollectionItem)
private private
FText: string; FText: TCaption;
FWidth: Integer; FWidth: Integer;
FAlignment: TAlignment; FAlignment: TAlignment;
FBevel: TStatusPanelBevel; FBevel: TStatusPanelBevel;
@ -75,7 +75,7 @@ type
procedure SetAlignment(Value: TAlignment); procedure SetAlignment(Value: TAlignment);
procedure SetBevel(Value: TStatusPanelBevel); procedure SetBevel(Value: TStatusPanelBevel);
procedure SetStyle(Value: TStatusPanelStyle); procedure SetStyle(Value: TStatusPanelStyle);
procedure SetText(const Value: string); procedure SetText(const Value: TCaption);
procedure SetWidth(Value: Integer); procedure SetWidth(Value: Integer);
protected protected
// field to use by interface. do not use it in the LCL // field to use by interface. do not use it in the LCL
@ -92,7 +92,7 @@ type
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 Style: TStatusPanelStyle read FStyle write SetStyle default psText; property Style: TStatusPanelStyle read FStyle write SetStyle default psText;
property Text: string 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;
end; end;
@ -130,12 +130,12 @@ type
FSizeGrip: Boolean; FSizeGrip: Boolean;
FUpdateLock: integer; // set by BeginUpdate/EndUpdate FUpdateLock: integer; // set by BeginUpdate/EndUpdate
FPanels: TStatusPanels; FPanels: TStatusPanels;
FSimpleText: String; FSimpleText: TCaption;
FSimplePanel: Boolean; FSimplePanel: Boolean;
FOnDrawPanel: TDrawPanelEvent; FOnDrawPanel: TDrawPanelEvent;
FOnHint: TNotifyEvent; FOnHint: TNotifyEvent;
procedure SetPanels(Value: TStatusPanels); procedure SetPanels(Value: TStatusPanels);
procedure SetSimpleText(const Value : String); procedure SetSimpleText(const Value : TCaption);
procedure SetSimplePanel(Value : Boolean); procedure SetSimplePanel(Value : Boolean);
procedure SetSizeGrip(const AValue: Boolean); procedure SetSizeGrip(const AValue: Boolean);
protected protected
@ -184,7 +184,7 @@ type
property Enabled; property Enabled;
property Panels: TStatusPanels read FPanels write SetPanels; property Panels: TStatusPanels read FPanels write SetPanels;
property ParentShowHint; property ParentShowHint;
property SimpleText: String 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;
@ -2844,7 +2844,7 @@ type
FMinWidth: Integer; FMinWidth: Integer;
FMaxWidth: Integer; FMaxWidth: Integer;
FState: THeaderSectionState; FState: THeaderSectionState;
FText: string; FText: TCaption;
FVisible: Boolean; FVisible: Boolean;
FWidth: Integer; FWidth: Integer;
FOriginalIndex: Integer; FOriginalIndex: Integer;
@ -2855,7 +2855,7 @@ type
procedure SetMaxWidth(AValue: Integer); procedure SetMaxWidth(AValue: Integer);
procedure SetMinWidth(AValue: Integer); procedure SetMinWidth(AValue: Integer);
procedure SetState(const AValue: THeaderSectionState); procedure SetState(const AValue: THeaderSectionState);
procedure SetText(const Value: string); procedure SetText(const Value: TCaption);
procedure SetVisible(const AValue: Boolean); procedure SetVisible(const AValue: Boolean);
procedure SetWidth(Value: Integer); procedure SetWidth(Value: Integer);
procedure SetImageIndex(const Value: TImageIndex); procedure SetImageIndex(const Value: TImageIndex);
@ -2873,7 +2873,7 @@ type
property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1; property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1;
property MaxWidth: Integer read FMaxWidth write SetMaxWidth default 10000; property MaxWidth: Integer read FMaxWidth write SetMaxWidth default 10000;
property MinWidth: Integer read FMinWidth write SetMinWidth default 0; property MinWidth: Integer read FMinWidth write SetMinWidth default 0;
property Text: string read FText write SetText; property Text: TCaption read FText write SetText;
property Width: Integer read GetWidth write SetWidth; property Width: Integer read GetWidth write SetWidth;
property Visible: Boolean read FVisible write SetVisible; property Visible: Boolean read FVisible write SetVisible;
//index which doesn't change when the user reorders the sections //index which doesn't change when the user reorders the sections

2
lcl/include/headercontrol.inc
View File

@ -554,7 +554,7 @@ begin
end; end;
end; end;
procedure THeaderSection.SetText(const Value: string); procedure THeaderSection.SetText(const Value: TCaption);
begin begin
if FText <> Value then if FText <> Value then
begin begin

2
lcl/include/statusbar.inc
View File

@ -37,7 +37,7 @@ end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
{ TStatusBar SetSimpleText } { TStatusBar SetSimpleText }
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
procedure TStatusBar.SetSimpleText(const Value : String); procedure TStatusBar.SetSimpleText(const Value : TCaption);
begin begin
if FSimpleText <> value then if FSimpleText <> value then
begin begin

2
lcl/include/statuspanel.inc
View File

@ -133,7 +133,7 @@ begin
end; end;
end; end;
procedure TStatusPanel.SetText(const Value: string); procedure TStatusPanel.SetText(const Value: TCaption);
begin begin
if FText <> Value then if FText <> Value then
begin begin