-
{RASkov} © (22.08.08 23:36) [0]1)
for C:=0 to 2 do
for R:=0 to 2 do begin
Ind:=R*2+C;
.......
Что-то никак не соображу как в Ind получить последовательность (0,1,2,3,4,5,6,7,8) или (1,2,3,4,5,6,7,8,9)
2)
Или вот такой вопрос:
Как расчитать Rect'ы зная их кол-во и размер сетки. Т.е.var R: TRect;
begin
ColCount:=5;
RowCount:=5;
for I:=0 to ColCount*RowCount-1 do begin
R:=Rect(?)
Canvas.Rectangle(R); //Должна получится на канве сетка 5х5
........
Ох уж эта математика, да еще и в пятницу :( -
C*3+R+1