Image1->AutoSize = false;
Image1->Stretch = true;
Image1->WIdth = 20;
Image1->Height = 20;
Надо уменьшить изображение в TImage
В компонент TImage загружаю картинку обычным способом:
Image1->Picture->LoadFromFile(OpenDialog1->FileName);
Размер картинки очень большой, как его уменьшить? А лучше дайте сцилку где это можно прочитать, если такая имеется.
Image1->Picture->LoadFromFile(OpenDialog1->FileName);
Размер картинки очень большой, как его уменьшить? А лучше дайте сцилку где это можно прочитать, если такая имеется.
Цитата: iRain
В компонент TImage загружаю картинку обычным способом:
Image1->Picture->LoadFromFile(OpenDialog1->FileName);
Размер картинки очень большой, как его уменьшить? А лучше дайте сцилку где это можно прочитать, если такое имеется.
Image1->Picture->LoadFromFile(OpenDialog1->FileName);
Размер картинки очень большой, как его уменьшить? А лучше дайте сцилку где это можно прочитать, если такое имеется.
Если имеется ввиду отображение на форме, то:
Код:
Большое спасибо за помощ!
Теперь еще вопрос.
У меня есть N-ое количество фотографий, и мне их надо вывести на форму в виде маленьких изображений.
Теперь еще вопрос.
У меня есть N-ое количество фотографий, и мне их надо вывести на форму в виде маленьких изображений.
Цитата: iRain
У меня есть N-ое количество фотографий, и мне их надо вывести на форму в виде маленьких изображений.
Можно динамически создавать на форме несколько TImage, загружая в них по фотографии и масштабируя как в прошлом посте.
Но мне кажется, что лучше их уменьшать по размеру не контролом, а через графические функции. Т.е. если у картинки ширина, скажем, 640х480, то сначала ее уменьшить до 120х120, а потом уже загружать в TImage... Так будет правильней...
PS: Можно вообще использовать один TImage на все картинки, отрисовывая их на Canvas'е этого TImage
http://cbuilder.ru/index.php/topic,1805.0.html уже все написано
Спасибо всем за помощ, вчера еще знакомые Делфисты помогли. Все получилось.