| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как поменять Glyph? [D6, WinXP]
Mind © (2002-08-28 20:42:00)Как сделать так чтобы при нажатии на 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;
DiMM (2002-09-09 05:56:00) [1]
Mind (2002-08-29 19:45:00) [2]ну спасибо ты меня выручил. :)
Poirot (2002-08-29 14:41:00) [3]Demos\ImagView
там что-то есть
Mind (2002-08-29 14:29:00) [4]Спасибо получилось ! А ты случайно незнаешь еше как сделать чтоб SpeedButton при нажатии вжался а при следуюшем нажатии отжался? Наверно ето ламерский вопрос но я как не делал неполучется...
Poirot (2002-08-29 13:52:00) [5]
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 11:50:00) [6]я так уже пробовал но ети Glyphы неменяют на кнопке простова Glypha. Tоесть работаеют при нажатии и все такое. а мне надо штоб после нажатия поменялся Glyph на кнопке... так что ето несовсем то. хотя всеравно спасибо :)
Poirot (2002-08-29 09:39:00) [7]Слухай сюда!!!
Помоему тебе просто надо в одной картинке подряд несколько сделать.... как с втандартных имиджах... и вот там помоему всё само происходит .... насколько я помню... т.е. первая для активного вторая для неактивного, третья во(можно) при наведении четвёртая при нажатии....(возможно)....
| |
