|
私がつっこんだで暴走させてしまったようで心苦しかったのですが、ホット一息
もしかして出入り禁止。？と思いながら書いています。
ところで「plPrev.pas」ですが、現状仕様だとプリンタのインストール数が
違うと別マシンで form作成エラーになるので try finally で囲っていただ
けないでしょうか
procedure TCustomplPrev.DefineProperties(Filer: TFiler);
begin
Inherited DefineProperties(Filer);
try // A 2012/04/23
Filer.DefineProperty('DesignPaperValue', ReadDesignValues, WriteDesignValues, True);
Filer.DefineBinaryProperty('PrinterData', ReadPrtData, WritePrtData, True);
finally // A 2012/04/23
end; // A 2012/04/23
end;
|