bitbutton a resim eklemek

[aliyonca]

Merhaba "bitbutton" a iki adet resim eklemek istiyorum biri düğme "enable" olduğunda, öbürüde düğme "disable" olduğunda görünsün istiyorum...


Teşekkürler.

[uğur alkan]

5 tane buton vardı seçileni bu şekilde yakıyor diğerlerini söndürüyordu

Kod: Tümünü seç

procedure TForm1.BitBtn1Enter(Sender: TObject);
begin
BitBtn1.Glyph.LoadFromFile('C:\FZD400\BUTON\zeminler_dolu.bmp');
BitBtn5.Glyph.LoadFromFile('C:\FZD400\BUTON\sistem.bmp');
end;

procedure TForm1.BitBtn2Enter(Sender: TObject);
begin
BitBtn1.Glyph.LoadFromFile('C:\FZD400\BUTON\zeminler.bmp');
BitBtn2.Glyph.LoadFromFile('C:\FZD400\BUTON\desenler_dolu.bmp');
end;

procedure TForm1.BitBtn3Enter(Sender: TObject);
begin
BitBtn2.Glyph.LoadFromFile('C:\FZD400\BUTON\desenler.bmp');
BitBtn3.Glyph.LoadFromFile('C:\FZD400\BUTON\desen_editoru_dolu.bmp');
end;

procedure TForm1.BitBtn4Enter(Sender: TObject);
begin
BitBtn3.Glyph.LoadFromFile('C:\FZD400\BUTON\desen_editoru.bmp');
BitBtn4.Glyph.LoadFromFile('C:\FZD400\BUTON\toplu_islem_dolu.bmp');
end;

procedure TForm1.BitBtn5Enter(Sender: TObject);
begin
BitBtn4.Glyph.LoadFromFile('C:\FZD400\BUTON\toplu_islem.bmp');
BitBtn5.Glyph.LoadFromFile('C:\FZD400\BUTON\sistem_dolu.bmp');
end;

[aliyonca]

Sanırım soruyu yanlış sordum.

Benim sorunum şu ;

bitbutton enable olduğunda gözüken resim
disable olduğunda görünmüyor.

ama şöyle bişey var;
Enable resim, yani parlak resim ile disable resmi, yani sönük resmi birleştirip, bir resim olarak bitbuttona yüklediğimde;

butonu enable, disable değiştirdiğimde resimde parlak ve sönük olarak değişiyor.

ama ben bütün resimleri birleştirmek için uğraşmak istemiyorum. o yüzden iki resimi ayrı ayrı yükleme nasıl olur diye sordum.

Teşekkürler.

[bobasturk]

merhabalar ustalarım,

ben şöyle yapıyorum düğmeye dataset aktif olunca resim değişiyor, pasif olunca değişiyor yazısı ile beraber

Kod: Tümünü seç

ibdataset1.Active:=true;
  ibdataset2.Active:=true;
  ibdataset1.Last;
  bitbtn2.Caption:='Form Aktif';
  bitbtn2.Glyph.LoadFromFile('d:\OlayYeriIncBrProjesi\Bmp Dosyaları\tamam.bmp');

kolay gelsin

[aliyonca]

teşekkürler...

ama resimleri birleştirmek daha kolay geldi

bende kullanacağım resimlerin disable (renksiz) olanını, enable (renkli) olanın yanına paint kullanarak ekliyorum.

Delphide de bitbuttonun "NumGlyphs" özelliğinide 2 yapıyorum, sonuçta Bitbutton u enable-disable değiştirdiğimde resimde otomatik değişiyor.

Herkese teşekkürler...