Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Bir resmin Baskıda görülecek x ve y CM Ölçüleri  (Okunma sayısı 1588 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı HBV

  • Delphi 6 Level 5
  • *****
  • İleti: 298
  • Rep: +11/-7
  • Cinsiyet: Bay
Bir resmin Baskıda görülecek x ve y CM Ölçüleri
« : 14 Ekim 2007 01:15:09 »
Aşağıdaki Kod İmagedeki bir resmin Baskıda görülecek x ve y CM Ölçülerini verir
(A4 Kağıt boyutuna göre)

Kod:  (Unknown Language)
  1. procedure TForm1.BitBtn1Click(Sender: TObject);
  2. //Uses'e : Math; ekleyiniz.
  3. Var// İmagedeki Resmin x - y Baskı CM Değerleri
  4.  fx,fy,sonuc1,sonuc2:real;
  5. begin
  6.  fx:=0;
  7.  fy:=0;
  8.  begin
  9.   fx:=Image1.Picture.Width;// İmagedeki Resmin "x" yönü
  10.   fy:=Image1.Picture.Height;// İmagedeki Resmin "y" yönü
  11.   sonuc1:=fx/38;//Baskıda "x" yönünde 38 piksel 1 CM. görünür.
  12.   sonuc2:=fy/38;//Baskıda "y" yönünde 38 piksel 1 CM. görünür.
  13.   Label1.Caption:=floattostr(s1);// Resmin "x" Yönünün Baskıda görülecek CM değeri
  14.   Label2.Caption:=floattostr(s2); // Resmin "y" Yönünün Baskıda görülecek CM değeri
  15.   (frxReport1.FindObject('Picture1') as TfrxPictureview).Picture.Assign(Image1.Picture);//FastReport
  16.   frxReport1.ShowReport //Önizleme
  17.   //Form2.QRImage1.Picture.Assign(Image1.Picture);//QReport
  18.   //Form2.QuickRep1.Preview;
  19. end;
« Son Düzenleme: 14 Ekim 2007 01:29:14 by HBV »
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »