Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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.56 MB
Время: 0.034 c
1-74634
Beglec
2002-12-12 14:17
2002.12.23
QuickReport


14-74981
Romychk
2002-11-29 11:32
2002.12.23
Вирусы


1-74787
Zirus
2002-12-11 12:09
2002.12.23
Работа с памятью


1-74682
bambina
2002-12-13 11:18
2002.12.23
extention v saveDialog


1-74776
ДмитрийК.
2002-12-11 10:38
2002.12.23
Создание компонентов в runtime и перемещение их по форме





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский