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

LCL, fix AV in dbgrid AutoSizeColumns when dataset is inactive, issue #14239

Browse Source 
git-svn-id: trunk@21218 -
This commit is contained in:
jesus 2009-08-13 19:22:41 +00:00
parent 0599dc51aa
commit e993b0b561
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/dbgrids.pas
View File

@ -1003,6 +1003,9 @@ begin
FixedCols := FixedCols - 1;
end;
if (dgAutoSizeColumns in ChangedOptions) then begin
Exclude(FGridStatus, gsAutoSized);
end;
inherited Options := OldOptions;
@ -1502,6 +1505,7 @@ end;
procedure TCustomDBGrid.UpdateAutoSizeColumns;
var
ACol,ARow,w: Integer;
DatalinkActive: boolean;
CurActiveRecord: Integer;
Field: TField;
ColWidth: Integer;
@ -1513,7 +1517,9 @@ begin
if gsAutoSized in GridStatus then
exit;
CurActiveRecord := FDatalink.ActiveRecord;
DatalinkActive := FDatalink.Active;
if DatalinkActive then
CurActiveRecord := FDatalink.ActiveRecord;
tmpCanvas := GetWorkingCanvas(Canvas);
try
for aCol:=FixedCols to ColCount-1 do begin
@ -1530,7 +1536,7 @@ begin
tmpCanvas.Font := Font;
end;
if Field<>nil then
if (Field<>nil) and DatalinkActive then
for ARow := FixedRows to RowCount-1 do begin
FDatalink.ActiveRecord := ARow - FixedRows;
@ -1554,7 +1560,8 @@ begin
if TmpCanvas<>Canvas then
FreeWorkingCanvas(tmpCanvas);
FDatalink.ActiveRecord := CurActiveRecord;
if DatalinkActive then
FDatalink.ActiveRecord := CurActiveRecord;
include(FGridStatus, gsAutoSized);
end;