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

fixed GetRowHeights for row 0 and GetColWidths for col 0 from Jesus

Browse Source 
git-svn-id: trunk@5546 -
This commit is contained in:
mattias 2004-06-09 06:40:19 +00:00
parent 99d8e9bb41
commit f01c40506c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -824,7 +824,7 @@ end;
function TCustomGrid.GetRowHeights(Arow: Integer): Integer;
begin
if (aRow<RowCount) and (aRow>0) then
if (aRow<RowCount) and (aRow>=0) then
Result:=Integer(FRows[aRow])
else
Result:=-1;
@ -869,7 +869,7 @@ end;
function TCustomGrid.GetColWidths(Acol: Integer): Integer;
begin
if (aCol<ColCount) and (aCol>0) then
if (aCol<ColCount) and (aCol>=0) then
Result:=Integer(FCols[aCol])
else
Result:=-1;