|
XE6でコンパイルできるようにDEL6で作成したアプリをコンバートしています。
先週やっとコンパイルエラーが消えたのですが、印刷関係のアプリで
フォームを開くと「リストのインデックスが範囲を超えています(-1)」
エラーが発生してしまいました。
何しろ力ずくで dfm にあった印字コンポーネントを直接
plPreViewEx に置き換えたので、何かミスしたかと順番に調べてみました。
原因は Printer.PrinterIndex := -1 でした。
今までのバージョンではエラーにならなかったので調べるのに
時間がかかりました。どうやって直すか只今思案中。
何かよい方法があれば教えて下さい。
↓↓テストプログラム↓↓
procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
Printer.PrinterIndex := -1;
end;
|