Показать сообщение отдельно
  #1  
Старый 04.04.2014, 14:53
Аватар для JunkieBeat
JunkieBeat JunkieBeat вне форума
Прохожий
 
Регистрация: 01.02.2013
Сообщения: 48
Версия Delphi: Delphi7 Lite Ed
Репутация: 10
По умолчанию Узнать размер иконки

Здравствуйте, мне надо получить размер иконки, в целом она грузиться в icon, после чего если она больше 16 в длину или высоту,надо её сжать до 16х16 ,сжатие у меня получается а вот само условие не в какую((
Уже по всякому пробовал и icon.width и tPicture использовал смотрел и TPic.width и TPic.icon.width все равно всегда пишет что 32 хотя сама картинка 16х16.

вот код:
Код:
Icon:=TIcon.Create;
      Icon.LoadFromFile(ad);
      ft.Caption:=inttostr(icon.width);
      //FImg.Width:=Icon.Width;
      //FImg.Height:=Icon.Height;
      //FImg.Canvas.Draw(0,0,Icon);
      //FImg.Width:=16;
      //FImg.Height:=16;
      Icon.Free;

Ad - адрес картинки
Ответить с цитированием