TSpeed Buttona Nasıl ico Eklenir ?

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
hamido33
Üye
Mesajlar: 2
Kayıt: 28 Haz 2014 01:19

TSpeed Buttona Nasıl ico Eklenir ?

Mesaj gönderen hamido33 »

Herkese S.a, Hayırlı ramazanlar.

TSpeed Buttona Nasıl ico Eklenir ? :roll: :roll:
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Re: TSpeed Buttona Nasıl ico Eklenir ?

Mesaj gönderen mrmarman »

Sanırım SpeedButton'a sadece BMP eklendiğinden ICO dosyalarını eklemekte güçlük çekiyorsun.
- Glypth aslında bir Bitmap olduğunda göre bunu şu şekilde bir yapı ile projenin çalışma anında yapabilirsin.

(1) Formuna bir TImageList yerleştir. Buraya SpeedButton'larında kullanacağın ICO dosyalarını bir araya getir. ( TImageList'in Width ve Height değeri resmin boyunda veya daha büyük olmalı, çünkü bu listedeki resimler TImageList boyutuna getirilir veya seçimine göre büyükse kendiliğinden crop edilerek kırpılır )
(2) Aşağıdaki verdiğim örneği dene. Form CREATE edildiğinde listedeki sıra nosunu verdiğin ICO, istediğin Bitmap'e aktarılacaktır. Bu bir SpeedButton'un Glyph bitmap de olabilir.
(3) 0,1,vb. Rakam(lar) TImageList içerisindeki sıra/Index nosudur.
(4) ResimAtamasi isimli procedure sadece içinde Width/Height ataması yapıldığından her speedbutton için 3 satır kod yazma diye oluşturdum.

Kod: Tümünü seç

Procedure ResimAtamasi( ImageList:TImageList; Idx:Integer; Hedef:TBitmap );
begin
    Hedef.Width  := ImageList.Width;
    Hedef.Height := ImageList.Height;
    ImageList.Draw( Hedef.Canvas, 0,0, Idx);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ResimAtamasi( ImageList1, 0, SpeedButton1.Glyph );
  ResimAtamasi( ImageList1, 1, SpeedButton2.Glyph );
end;

Resim
Resim ....Resim
hamido33
Üye
Mesajlar: 2
Kayıt: 28 Haz 2014 01:19

Re: TSpeed Buttona Nasıl ico Eklenir ?

Mesaj gönderen hamido33 »

Çoook Teşekürler. Sorunum Sizin sayenizde çözüldü :)
Kullanıcı avatarı
brs
Üye
Mesajlar: 626
Kayıt: 04 Eki 2012 03:52

Re: TSpeed Buttona Nasıl ico Eklenir ?

Mesaj gönderen brs »

Hocam resmin poziyonunu nasıl ayarlayacağız layout denedim ama olmadı

Kod: Tümünü seç

Layout := blGlyphTop;
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Re: TSpeed Buttona Nasıl ico Eklenir ?

Mesaj gönderen mrmarman »

Elinizdeki tek imkan Layout property'si başka yolu yok.
Böyle yapınca resim, speedbutton caption'una yazdığın metnin hemen üzerine geçmiyor mu ?
Resim
Resim ....Resim
Kullanıcı avatarı
brs
Üye
Mesajlar: 626
Kayıt: 04 Eki 2012 03:52

Re: TSpeed Buttona Nasıl ico Eklenir ?

Mesaj gönderen brs »

Tamamdır hocam çödüm...
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
Cevapla