paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 17:09:21 +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)
private
FText: string;
FText: TCaption;
FWidth: Integer;
FAlignment: TAlignment;
FBevel: TStatusPanelBevel;
@ -75,7 +75,7 @@ type
procedure SetAlignment(Value: TAlignment);
procedure SetBevel(Value: TStatusPanelBevel);
procedure SetStyle(Value: TStatusPanelStyle);
procedure SetText(const Value: string);
procedure SetText(const Value: TCaption);
procedure SetWidth(Value: Integer);
protected
// 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 Bevel: TStatusPanelBevel read FBevel write SetBevel default pbLowered;
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;
end;
@ -130,12 +130,12 @@ type
FSizeGrip: Boolean;
FUpdateLock: integer; // set by BeginUpdate/EndUpdate
FPanels: TStatusPanels;
FSimpleText: String;
FSimpleText: TCaption;
FSimplePanel: Boolean;
FOnDrawPanel: TDrawPanelEvent;
FOnHint: TNotifyEvent;
procedure SetPanels(Value: TStatusPanels);
procedure SetSimpleText(const Value : String);
procedure SetSimpleText(const Value : TCaption);
procedure SetSimplePanel(Value : Boolean);
procedure SetSizeGrip(const AValue: Boolean);
protected
@ -184,7 +184,7 @@ type
property Enabled;
property Panels: TStatusPanels read FPanels write SetPanels;
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 SizeGrip: Boolean read FSizeGrip write SetSizeGrip default True;
property ShowHint;
@ -2844,7 +2844,7 @@ type
FMinWidth: Integer;
FMaxWidth: Integer;
FState: THeaderSectionState;
FText: string;
FText: TCaption;
FVisible: Boolean;
FWidth: Integer;
FOriginalIndex: Integer;
@ -2855,7 +2855,7 @@ type
procedure SetMaxWidth(AValue: Integer);
procedure SetMinWidth(AValue: Integer);
procedure SetState(const AValue: THeaderSectionState);
procedure SetText(const Value: string);
procedure SetText(const Value: TCaption);
procedure SetVisible(const AValue: Boolean);
procedure SetWidth(Value: Integer);
procedure SetImageIndex(const Value: TImageIndex);
@ -2873,7 +2873,7 @@ type
property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1;
property MaxWidth: Integer read FMaxWidth write SetMaxWidth default 10000;
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 Visible: Boolean read FVisible write SetVisible;
//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;
procedure THeaderSection.SetText(const Value: string);
procedure THeaderSection.SetText(const Value: TCaption);
begin
if FText <> Value then
begin

2
lcl/include/statusbar.inc
View File

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

2
lcl/include/statuspanel.inc
View File

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