Форум: "Media";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
ВнизКак поменять 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
там что-то есть
← →
Mind (2002-08-29 19:45) [6]ну спасибо ты меня выручил. :)
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c