вот что у меня получилось

TJPEGImage * examp = new TJPEGImage;
TBitmap *BB = new TBitmap;
examp->LoadFromFile("test.jpg");
BB->Assign(examp);
ImageList1->Add(BB,BB);
ImageList1->Draw(DrawGrid1->Canvas,Rect.Left,Rect.Top,0,true);

Как после загрузки уменьшить размер картинки?

И еще вот какая проблема. У картинок загруженных в ImageList должен быть фиксированный размер (к примеру 100х100), если есть картинка 500 на 500 мы ее уменьшаем до 100х100 и заталкиваем в ImageList, но если картинка 600х500 его без искажений не уменьшишь до 100х100....

Карабас Барабас kutuzovBB->Assign(examp);
меняешь на
BB->Width=100;
BB->Height=100;
BB->PixelFormat=pf24bit;
BB->Canvas->StretchDraw(.....examp);

если картинка других пропорций, нежели 1х1, то соответственно вычисляй нужную высоту (или ширину) в зависимости от реального размера, чтобы уменьшенная картинка входила в 100х100
Posted via ActualForum NNTP Server 1.3

я что-то не понял (ну или ты мой вопрос)
пример

ImageList1 имеет размер 100х100
- 1я кортинка имеет размер 200х200, уменьшаем ее до 100х100, засовываем в ImageList1
- 2я имеет размер 200х180 уменьшаем до 100х90 пытаемся засунуть в ImageList1 он кричит что неправельный размер картинки :)