paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 14:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: grids: keep *IsStored functions to DefaultColWidth and DefaultRowHeight properties protected-only (related revision: r54949 #80a8c39f9d)

Browse Source 
git-svn-id: trunk@54956 -
This commit is contained in:
ondrej 2017-05-17 19:06:19 +00:00
parent 3a7e2ee5dd
commit 9edd2d5ad2
1 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/grids.pas
View File

@ -944,8 +944,8 @@ type
procedure CreateParams(var Params: TCreateParams); override;
procedure Click; override;
procedure DblClick; override;
function DefaultColWidthIsStored: Boolean; virtual;
function DefaultRowHeightIsStored: Boolean; virtual;
function DefaultColWidthIsStored: Boolean;
function DefaultRowHeightIsStored: Boolean;
procedure DefineProperties(Filer: TFiler); override;
procedure DestroyHandle; override;
function DialogChar(var Message: TLMKey): boolean; override;
@ -1384,9 +1384,6 @@ type
//property TabStops;
property TopRow;
property UseXORFeatures;
public
function DefaultColWidthIsStored: Boolean; override;
function DefaultRowHeightIsStored: Boolean; override;
public
property Align;
property Anchors;
@ -10399,11 +10396,6 @@ begin
Result:=TVirtualGrid.Create;
end;
function TCustomDrawGrid.DefaultColWidthIsStored: Boolean;
begin
Result := inherited DefaultColWidthIsStored;
end;
constructor TCustomDrawGrid.Create(AOwner: TComponent);
begin
fGrid:=CreateVirtualGrid;
@ -10498,11 +10490,6 @@ begin
end;
end;
function TCustomDrawGrid.DefaultRowHeightIsStored: Boolean;
begin
Result := inherited DefaultRowHeightIsStored;
end;
{ TCustomStringGrid }
procedure TCustomStringGrid.MapFree(var aMap: TMap);