Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

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

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Ip cameradan goruntulerini alma klavye 8 152 21-12-2017, Saat: 08:05
Son Yorum: Fesih ARSLAN
  Media player hızlı ileri alma Lord_Ares 2 137 29-11-2017, Saat: 01:26
Son Yorum: Lord_Ares
  Programda kullanılan bilesenlerin listesini alma klavye 2 156 14-09-2017, Saat: 15:17
Son Yorum: klavye
  function parametre vermeden sonuçu alma cinarbil 6 329 10-08-2017, Saat: 11:00
Son Yorum: esistem
  Lisviewden direk printer gönderme serhat 10 417 10-07-2017, Saat: 19:06
Son Yorum: brs



Konuyu Okuyanlar: 1 Ziyaretçi