Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.05.08;
Скачать: [xml.tar.bz2];

Вниз

ImageList   Найти похожие ветки 

 
maksimenkon   (2003-04-24 17:47) [0]

Пожалуйста, помогите разобраться!!!....
Как в ImageList сохранить иконку, которая имеет больший размер, пропорционально уменьшив ее до нужного размера...

tblobfield(ADO_Icon.FieldByName("IconData")).savetostream(ms);
ms.Position := 0;
T:=TBitmap.Create;
tBitmap(T).loadfromstream(ms);
ImageList.Add...


В результате у меня иконки 32х32 делятся на части...


 
Юрий Федоров   (2003-04-24 17:56) [1]

Создай битмап нужного размера и перенеси изображение с исходного с помощью StretchBlt


 
maksimenkon   (2003-04-24 18:02) [2]

А примерчик можно посмотреть???


 
Юрий Федоров   (2003-04-24 18:08) [3]

специально пример писать лень, вся необходимая информация доступна по F1 (StretchBlt - из API)


 
maksimenkon   (2003-04-25 14:17) [4]

Идея понятна, но...
Подскажите, пожалуйста, что я делаю не правильно?

T:=TBitmap.Create;
tBitmap(T).loadfromstream(ms);
StretchBlt(T.Handle,0,0,32,32,T.Handle,0,0,T.Width,T.Height,0);
ImageListM.Add(...



 
MBo   (2003-04-25 14:22) [5]

T. Canvas.Handle

а ты в себя же StretchBlt делаешь - так и задумано?

tBitmap(T).loadfromstream(ms);
приведение типа ни к чему


 
maksimenkon   (2003-04-25 14:49) [6]

То что в себя- так и задуманно... но не работает...
Пробовал и T.Canvas.Handle - эфект тот же...

Может я не то делаю...
Проблема в том, что когда картинки маленькие - все нормально, а когда они больше 32х32 - ImageList делит ее на 2-е и более части... а мне нужно просто уменьшить и использовать как иконки в TreeView...



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

Форум: "Основная";
Текущий архив: 2003.05.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.01 c
14-23286
pathfinder
2003-04-22 04:22
2003.05.08
Где можно найти документацию к IBX компонентам?


3-22955
Ury
2003-04-16 23:40
2003.05.08
Disconnect


14-23355
Andrey V.
2003-04-17 13:25
2003.05.08
Access violation


3-23040
me2
2003-04-18 16:55
2003.05.08
Обновление результатов запроса


3-22937
Tomkat
2003-04-18 13:05
2003.05.08
Поик подстроки символов





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский