Клубове

TSpeedButton и ImageList

1 отговора 0 прегледа
ИвKo #1

TSpeedButton и ImageList

Искам да сменям Glyph на SpeedButton динамично, от някакъв си ImageList.

Кода е: 


procedure TForm.SpeedButton1Click(Sender: TObject);

{$J+}

const

  Index : Integer = 0;

{$J-}

begin

 if Index = 0 then Index:=1 else Index:=0;

 ImageList1.GetBitmap(Index, SpeedButton1.Glyph);

end;


Всичко добре, но не ми се сменя Glyph визуално
При първоначално извикване се показва първата картинка, но никога не се променя.
Накаква идея

Отговор
andrew_nikoloff в отговор на ИвKo #2

бъг

Това е бъг на бутона. Трябва преди да я смениш картинката да изчистиш старата.

Linux isn't free, it's worthless.


Отговор
Отговор в темата