Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.02.14;
Скачать: CL | DM;

Вниз

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

 
Шурка   (2009-12-17 12:07) [0]

Всем привет =) Делая курсовую, столкнулся с проблемищей...

ImageList при загрузке картинки из файла загружает верхний слой рисунка и все...

Т.е. рисунок 100х100, а в компоненте стоит размер 50х50. он загрузит 2 верхних куска, а нижние не загрузит... Вот код:

ImageList1.Clear;
ImageList1.SetSize(50,50);
ImageList1.FileLoad(0, "1.bmp" , nil);


 
clickmaker ©   (2009-12-17 12:23) [1]

> Т.е. рисунок 100х100, а в компоненте стоит размер 50х50.
> он загрузит 2 верхних куска, а нижние не загрузит

логично.
а в чем проблема-то?


 
Шурка   (2009-12-17 12:46) [2]

он загружает не 4 куска, а 2... нижняя половина рисунка не грузится...

т.е. (0,0)-(50,50) и (50,0)-(100,50) грузятся, а (0,50)-(50,100) и (50,50)-(100,100) нет...


 
clickmaker ©   (2009-12-17 13:04) [3]

а как ты предлагаешь уместить в имиджлисте 50 на 50 рисунок 100 на 100?


 
Шурка   (2009-12-17 13:14) [4]

блин... он разбивает рисунок 100х100 на 4 рисунка 50х50... когда правой кнопкой на форме на него кликаешь и загружаешь, а если из программы загружать, то он загружает только 2...


 
clickmaker ©   (2009-12-17 13:20) [5]

> он разбивает рисунок 100х100 на 4 рисунка 50х50

не он, а дельфи предварительно нарезает рисунок на 4, а потом грузит их поочередно.
Тебе нужно программно сделать то же самое


 
Шурка   (2009-12-17 13:22) [6]

да... но это проблемно...


 
Andy BitOff ©   (2009-12-17 13:22) [7]

> Шурка   (17.12.09 13:14) [4]

Покажи скрин, что значит > он загрузит 2 верхних куска, а нижние не загрузит


 
Шурка   (2009-12-17 13:24) [8]

ааа... все, тема закрыта... спасибо



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

Текущий архив: 2010.02.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
2-1260983201
S-C-L
2009-12-16 20:06
2010.02.14
Как в Delphi работать с операторами?


1-1237819822
Marfusha
2009-03-23 17:50
2010.02.14
Запуск макроса OpenOffice из Delphi


15-1260347327
ford
2009-12-09 11:28
2010.02.14
TRegExpr поогите составить выражение


15-1260353314
ocean
2009-12-09 13:08
2010.02.14
Mozilla с Avast?


15-1260069104
KilkennyCat
2009-12-06 06:11
2010.02.14
Билогический прогресс был бы лучше технического.