Вниз
Скачать: CL | DM;

Как загрузить из ImageList   Найти похожие ветки 

 
Wel   (2006-02-25 22:03) [0]

Уважаемые мастера. У меня вопрос насчет ImageList. Сразу напишу, что есть: Panel1 в ней Image1; SpeedButton1; Timer1; ImageList1 и ImageList2.Подскажите пожалуйста, как сделать что бы, нажав на SpeedButton в  нем менялась иконка = из ImageList1, а в циферблате Timer т.е Image1 цифры из ImageList2. Если не затруднит то напишите кусочек кода. С Уважением.


 
Palladin ©   (2006-02-25 22:32) [1]

а как ты для SpeedButton1 из ImageList1 выбирал картинку? помнишь?


 
Wel   (2006-02-26 01:20) [2]

В том то и дело что еще ничего не получилось загрузить. Кроме зтого не пойму как сделать циферблат из трех цифр (000). Наверное как то нужно прописать формат. И насчет Timer, если я правильно представляю его работу, то Цифры из Imagelista должны поочередно грузится? Подскажите пожалуйста, а еще лучше, напишите. Заранее благодарю.


 
Zeqfreed ©   (2006-02-26 01:39) [3]

Не совсем понятно что надо. Одно скажу, цифры не стоит из ImageList"а грузить, лучше их отрисовывать на картинке с помощью, например, DrawText или TextOut.


 
Wel   (2006-02-26 12:21) [4]

Всем, Добрый день. Хочу сказать что у меня получилось все таки загрузить из ImageList в Image. procedure TForm1.N13Click(Sender: TObject);
begin
ImageList2.GetBitmap(Tag, Image2.Picture.Bitmap);
end;
Но только одну из десяти, а как подгрузить остальные, что бы 3 подподряд (000). И сделать что бы цифры менялись по таймеру, не получается. Может быть кто нибудь сталкивался с этим, то напишите ПОЖАЛУЙСТА кусочек кода. С Уважением.


 
DesWind ©   (2006-02-26 12:56) [5]

У ImageList есть метод Draw, в который параметрами передается канва на которой ты хочешь нарисовать, координаты и индекс картинки из списка.

ImageList1.Draw(Image.Canvas,10,10,0);



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c
15-1139919604
Digitman
2006-02-14 15:20
2006.03.12
ASIO DDK


4-1134316307
vovan_spb
2005-12-11 18:51
2006.03.12
Сообщение из sysTray


3-1137757377
_RusLAN
2006-01-20 14:42
2006.03.12
Нужна идея. Передача даных с одной БД в другую (FireBird)


2-1140963693
Новочеркасский Волк
2006-02-26 17:21
2006.03.12
Передать TPoint серверу.


1-1137416780
sally
2006-01-16 16:06
2006.03.12
Отображение(отрисовка) изображения




   Наверх