paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 06:19:47 +01: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 SetSelectedIndex(const AValue: Integer);
procedure SetThumbTracking(const AValue: boolean); procedure SetThumbTracking(const AValue: boolean);
procedure UpdateBufferCount; procedure UpdateBufferCount;
procedure UpdateData;
// Temporal // Temporal
function GetColumnCount: Integer; function GetColumnCount: Integer;
@ -413,7 +412,8 @@ type
procedure SetEditText(ACol, ARow: Longint; const Value: string); override; procedure SetEditText(ACol, ARow: Longint; const Value: string); override;
function ScrollBarAutomatic(Which: TScrollStyle): boolean; override; function ScrollBarAutomatic(Which: TScrollStyle): boolean; override;
function SelectCell(aCol, aRow: Integer): boolean; override; function SelectCell(aCol, aRow: Integer): boolean; override;
procedure UpdateActive; procedure UpdateActive; virtual;
procedure UpdateData; virtual;
function UpdateGridCounts: Integer; function UpdateGridCounts: Integer;
procedure UpdateVertScrollbar(const aVisible: boolean; const aRange,aPage: Integer); override; procedure UpdateVertScrollbar(const aVisible: boolean; const aRange,aPage: Integer); override;
procedure VisualChange; override; procedure VisualChange; override;

8
lcl/grids.pas
View File

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