paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 01:48:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: grids: add (forgotten) *IsStored functions to DefaultColWidth and DefaultRowHeight properties. (related revision: r54948 #b54495505b)

Browse Source 
git-svn-id: trunk@54949 -
This commit is contained in:
ondrej 2017-05-17 14:09:04 +00:00
parent b54495505b
commit 80a8c39f9d
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/grids.pas
View File

@ -944,6 +944,8 @@ type
procedure CreateParams(var Params: TCreateParams); override;
procedure Click; override;
procedure DblClick; override;
function DefaultColWidthIsStored: Boolean; virtual;
function DefaultRowHeightIsStored: Boolean; virtual;
procedure DefineProperties(Filer: TFiler); override;
procedure DestroyHandle; override;
function DialogChar(var Message: TLMKey): boolean; override;
@ -1143,8 +1145,8 @@ type
property ColumnClickSorts: boolean read FColumnClickSorts write SetColumnClickSorts default false;
property Columns: TGridColumns read GetColumns write SetColumns stored IsColumnsStored;
property ColWidths[aCol: Integer]: Integer read GetColWidths write SetColWidths;
property DefaultColWidth: Integer read GetDefColWidth write SetDefColWidth default 0;
property DefaultRowHeight: Integer read GetDefRowHeight write SetDefRowHeight default 0;
property DefaultColWidth: Integer read GetDefColWidth write SetDefColWidth stored DefaultColWidthIsStored;
property DefaultRowHeight: Integer read GetDefRowHeight write SetDefRowHeight stored DefaultRowHeightIsStored;
property DefaultDrawing: Boolean read FDefaultDrawing write SetDefaultDrawing default True;
property DefaultTextStyle: TTextStyle read FDefaultTextStyle write FDefaultTextStyle;
property DragDx: Integer read FDragDx write FDragDx;
@ -1249,8 +1251,6 @@ type
procedure EndUpdate(aRefresh: boolean = true);
procedure EraseBackground(DC: HDC); override;
function Focused: Boolean; override;
function DefaultColWidthIsStored: Boolean;
function DefaultRowHeightIsStored: Boolean;
function HasMultiSelection: Boolean;
procedure InvalidateCell(aCol, aRow: Integer); overload;
procedure InvalidateCol(ACol: Integer);
@ -1384,6 +1384,9 @@ type
//property TabStops;
property TopRow;
property UseXORFeatures;
public
function DefaultColWidthIsStored: Boolean; override;
function DefaultRowHeightIsStored: Boolean; override;
public
property Align;
property Anchors;
@ -10396,6 +10399,11 @@ begin
Result:=TVirtualGrid.Create;
end;
function TCustomDrawGrid.DefaultColWidthIsStored: Boolean;
begin
Result := inherited DefaultColWidthIsStored;
end;
constructor TCustomDrawGrid.Create(AOwner: TComponent);
begin
fGrid:=CreateVirtualGrid;
@ -10490,6 +10498,11 @@ begin
end;
end;
function TCustomDrawGrid.DefaultRowHeightIsStored: Boolean;
begin
Result := inherited DefaultRowHeightIsStored;
end;
{ TCustomStringGrid }
procedure TCustomStringGrid.MapFree(var aMap: TMap);