名前
題名
▼ snail3さん > 一応ご報告。今回の件とは関係ないと思いますが > プリンタのインストール台数によっては create で死んでしまうので > 下のように修正してみました > > constructor TCustomplPrev.Create(AOwner: TComponent); > begin > inherited; > FUseOriginPaperSize := False; > FTempSetPrinter := TplSetPrinter.Create(Self); > FTempSetPrinter.Name := 'Default'; > FNoPrinter := FplSetPrinter.PrintersCount=0; > if Printer.Printers.Count < 1 then // A 2012/07/12 > MessageDlg( '*E:No Printer(plPrev)', mtInformation, [mbYes], 0 ) // A 2012/07/12 > else // A 2012/07/12 > begin // A 2012/07/12 > if Printer.Printers.Count <= Printer.PrinterIndex then // A 2012/07/12 > Printer.PrinterIndex := 0; // A 2012/07/12 > if FNoPrinter=False then FTempSetPrinter.PrinterName :=Printer.Printers[Printer.PrinterIndex]; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link