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

avoid drawing data if dataset is empty

Browse Source 
git-svn-id: trunk@9702 -
This commit is contained in:
jesus 2006-08-05 19:41:46 +00:00
parent 2fcdb04917
commit b4de789eaa
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/dbgrids.pas
View File

@ -283,6 +283,7 @@ type
FTempText : string; FTempText : string;
FDrawingActiveRecord: Boolean; FDrawingActiveRecord: Boolean;
FDrawingMultiSelRecord: Boolean; FDrawingMultiSelRecord: Boolean;
FDrawingEmptyDataset: Boolean;
FEditingColumn: Integer; FEditingColumn: Integer;
FOldPosition: Integer; FOldPosition: Integer;
FDefaultColWidths: boolean; FDefaultColWidths: boolean;
@ -1674,7 +1675,8 @@ begin
else else
if (aRow=0)and(ACol>=FixedCols) then if (aRow=0)and(ACol>=FixedCols) then
DrawCellText(aCol,aRow,aRect,aState,GetColumnTitle(aCol)); DrawCellText(aCol,aRow,aRect,aState,GetColumnTitle(aCol));
end else begin end else
if not FDrawingEmptyDataset then begin
F := GetFieldFromGridColumn(aCol); F := GetFieldFromGridColumn(aCol);
case ColumnEditorStyle(aCol, F) of case ColumnEditorStyle(aCol, F) of
cbsCheckBoxColumn: cbsCheckBoxColumn:
@ -2306,7 +2308,9 @@ var
begin begin
if FDataLink.Active then begin if FDataLink.Active then begin
CurActiveRecord:=FDataLink.ActiveRecord; CurActiveRecord:=FDataLink.ActiveRecord;
end; FDrawingEmptyDataset:=FDatalink.DataSet.IsEmpty;
end else
FDrawingEmptyDataset:=True;
try try
inherited DrawAllRows; inherited DrawAllRows;
finally finally