| Вопрос: Image и пропорциональное вписывание картинки | Добавлено: 08.06.05 13:12 |
Автор вопроса:  Diz | Web-сайт: www.TS-Group.fatal.ru
|
|
Вот такой вопрос... Щёлкая по FileListBox я показываю превью этой картинки в Image. Но она открывается сильно большая...
Тогда я ставлю свойство Strach = true. Картинка вписывается в Image, но теряет пропорции... как мне её пропорционально показать? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #1 | Добавлено: 08.06.05 13:21 |
|
Original и Picture1 - Pictureboxы.
1. Грузишь картирнку в оригинал. 2. См. код: Original.Picture = LoadPicture(Pic)
MX = Picture1.ScaleWidth / Original.Width MY = Picture1.ScaleHeight / Original.Height If MY < MX Then MX = MY If MX > 1 Then MX = 1 dX = Int((Picture1.ScaleWidth - Original.Width * MX) / 2) dY = Int((Picture1.ScaleHeight - Original.Height * MX) / 2) Picture1.Cls Picture1.PaintPicture Original.Picture, dX, dY, Original.Width * MX, Original.Height * MX |
||
Страница: 1 |