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

fix col/row indices in gridcelleditor example

Browse Source 
git-svn-id: trunk@15158 -
This commit is contained in:
jesus 2008-05-15 18:11:18 +00:00
parent 0da12a77ab
commit ec0b7a24ab
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/gridcelleditor/unit1.pas
View File

@ -35,8 +35,8 @@ var
x: Integer; x: Integer;
begin begin
// fill the grid // fill the grid
for y:=0 to StringGrid1.ColCount-1 do begin for x:=0 to StringGrid1.ColCount-1 do begin
for x:=0 to StringGrid1.RowCount-1 do begin for y:=0 to StringGrid1.RowCount-1 do begin
StringGrid1.Cells[x,y]:=IntToStr(x)+','+IntToStr(y); StringGrid1.Cells[x,y]:=IntToStr(x)+','+IntToStr(y);
end; end;
end; end;