paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 20:38:16 +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
FAlignment: TAlignment;
FAutoSize: Boolean;
FCaption: String;
FCaption: TTranslateString;
FMinWidth: TWidth;
FMaxWidth: TWidth;
FVisible: Boolean;
@ -673,7 +673,7 @@ type
procedure SetMinWidth(const AValue: TWidth);
procedure SetMaxWidth(const AValue: TWidth);
procedure SetWidth(const AValue: TWidth);
procedure SetCaption(const AValue: String);
procedure SetCaption(const AValue: TTranslateString);
procedure SetAlignment(const AValue: TAlignment);
procedure SetImageIndex(const AValue: TImageIndex);
protected
@ -686,7 +686,7 @@ type
published
property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
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 MaxWidth: TWidth read FMaxWidth write SetMaxWidth 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);
end;
procedure TListColumn.SetCaption(const AValue: String);
procedure TListColumn.SetCaption(const AValue: TTranslateString);
var
LV: TCustomListView;
WSC: TWSCustomListViewClass;