Grafikle alakalı, Formu yazdırırınca Siyah çıktı alıyorum...

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
baypipox
Üye
Mesajlar: 122
Kayıt: 16 Eki 2006 04:23
İletişim:

Grafikle alakalı, Formu yazdırırınca Siyah çıktı alıyorum...

Mesaj gönderen baypipox »

Arkadaş aşağıdaki kodla stringgrid'in ekran görüntüsünü kopyalıyorum, daha sonrada farklı bir formdaki image bileşenine atıyorum, en son olarakda image bileşeninin bulunduğu formu print komutu ile yazdırıyorum. Sorunda burda patlak veriyo yazıcıdan simsiyah bir sayfa çıkıyo... (Formumun boyutunda).. Bunun nedeni nedir? image nesnesine gönderdiğim görüntü normalde ekranda görünüyo, yani kopyalamakda bir sıkıntı yok ama yazdırınca formu, bahsettiğim gibi bir sorunla karşılaşıyorum... Nasıl halledebilirim?

İlgilenen arkadaşlara şimdiden çok çok teşekkür ederim....

Kod: Tümünü seç

procedure Tfbilgi.Button4Click(Sender: TObject);
var arect:trect;
begin
arect:=rect(0,0,sg.Width,sg.Height);
newbilgikarti.Image1.canvas.CopyRect(arect,Sg.Canvas,arect);
newbilgikarti.show;

end;

Kod: Tümünü seç

procedure Tnewbilgikarti.YazdirButton1Click(Sender: TObject);
begin
   YazdirButton1.Hide;
   newbilgikarti.Print;
   YazdirButton1.show;
end;

end.
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

yorum getiricem sadece;
stretch
yapıp birde dene istersen.
resimle image nesnesinin boyutu aynı olmadığından siyah bir alanı bastırıyor olabilirsin belki

Kod: Tümünü seç

procedure Tnewbilgikarti.YazdirButton1Click(Sender: TObject); 
begin 
   YazdirButton1.Hide; 
   newbilgikarti.stretch; 
   newbilgikarti.Print; 
   YazdirButton1.show; 
end; 

end.
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Kullanıcı avatarı
baypipox
Üye
Mesajlar: 122
Kayıt: 16 Eki 2006 04:23
İletişim:

Mesaj gönderen baypipox »

formun stretch diye bir özelliğini bulumadım yani yok, yinede saolun..
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

Mesaj gönderen conari »

pardon newbilgikartı form imiş
image nesnesine yapacaktık işlemi

Kod: Tümünü seç

Image1.stretch=true"

dene
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
Kullanıcı avatarı
baypipox
Üye
Mesajlar: 122
Kayıt: 16 Eki 2006 04:23
İletişim:

Mesaj gönderen baypipox »

yok gene olmadı...
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

Selam...

- Verdiğin kodda hata görünmüyor. Boş yeni bir proje açıp bize yazdığın kadarıyla bir kurgu yap ve çalıştır. Yani iki tane form her forma birer button ve ilk forma bir tane TStringGrid ekle ve adını sg koy falan..

- Daha sonra adım adım eklemelerini yapıp soruna odaklan.
Resim
Resim ....Resim
Kullanıcı avatarı
baypipox
Üye
Mesajlar: 122
Kayıt: 16 Eki 2006 04:23
İletişim:

Mesaj gönderen baypipox »

muharrem abi onuda denedim ama yine aynı sonuç oldu bende şöyle farkı bir yol izledim sorun çözüldü, bir tane quickrap koydum forma ve onun üstüne qrimage bileşenini yine yukardaki kodla image bileşenine kopyaladığım alanı gönderdim daha sonrada raporu görüntületip rapor bileşeninden (Quick Report kullanıyorum) yazdırdım oldu... yardımlarınızdan dolayı çok çok teşekkürler sağlıcakla kalın...
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

Sorununu çözdüğüne sevindim.

- Senin örneği projelendirip rapid'e koydum bir incele bakalım farklı ne yapmışsın ?

http://rapidshare.com/files/31777161/Ca ... t.zip.html
Resim
Resim ....Resim
Kullanıcı avatarı
baypipox
Üye
Mesajlar: 122
Kayıt: 16 Eki 2006 04:23
İletişim:

Mesaj gönderen baypipox »

abi enteresan yaw verdiğin projeyi çalıştırdım, güzel bi şekilde çıktıyı verdi, lakin benim formda stringgrid'in yanında panelleler felan var ve bir kaç bişey daha, onlardan falanmı etkileniyo ne yapıyo anlamadım, yardımın için çok saol abi teşekkürler.. Sorun halloldu...
Cevapla