Konuyu Oyla:
  • Derecelendirme: 4.5/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
PaintBoxdan printer çıktısı alma
#1
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?



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;



Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  EFinans -> E-Arşiv WSDL alma malitutuncu 0 109 20-09-2019, Saat: 10:41
Son Yorum: malitutuncu
  Quick reportta hem satır, hem sütünu db.den alma boreas 6 398 12-06-2019, Saat: 08:48
Son Yorum: boreas
  HDMI'den görüntü ve ses alma Yeliz 5 607 13-02-2019, Saat: 21:56
Son Yorum: ahmetb
  iç içe döngüyle excelden veri tabanına kayıt alma sorunu?[SORUN ÇÖZÜLDÜ] baloglurecep 4 700 20-01-2019, Saat: 13:24
Son Yorum: baloglurecep
  Kredi Kartı İle Ödeme Alma hi_selamlar 14 1.985 28-12-2018, Saat: 09:28
Son Yorum: hi_selamlar



Konuyu Okuyanlar: 1 Ziyaretçi