TimageList'teki resimleri Timage'de gösteremiyorum...

[huseyinkucuk]

Merhaba arkadaşlar... Belki basit bir soru olucak ama aşamadım bunu... Forumda da baktım ama bulamadım (olmasına da pek ihtimal vermedim) TİmageList'imde resimler var, ben bunları Timage nesnelerimde göstermek istiyorum... Yapamadım... Nasıl yapabilirim... Yardımlarınız için şimdiden teşekkür ederim...

[Z.D.]

başlığı cevapsız görünce basit bi kod yazdım

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Var
  Icon: TICON;
  IconIndex:Integer;
Begin
  //-----------------------------------------------------------
  //- Mesela ImageList1 de 3-4 tane icon olsun
  //- biz burdan 1 numaralı iconu Image1 nesnesinde gösterelim
  //-----------------------------------------------------------
  IconIndex := 1; // ImageList1' deki icon numarası

  Icon := tIcon.Create;
  ImageList1.GetIcon(IconIndex, Icon);
  Image1.Picture.Icon.Assign(Icon);
  Icon.free;
  //-----------------------------------------------------------
  //- Aynı şekilde TBITMAP içinde benzer yöntem ile alabilirsin
  //-----------------------------------------------------------
end;

kolay gelsin

[huseyinkucuk]

Oldu ama tam olarak olmadı maalesef İcon olarak çıkıyolar resimler, yani küçük çıkıyolar... image1.height ve width i değiştirsem de büyümüyor Ama yine de benim için ilerleme oldu, ilgilendiğin için teşekkür ederim @Z.D.

[aslangeri]

s.a.
image bileşeninin strech ve autosize özelliklerini biraz kurcala istersen.
kolay gelsin.

[huseyinkucuk]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  BitMap:TBitmap;
  BitMapindex:integer;
begin
  BitMapindex:=1;
  BitMap:=TBitmap.Create;
  imagelist1.GetBitmap(bitmapindex,BitMap);
  image1.Picture.Bitmap.Assign(image1);
  BitMap.Free;
end;

yaptım ama "Cannot assign a TImage to a TBitmap" hatası verdi...

[aslangeri]

s.a.
hangi satırda hata verdi.
tbitmap i timage olarak değiştirmen belki sorunu çözer.
kolay gelsin.