paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-18 07:09:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Prevent double painting CustomDBGrid. Merge request !65 by Petr Kristan.

Browse Source
This commit is contained in:
Juha 2022-01-30 00:18:49 +02:00
parent 07ae01b655
commit 6402a449b3
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/dbgrids.pas
View File

@ -500,7 +500,6 @@ type
procedure PrepareCanvas(aCol,aRow: Integer; aState:TGridDrawState); override; procedure PrepareCanvas(aCol,aRow: Integer; aState:TGridDrawState); override;
procedure PrepareCellHints(aCol,aRow: Integer); override; procedure PrepareCellHints(aCol,aRow: Integer); override;
procedure RemoveAutomaticColumns; procedure RemoveAutomaticColumns;
procedure ResetSizes; override;
procedure SaveGridOptions(Cfg: TXMLConfig); override; procedure SaveGridOptions(Cfg: TXMLConfig); override;
procedure SelectEditor; override; procedure SelectEditor; override;
procedure SetEditText(ACol, ARow: Longint; const Value: string); override; procedure SetEditText(ACol, ARow: Longint; const Value: string); override;
@ -2865,12 +2864,6 @@ begin
TDBGridColumns(Columns).RemoveAutoColumns; TDBGridColumns(Columns).RemoveAutoColumns;
end; end;
procedure TCustomDBGrid.ResetSizes;
begin
LayoutChanged;
inherited ResetSizes;
end;
procedure TCustomDBGrid.SaveGridOptions(Cfg: TXMLConfig); procedure TCustomDBGrid.SaveGridOptions(Cfg: TXMLConfig);
var var
Path: string; Path: string;