paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 23:03:48 +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

7
lcl/dbgrids.pas
View File

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