Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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...




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




Наверх








Память: 0.76 MB
Время: 0.029 c
1-23058           tipman                2003-04-25 16:20  2003.05.08  
глюки с extended?


1-23097           Leviathan             2003-04-26 21:22  2003.05.08  
Помогите с Паскалем!


1-23163           IronHawk              2003-04-24 15:03  2003.05.08  
Приветствую Мастеров! Как повесить событие на мышу когда она ...


1-23201           supersan              2003-04-18 15:42  2003.05.08  
Глюк при показе формы


14-23341          Вус Вова              2003-04-20 15:12  2003.05.08  
как мою прогу засунуть в авто загрузку из под безопасного режима?