отображение рисунков, какой контрол?

[АндрейБ]

Хочу сделать смену рисунков в форме по ссылке где они храняться.
Пробовал Image и PicturesBox .Pictures = "C:/SSS/A/demo.bmp"
Пишет тип миссатч. Какой контрол можно использовать?

[Qwertiy]

LoadPicture надо использовать, а не контрол.

[АндрейБ]

Все сделал, но фотографии и рисунки разного размера и не всегда отображаются полностью - реально ли делать вписание в рамку PictureBox всего рисунка?

[Qwertiy]

Там какое-то свойство было... Что-то про Zoom/Stretch. Не помню.

[Хакер]

Там какое-то свойство было... Что-то про Zoom/Stretch. Не помню.

Это у Image.

[АндрейБ]

да у IMAGE есть - спасибо, все работает отлично.

[АндрейБ]

Я решил усовершенствовать алгоритм.
Если загружаемая картинка меньше чем размеры Image, то не делаем вписывание, а если больше то делать.

Код: Выделить всё

echo
If LoadPicture(F1.E + "\A\FOTO\" + F1.RST100![F]).Height < Image.Height  And LoadPicture(F1.E + "\A\FOTO\" + F1.RST100![F]).Width < Image.Width Then TOOLTIP3.Picture1.Stretch = False;


Но размеры что я получаю LoadPicture.Height / Width разянться с размерами Image.Height / Width, т.е. картинка вписывается с запасом примерно в 1,5 раза, но те параметры что я получаю больше, условия не выполняются, и поэтому картинка вписывается в полное окно.
Может нужен коэффициент соотношения какой-нибудь ввести? Подскажите?

[Qwertiy]

Значения Height и Width для контролов по умолчанию не в пикселях. Попробуй поставить пиксели.

[АндрейБ]

Поставил у формы Scalemode = Pixels - не работает.

[АндрейБ]

нет работает, только теперь надо кое что изменить.

[BV]

Я решил усовершенствовать алгоритм.

Это не усовершенствование, это внесение совершенно не нужных вызовов и проверок

[Qwertiy]

Это не усовершенствование, это внесение совершенно не нужных вызовов и проверок

Почему?