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

changed TListView columns Caption from string to TTranslateString from Vasily Volchenko

Browse Source 
git-svn-id: trunk@7641 -
This commit is contained in:
mattias 2005-09-06 22:47:27 +00:00
parent cc7089bb19
commit 2901f22b92
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/comctrls.pp
View File

@ -658,7 +658,7 @@ type
private private
FAlignment: TAlignment; FAlignment: TAlignment;
FAutoSize: Boolean; FAutoSize: Boolean;
FCaption: String; FCaption: TTranslateString;
FMinWidth: TWidth; FMinWidth: TWidth;
FMaxWidth: TWidth; FMaxWidth: TWidth;
FVisible: Boolean; FVisible: Boolean;
@ -673,7 +673,7 @@ type
procedure SetMinWidth(const AValue: TWidth); procedure SetMinWidth(const AValue: TWidth);
procedure SetMaxWidth(const AValue: TWidth); procedure SetMaxWidth(const AValue: TWidth);
procedure SetWidth(const AValue: TWidth); procedure SetWidth(const AValue: TWidth);
procedure SetCaption(const AValue: String); procedure SetCaption(const AValue: TTranslateString);
procedure SetAlignment(const AValue: TAlignment); procedure SetAlignment(const AValue: TAlignment);
procedure SetImageIndex(const AValue: TImageIndex); procedure SetImageIndex(const AValue: TImageIndex);
protected protected
@ -686,7 +686,7 @@ type
published published
property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify; property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
property AutoSize: Boolean read FAutoSize write SetAutoSize; property AutoSize: Boolean read FAutoSize write SetAutoSize;
property Caption: string read FCaption write SetCaption; property Caption: TTranslateString read FCaption write SetCaption;
property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1; property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1;
property MaxWidth: TWidth read FMaxWidth write SetMaxWidth default 0; property MaxWidth: TWidth read FMaxWidth write SetMaxWidth default 0;
property MinWidth: TWidth read FMinWidth write SetMinWidth default 0; property MinWidth: TWidth read FMinWidth write SetMinWidth default 0;

2
lcl/include/listcolumn.inc
View File

@ -140,7 +140,7 @@ begin
WSC.ColumnSetAlignment(LV, Index, Self, FAlignment); WSC.ColumnSetAlignment(LV, Index, Self, FAlignment);
end; end;
procedure TListColumn.SetCaption(const AValue: String); procedure TListColumn.SetCaption(const AValue: TTranslateString);
var var
LV: TCustomListView; LV: TCustomListView;
WSC: TWSCustomListViewClass; WSC: TWSCustomListViewClass;