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

LCL: grids, column title setcaption now is virtual from Alexey Lagunov

Browse Source 
git-svn-id: trunk@11274 -
This commit is contained in:
jesus 2007-06-04 07:13:44 +00:00
parent 85bdb2d7b8
commit d5c1b8122e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/grids.pas
View File

@ -318,7 +318,6 @@ type
function IsFontStored: boolean;
function IsLayoutStored: boolean;
procedure SetAlignment(const AValue: TAlignment);
procedure SetCaption(const AValue: string);
procedure SetColor(const AValue: TColor);
procedure SetFont(const AValue: TFont);
procedure SetLayout(const AValue: TTextLayout);
@ -329,6 +328,7 @@ type
function GetDefaultAlignment: TAlignment;
function GetDefaultColor: TColor;
function GetDefaultLayout: TTextLayout;
procedure SetCaption(const AValue: string); virtual;
public
constructor Create(TheColumn: TGridColumn); virtual;
destructor Destroy; override;