Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.09.2015, 01:01   #1
tim21701
Пользователь
 
Регистрация: 16.01.2012
Сообщений: 67
Вопрос Вывод изображения в TImage с проверкой на равные пропорции

Необходимо перед загрузкой в TImage проверить изображение на "равные пропорции" и, если изображение (к примеру) 100 на 90 - вывести сообщение что пропорции не одинаковы.
Проще говоря, если изображение квадратное (и не менее 100 на100) - то всё нормально, если нет - выводить сообщение об этом.
Приведите пример пожалуйста или куда вообще копать...
tim21701 вне форума Ответить с цитированием
Старый 03.09.2015, 05:57   #2
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,876
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var 
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create('путь\до\файла.bmp');
  if Bmp.Width <> Bmp.Height then
    ShowMessage('пропорции не одинаковы');
  // else 
  Image1.Picture := Bmp;
  Bmp.Free;
end;
Что-то подобное можно.
Если надо не загружать картинку в имейдж то раскомментировать else и убрать ; на пред. строке, ибо Вы непонтяно написали - надо ли прерывать загрузку картинки с выводом сообщения.

Последний раз редактировалось phomm; 03.09.2015 в 06:00.
phomm вне форума Ответить с цитированием
Старый 03.09.2015, 16:59   #3
саша40
Участник клуба
 
Регистрация: 12.09.2012
Сообщений: 1,030
По умолчанию

Размеры изображения получаешь. А потом сравниваешь, если ширина = длине, то правильно.
P.S. 100 на 100 = 1 на 1.
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод из Quik и Архивация со проверкой и смещением viinx Microsoft Office Excel 0 20.09.2012 20:47
Сжатие изображения в TImage dwp_prof Мультимедиа в Delphi 2 21.04.2012 22:16
TImage определения типа изображения Anubys C++ Builder 2 06.04.2012 23:02
Загрузка GIF изображения в TImage из TMemoryStream Crystallon Общие вопросы Delphi 0 28.12.2010 12:16
Загрузка изображения для создаваемого TImage LynxRufus Общие вопросы Delphi 3 20.01.2010 08:07