Hayırlı Bayramlar.
PaintBoxda bulunan görselin çıktısını printer almak istiyorum ilk denememde boş bir dosya çıktı sonraki denemelerimde ise prınter herhangi bir vermedi.
Paintboxda bulunan görselin çıktısını nasıl alabilirim?
PaintBoxda bulunan görselin çıktısını printer almak istiyorum ilk denememde boş bir dosya çıktı sonraki denemelerimde ise prınter herhangi bir vermedi.
Paintboxda bulunan görselin çıktısını nasıl alabilirim?
procedure TForm3.PaintBoxClick(Sender: TObject); var Rate: Real; Rec: TRect; begin With PrintDialogs, PaintBox do begin if Execute then begin Rate := Printer.PageWidth / Width; Printer.BeginDoc; Rec := Rect(0, 0, Round(Width * Rate), Round(Height * Rate)); Printer.Canvas.CopyRect(Rec, Canvas, Canvas.ClipRect); Printer.EndDoc; end end; end;