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

LCL, dbgrid fix row in call to DrawCellText in DefaultDrawColumnCell

Browse Source 
git-svn-id: trunk@23526 -
This commit is contained in:
jesus 2010-01-21 20:21:02 +00:00
parent af1c9d6799
commit 594efdb34c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/dbgrids.pas
View File

@ -2862,11 +2862,16 @@ procedure TCustomDBGrid.DefaultDrawColumnCell(const Rect: TRect;
var var
S: string; S: string;
F: TField; F: TField;
DataRow: Integer;
begin begin
F := Column.Field; F := Column.Field;
DataCol := GridColumnFromColumnIndex(DataCol); DataCol := GridColumnFromColumnIndex(DataCol);
if FDataLink.Active then
DataRow := FixedRows + FDataLink.ActiveRecord
else
DataRow := 0;
if DataCol>=FirstGridColumn then if DataCol>=FirstGridColumn then
case ColumnEditorStyle(DataCol, F) of case ColumnEditorStyle(DataCol, F) of
@ -2882,7 +2887,7 @@ begin
S := '(blob)'; S := '(blob)';
end else end else
S := ''; S := '';
DrawCellText(DataCol, 0, Rect, State, S); DrawCellText(DataCol, DataRow, Rect, State, S);
end; end;
end; end;