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

LCL, grids, do row auto numbering starting on first non-fixed row, from graeme and flavio

Browse Source 
git-svn-id: trunk@23632 -
This commit is contained in:
jesus 2010-02-04 20:19:44 +00:00
parent 2e36f3b61e
commit 5e049e36b3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/grids.pas
View File

@ -8501,8 +8501,9 @@ begin
if FTitleStyle<>tsNative then if FTitleStyle<>tsNative then
DrawColumnText(aCol,aRow,aRect,aState); DrawColumnText(aCol,aRow,aRect,aState);
if (goFixedRowNumbering in Options) and (FixedCols >= 1) and (aCol = 0) then if (goFixedRowNumbering in Options) and (FixedCols >= 1) and
DrawCellAutonumbering(aCol, aRow, aRect, IntToStr(aRow)); (aCol = 0) and (aRow >= FixedRows) then
DrawCellAutonumbering(aCol, aRow, aRect, IntToStr(aRow-FixedRows+1));
end; end;
{ TCustomStringGrid } { TCustomStringGrid }