Как поменять Glyph?

← →
Mind © (2002-08-28 20:42) [0]

Как сделать так чтобы при нажатии на SpeedButton менялся его Glyph? Для етова я использую ImageList но чтота не получаетса, Glyph меняется только один раз, а второй раз не меняется. вот код :
procedure TForm1.SpeedButton1Click(Sender: TObject); begin if SpeedButton1.Tag = 0 then begin SpeedButton1.Tag := 1; ImageList1.GetBitmap(0,Speedbutton1.Glyph) end else begin SpeedButton1.Tag := 0; ImageList1.GetBitmap(1,Speedbutton1.Glyph) end end;

← →
Poirot © (2002-08-29 09:39) [1]

Слухай сюда!!!
Помоему тебе просто надо в одной картинке подряд несколько сделать.... как с втандартных имиджах... и вот там помоему всё само происходит .... насколько я помню... т.е. первая для активного вторая для неактивного, третья во(можно) при наведении четвёртая при нажатии....(возможно)....

← →
Mind © (2002-08-29 11:50) [2]

я так уже пробовал но ети Glyphы неменяют на кнопке простова Glypha. Tоесть работаеют при нажатии и все такое. а мне надо штоб после нажатия поменялся Glyph на кнопке... так что ето несовсем то. хотя всеравно спасибо :)

← →
Poirot © (2002-08-29 13:52) [3]

procedure TForm1.SpeedButton1Click(Sender: TObject); var Bit:TBitMap; begin Bit:=TBitMap.Create; if SpeedButton1.Tag = 0 then begin SpeedButton1.Tag := 1; ImageList1.GetBitmap(0,Bit); Speedbutton1.Glyph.Assign(Bit); end else begin SpeedButton1.Tag := 0; ImageList1.GetBitmap(1,Bit); Speedbutton1.Glyph.Assign(Bit); end; Bit.Free; end;
Вот это работает.... тока несовсем безопасно тут надо try finally end добавить для освобождения объекта

← →
Mind © (2002-08-29 14:29) [4]

Спасибо получилось ! А ты случайно незнаешь еше как сделать чтоб SpeedButton при нажатии вжался а при следуюшем нажатии отжался? Наверно ето ламерский вопрос но я как не делал неполучется...

← →
Poirot © (2002-08-29 14:41) [5]

Demos\ImagView
там что-то есть

ну спасибо ты меня выручил. :)

Как поменять Glyph? Найти похожие ветки