Tüm Platformlar için Hızlı Uygulama Geliştirme Kitap Yayın Süreci
Kitap gözden geçirilmek üzere BTG (Bilgi ve Teknoloji Grubu) 'na gönderildi. 05.10.2018-14:10
BTG (Bilgi ve Teknoloji Grubu) tarafından iki sayfalık bir reklam tasarımı bekleniyor. 08.10.2018 - 15:30
Kitap basım talebi değerlendirilmek üzere matbaaya bildirildi. Matbaadan basım süreci hakkında bilgi bekleniyor. 15.10.2018 - 15:34
Kitap 1.000 adet basım talebi ile matbaaya gönderildi. 16.10.2018 - 16:50

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
  Power Onguard ile makine kodu alma cinarbil 4 87 12-10-2018, Saat: 16:22
Son Yorum: cinarbil
  XPrinter -printer is not currently printing hatası Bay_Y 4 106 04-10-2018, Saat: 16:53
Son Yorum: Bay_Y
  Uzak masaüstü bağlanan makinayı alma hbulus 3 169 02-10-2018, Saat: 21:52
Son Yorum: hbulus
  [ÇÖZÜLDÜ]-Başka Uygulamadaki MDIChild Form Handle Alma hi_selamlar 9 416 29-06-2018, Saat: 09:52
Son Yorum: hi_selamlar
  [ÇÖZÜLDÜ]-cxDBPivotGrid Seçili Satır Alan Değeri Alma hi_selamlar 2 240 21-06-2018, Saat: 10:40
Son Yorum: hi_selamlar



Konuyu Okuyanlar: 1 Ziyaretçi