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: Xe2 ImageControl Bileşeni - Yardım  (Okunma sayısı 369 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı dokuzyuzon

  • Delphi 1 Level 2
  • **
  • İleti: 17
  • Rep: +0/-0
  • Cinsiyet: Bay
  • M.K.E Ankaragücü
Xe2 ImageControl Bileşeni - Yardım
« : 30 Ocak 2012 18:48:40 »
Merhaba arkadaşlar, öncelikle söylemek isterim ki, Delphi ile ilgili güncel bir web sitesi bulduğuma çok sevindim. Nede olsa Delphi ile ilgili paylaşımlar yapılan çok az sayıda site var.

Arkadaşlar, Delphi Xe2 'nin FireMonkey HD iOS Application ile bir bitmap resmini ekrana çizdirmek istiyorum.
Delphi nin eski sürümlerinde, Image1.Canvas.Draw(0,0,..TBitmap); şeklinde yapıyoduk mesela..

ImageControl Bileşeni ile bunu nasıl yapacağımı tam olarak çözemedim. Eğer konu ile ilgili bilgisi olan var ise; bilgilerini benimle paylaşabilir mi?
« Son Düzenleme: 30 Ocak 2012 21:04:04 by dokuzyuzon »
Kayıtlı
copyright © 2012

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
Ynt: Xe2 ImageControl Bileşeni - Yardım
« Yanıtla #1 : 30 Ocak 2012 19:28:02 »
yanlış yerdeki konunu sildim :)
  soruna gelirsek, pek bi fikrim yok :) (en gıcık olduğum delphi sürümü şu anda XE2)
Kayıtlı
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı dokuzyuzon

  • Delphi 1 Level 2
  • **
  • İleti: 17
  • Rep: +0/-0
  • Cinsiyet: Bay
  • M.K.E Ankaragücü
Ynt: Xe2 ImageControl Bileşeni - Yardım
« Yanıtla #2 : 30 Ocak 2012 21:06:08 »
(: Evet gıcık olunmayacak gibi değil çünkü xe2 ile ilgili hiç döküman yok. Embarcadero'nun Help'i ise tam bir rezalet. Hiç bir açıklama yok. :)

ben uğraşıyorum şuanda, eğer çözebilirsem paylaşırım  ;D
Kayıtlı
copyright © 2012

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
Ynt: Xe2 ImageControl Bileşeni - Yardım
« Yanıtla #3 : 30 Ocak 2012 21:24:00 »
zaten o yüzden lisans alırken XE yi tercih ettim bilerek XE2 almadım ;D
Kayıtlı
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı dokuzyuzon

  • Delphi 1 Level 2
  • **
  • İleti: 17
  • Rep: +0/-0
  • Cinsiyet: Bay
  • M.K.E Ankaragücü
Ynt: Xe2 ImageControl Bileşeni - Yardım
« Yanıtla #4 : 30 Ocak 2012 23:42:19 »
xe2 nin lisansıda fiyat yönünden biraz kabarık :D
Kayıtlı
copyright © 2012

Çevrimdışı barutali

  • Administrator
  • *****
  • İleti: 2.228
  • Rep: +54/-0
  • Cinsiyet: Bay
  • Falan filan ...
  • Delphi Sürümü: 2010 - XE2
Ynt: Xe2 ImageControl Bileşeni - Yardım
« Yanıtla #5 : 31 Ocak 2012 09:19:26 »
sen lisans ne zaman aldın la
Kayıtlı



Amatör Küme Programcı

Çevrimdışı sheshman

  • Delphi 2007 Level 1
  • *
  • İleti: 501
  • Rep: +10/-0
  • Cinsiyet: Bay
  • So others may live...
    • http://www.sheshman.com
Ynt: Xe2 ImageControl Bileşeni - Yardım
« Yanıtla #6 : 31 Ocak 2012 09:27:58 »
bende tam aynısını sorucaktım :D
Kayıtlı
Dünya sizden nefret ederse sizden önce benden nefret etmiş olduğunu bilin. Dünyadan olsaydınız dünya kendisine ait olanı severdi.
http://www.sheshman.com

Çevrimdışı m_ekici

  • Delphi 1 Level 2
  • **
  • İleti: 10
  • Rep: +0/-0
Ynt: Xe2 ImageControl Bileşeni - Yardım
« Yanıtla #7 : 31 Ocak 2012 10:07:55 »
Kod: [Seç]
procedure TForm2.Button1Click(Sender: TObject);
var
bmp : TBitmap;
xy0,xy1 : TPointF;
begin
  xy0.Create(10,10);
  xy1.Create(200,200);
  bmp := TBitmap.Create(100,100);
  bmp.Canvas.BeginScene;
  bmp.Canvas.DrawLine(xy0,xy1, 1);
  bmp.Canvas.EndScene;
  Image1.Bitmap.Assign(bmp);
  bmp.Free;
end;
Kayıtlı

Çevrimdışı cakirr42

  • Administrator
  • *****
  • İleti: 1.069
  • Rep: +5/-0
  • Cinsiyet: Bay
  • Ben Bana Kendim İçin Lazımım...
    • Ahmet Kürşat ÇAKIR
  • Delphi Sürümü: XE, XE2
Ynt: Xe2 ImageControl Bileşeni - Yardım
« Yanıtla #8 : 31 Ocak 2012 10:12:49 »
Alıntı yapılan: barutali - 31 Ocak 2012 09:19:26
sen lisans ne zaman aldın la
Alıntı yapılan: sheshman - 31 Ocak 2012 09:27:58
bende tam aynısını sorucaktım :D

kızılay dağıtıyodu abi :D
Kayıtlı
http://akcakir.net/
Dalından Kopan Yaprağın Akıbetini Rüzgar Tayin Eder
"Alparslan TÜRKEŞ"

Çevrimdışı dokuzyuzon

  • Delphi 1 Level 2
  • **
  • İleti: 17
  • Rep: +0/-0
  • Cinsiyet: Bay
  • M.K.E Ankaragücü
Ynt: Xe2 ImageControl Bileşeni - Yardım
« Yanıtla #9 : 31 Ocak 2012 12:37:14 »
Alıntı yapılan: m_ekici - 31 Ocak 2012 10:07:55
Kod: [Seç]
procedure TForm2.Button1Click(Sender: TObject);
var
bmp : TBitmap;
xy0,xy1 : TPointF;
begin
  xy0.Create(10,10);
  xy1.Create(200,200);
  bmp := TBitmap.Create(100,100);
  bmp.Canvas.BeginScene;
  bmp.Canvas.DrawLine(xy0,xy1, 1);
  bmp.Canvas.EndScene;
  Image1.Bitmap.Assign(bmp);
  bmp.Free;
end;

Sayın m_ekici, öncelikle yardımcı olduğunuz için çok çok teşekkür ederim. Çizgi çizdirmede herhangi bir sorun çıkmadı.

Peki bir dosyadan, bmp resmini nasıl çizdirebilirim? Bu kod bana birşeyler uyandırdı ama hala ? leri var kafamda :)
Kayıtlı
copyright © 2012

Çevrimdışı dokuzyuzon

  • Delphi 1 Level 2
  • **
  • İleti: 17
  • Rep: +0/-0
  • Cinsiyet: Bay
  • M.K.E Ankaragücü
Ynt: Xe2 ImageControl Bileşeni - Yardım
« Yanıtla #10 : 31 Ocak 2012 12:45:27 »
Kod: [Seç]
var
b: TBitmap;
begin
b := TBitmap.CreateFromFile('rsm\_bg1.png');
    kareler := TKareler.Yeni;
    Image1.Bitmap.Canvas.BeginScene;
    Image1.bitmap.Canvas.DrawThumbnail(b,50,50);
    image1.Bitmap.Canvas.EndScene;
    image1.Bitmap.BitmapChanged;

  Image1.Bitmap.Assign(b);
  b.Free;




end;

Bu şekilde yapabildim :) Kafamda birşeyler uyandırdığın için teşekkürler
Kayıtlı
copyright © 2012

Çevrimdışı dokuzyuzon

  • Delphi 1 Level 2
  • **
  • İleti: 17
  • Rep: +0/-0
  • Cinsiyet: Bay
  • M.K.E Ankaragücü
Ynt: Xe2 ImageControl Bileşeni - Yardım
« Yanıtla #11 : 02 Şubat 2012 23:57:06 »
Yeni konu açmayım dedim, Delphi 6 da 7 de, DoubleBuffered := True; Yaptığımız zaman resimleri arda arda yüklediğimizde yada koyulaştırıp açıklaştırma gibi efektler uygulamadığımızda ekran beyaz beyaz oluyodu. Xe2 iOS'da bu komuta karşılık gelecek bir ayar var mı? ben bulamadım?
Kayıtlı
copyright © 2012
Sayfa: [1]   Yukarı git
« önceki sonraki »