Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
fastreport picture nesnesi
#1
s.a. hayırlı sabahlar.

hazırladığım bir rapor için fastreport üzerindeki picture nesnesinin rotate özelliğini kullanmam gerekli. bu özellik desteklenmiyor mu? ya da bunun başka bir çözümü var mı?
Cevapla
#2
(27-10-2016, Saat: 09:09)Kamuran Alpkaya Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ols.a. hayırlı sabahlar.

hazırladığım bir rapor için fastreport üzerindeki picture nesnesinin rotate özelliğini kullanmam gerekli. bu özellik desteklenmiyor mu? ya da bunun başka bir çözümü var mı?
Konuyu açar mısın
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#3
(27-10-2016, Saat: 10:23)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
(27-10-2016, Saat: 09:09)Kamuran Alpkaya Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ols.a. hayırlı sabahlar.

hazırladığım bir rapor için fastreport üzerindeki picture nesnesinin rotate özelliğini kullanmam gerekli. bu özellik desteklenmiyor mu? ya da bunun başka bir çözümü var mı?
Konuyu açar mısın

fastreport üzerindeki text nesnelerin rotate özelliği ile istediğin açıda text yazdırabiliyorsunuz. aynı özelliğin picture nesnesi içinde kullanılıp kullanımadığını öğrenmek istedim. çünkü özellik kullanılamaz olarak gözüküyor.
Cevapla
#4
Hmm evet kullanılamıyor.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#5
jpg formatındaki bir resmi delphi kodları ile 90 derece döndürüp fastreporttaki picture nesnesinin içine gönderebilirmiyiz.
Cevapla
#6
(27-10-2016, Saat: 13:56)Kamuran Alpkaya Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Oljpg formatındaki bir resmi delphi kodları ile 90 derece döndürüp fastreporttaki picture nesnesinin içine gönderebilirmiyiz.

Neden olmasın hiç denemedim ama bence olur.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#7
frmx.gif

Test edildi!

Pas Dosyası ektedir.
İyi çalışmalar.
Ayrıca Resim çevirme işlemi için Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol  da göz atabilirsiniz.


Ek Dosyalar
.zip   Unit1.zip (Dosya Boyutu: 974 Bayt / İndirme Sayısı: 6)
Cevapla
#8
Saolun teşekkür ederim. Çözüldü.

 Var BM : TBitmap;
begin
 BM := TBitmap.Create;
 BM:=RotateImage1.RotatedBitmap;
 TFrxPictureView(frxReport1.FindObject('picture1')).Picture.Bitmap.Assign(bm);
 BM.Free;
    frxreport1.ShowReport();


Ek Dosyalar Resimler
   
Cevapla
#9
biraz yavaş olsada aşağıdaki kod ile de çevirim yapılabiliyor


procedure Rotate90(Source: TGraphic; Target: TJpegImage);
var
SourceBmp, TargetBmp: TBitmap;
r, c: Integer;
x, y: Integer;
begin
SourceBmp := TBitmap.Create;
SourceBmp.Assign(Source);
TargetBmp := TBitmap.Create;
TargetBmp.Width := SourceBmp.Height;
TargetBmp.Height := SourceBmp.Width;
for r := 0 to SourceBmp.Height - 1 do
begin
for c := 0 to SourceBmp.Width - 1 do
begin
//x := (SourceBmp.Height-1) - r; // -90
//y := c; //-90
x := r; //90
y := (SourceBmp.Width-1) - c; //90
// look into Bitmap.ScanLine for faster pixel access
TargetBmp.Canvas.Pixels[x, y] := SourceBmp.Canvas.Pixels[c, r];
end;
end;
Target.Assign(TargetBmp);
SourceBmp.Free;
TargetBmp.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Jpeg: TJPEGImage;
begin
Jpeg := TJPEGImage.Create;
Rotate90(Image1.Picture.Graphic, Jpeg);
Image1.Picture.Assign(Jpeg);
Jpeg.Free;
end;
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  FastReport TeeChart Hata elixir84 2 72 14-06-2018, Saat: 11:55
Son Yorum: elixir84
  webbrowser nesnesi sayfa bulunamadı hatası klavye 2 133 01-06-2018, Saat: 16:55
Son Yorum: klavye
  Fastreport koşula göre gösterim klavye 4 282 17-03-2018, Saat: 17:29
Son Yorum: klavye
  FastReport yazıya çevirme adelphiforumz 0 201 13-02-2018, Saat: 23:43
Son Yorum: adelphiforumz
  Fastreport koşullu rapor hazırlama klavye 7 380 08-02-2018, Saat: 10:35
Son Yorum: klavye



Konuyu Okuyanlar: 1 Ziyaretçi