Eu fiz o seguinte método:
procedure TFrmPipeline.ChangeButton(Sender: TSpeedButton);
begin
Case Sender.Tag of
0 :
begin
Sender.Tag := 1;
imagPadrao.GetBitmap(0, Sender.Glyph);
end;
1 :
begin
Sender.Tag := 2;
imagPadrao.GetBitmap(3, Sender.Glyph);
end;
2 :
begin
Sender.Tag := 0;
imagPadrao.GetBitmap(32, Sender.Glyph);
end;
end;
end;
E a chamada é : ChangeButton(sbutOrderCFANTASIA);
Porém, o método não funciona! Não consigo entender porque... Inicialmente o
Tag está em 0... E as imagens já estão no ImageList (imagPadrao).
Alguém poderia me ajudar?
Grato desde ja,
Leslyn Fernandes
[As partes desta mensagem que não continham texto foram removidas]
