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

lcl: return header section text as display name if available

Browse Source 
git-svn-id: trunk@23010 -
This commit is contained in:
paul 2009-12-07 02:28:11 +00:00
parent 0e2a102350
commit 29154135e7
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -2775,6 +2775,8 @@ type
procedure SetWidth(Value: Integer); procedure SetWidth(Value: Integer);
procedure SetImageIndex(const Value: TImageIndex); procedure SetImageIndex(const Value: TImageIndex);
procedure CheckConstraints; procedure CheckConstraints;
protected
function GetDisplayName: string; override;
public public
constructor Create(ACollection: TCollection); override; constructor Create(ACollection: TCollection); override;
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;

8
lcl/include/headercontrol.inc
View File

@ -594,6 +594,14 @@ begin
FWidth := FMaxWidth; FWidth := FMaxWidth;
end; end;
function THeaderSection.GetDisplayName: string;
begin
if Length(Text) = 0 then
Result := inherited GetDisplayName
else
Result := Text;
end;
constructor THeaderSection.Create(ACollection: TCollection); constructor THeaderSection.Create(ACollection: TCollection);
begin begin
inherited Create(ACollection); inherited Create(ACollection);