ご存知のかたいらっしゃいましたらお願い致します。
windows 2000
delphi 7
下記のようなコードがあります。
dsg.colcount := 30;
dsg.colcount := 10;
***********************
procedure form.dsgDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
sgd.cells[ACol,ARow] := PHeader(Objects[ACol,ARow])^.contents;
end;
formが表示された際に、dsgDrawCellが実行されます。
ただ場合によって,期待しているように動作していなかったので
下記のようなコードを追加しました。
procedure form.dsgDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
showmessage(IntToStr(ACol)); //追加
sgd.cells[ACol,ARow] := PHeader(Objects[ACol,ARow])^.contents;
end;
この結果AColが
0,28,29
0,28,29
（繰り返し）
//1〜27までのAColが抜けている
となっていました。
当たり前のように0,1,2,3,・・・29
0,1,2,3,・・・29
0,1,2,3,・・・29
繰り返し
//0〜ColCount - 1まで実行される。
と思っていました。
この違いは、どこにあるのでしょうか？
ご存知の方いらっしゃいましたらお願いします。
以上
すみません。
間違えてしまいました。
すみません。
間違えてしまいました。