ImageList com SpeedButton

Delphi

22/10/2004

Como podeira usar ImageList em SpeedButton.

Fiz um programa com alguns botões padrão nas telas. Gostaria de usas 2 imagelist: uma com imagens ativas e a outra com imagens inativas. Se eu usar o tollbar agora vai dar maior trabalho devido a codificação em cada botão. Trabalho com form pai e filho.

As images que tenho é do padrão XP. Quando o botão fica enabled = false a imagem desaparece.

Valeu a força !!!

JR.


Jrjoliv2003

Jrjoliv2003

Curtidas 0

Respostas

Lucianols

Lucianols

22/10/2004

seguinte

procedure HabDesBotao(Sender: TSpeedButton; Index: Integer);
var
Img: TImageList;
begin
if Sender.Enabled then
Img := ImgNormal
else
Img := ImgDesabilitado;

with Img do
begin
Sender.Glyph := nil;
GetBitmap(Index, Sender.Glyph);
end;
end;


GOSTEI 0
Jrjoliv2003

Jrjoliv2003

22/10/2004

Blz, vou testar o código.


Mas alguém sabe como fazer para que os Glyphs XP não desapareça quando o botão estiver speedbutton.enabled:=true;

Valeu a força!!!

JR.


GOSTEI 0
Jrjoliv2003

Jrjoliv2003

22/10/2004

Ninguém tem idéia pq os Glyphs do WIn xP desaparecem com speedbutton.enabled:=true. Ou tenha alguns botões win xp que possa me fornecer que não sumam.

OBS: O código do imagelist que o lucianols passou eu estou testando.

Valeu a força!!

JR.


GOSTEI 0
Jrjoliv2003

Jrjoliv2003

22/10/2004

Consegui abrindo o glyph no Paint, fazendo uma cópia, posicionando do lado do original e mudando a cor.

Quando coloco o glyph no botão se ativar enabled = false fica o glyph com a cor editada, se enabled = true fica o glyph com a cor original.

Valeu!!!

JR.


GOSTEI 0
POSTAR