Главная страница
    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.008 c
6-23262
AnDRey
2003-03-13 16:22
2003.05.08
Сообщения через lan


14-23332
Yegor
2003-04-19 19:15
2003.05.08
Вертикальный resize


3-22994
Nikolai_S
2003-04-17 16:42
2003.05.08
Как получить доступ к запороленной базе Access из Дельфи?


1-23174
NAlexey
2003-04-24 13:29
2003.05.08
FocusRect


3-22938
Sergant
2003-04-21 08:14
2003.05.08
Упаковка БД Interbase





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