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

CheckNewCachedSizes, UpdateActive and UpdateData made virtual from Aleksey Lagunov

Browse Source 
git-svn-id: trunk@10149 -
This commit is contained in:
jesus 2006-11-01 07:41:05 +00:00
parent 85d2f2b1c3
commit cd7659f566
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dbgrids.pas
View File

@ -333,7 +333,6 @@ type
procedure SetSelectedIndex(const AValue: Integer);
procedure SetThumbTracking(const AValue: boolean);
procedure UpdateBufferCount;
procedure UpdateData;
// Temporal
function GetColumnCount: Integer;
@ -413,7 +412,8 @@ type
procedure SetEditText(ACol, ARow: Longint; const Value: string); override;
function ScrollBarAutomatic(Which: TScrollStyle): boolean; override;
function SelectCell(aCol, aRow: Integer): boolean; override;
procedure UpdateActive;
procedure UpdateActive; virtual;
procedure UpdateData; virtual;
function UpdateGridCounts: Integer;
procedure UpdateVertScrollbar(const aVisible: boolean; const aRange,aPage: Integer); override;
procedure VisualChange; override;

8
lcl/grids.pas
View File

@ -682,6 +682,7 @@ type
procedure ColumnsChanged(aColumn: TGridColumn);
procedure ColWidthsChanged; dynamic;
function CreateColumns: TGridColumns; virtual;
procedure CheckNewCachedSizes(var AGCache:TGridDataCache); virtual;
procedure CreateWnd; override;
procedure CreateParams(var Params: TCreateParams); override;
procedure DblClick; override;
@ -2171,6 +2172,7 @@ var
TH:=FGCache.GridHeight;
FGCache.ClientWidth:= Width - GetBorderWidth;
FGCache.ClientHeight := Height - GetBorderWidth;
HsbRange:=Width - Dv;
VsbRange:=Height - Dh;
@ -2227,6 +2229,7 @@ begin
InternalAutoFillColumns;
CalcNewCachedSizes;
CalcScrollbarsVisibility;
CheckNewCachedSizes(FGCache);
FGCache.ScrollWidth:=FGCache.ClientWidth-FGCache.FixedWidth;
FGCache.ScrollHeight:=FGCache.ClientHeight-FGCache.FixedHeight;
@ -3452,6 +3455,11 @@ begin
result := TGridColumns.Create(Self, TGridColumn);
end;
procedure TCustomGrid.CheckNewCachedSizes(var AGCache:TGridDataCache);
begin
end;
procedure TCustomGrid.SetAutoFillColumns(const AValue: boolean);
begin
FAutoFillColumns := AValue;