Подскажите как добавить изображение со сканера в TImage

[Terran]

Что-то я опять запутался... Получается в один Image должна выводиться одна картинка и она должна принять размер Image?
В свойстве TRect записывается 4 параметра. (1. Расстояние от левого края формы до левого края Image; 2. Расстояние от верха формы до верха Image; 3.Шырена Image;4.Высота Image)

[Herly]

Сообщение от Terran

Получается в один Image должна выводиться одна картинка и она должна принять размер Image?

Это вы поняли правильно.
Если сделать как вы сказали, то мне поидее нужно написать вот так

Image1.Canvas.StretchDraw(0,0,0,0,M yBitMap);

Но так выделяет строку красным, значит неправильно(.

[Terran]

Так у Вас получится всё равным нулю. И так не получится записать. Класс TRect записывают так:

Var
T: TRect;
begin
T.Left:=15;
T.Top:=15;
T.Right:=15;
T.Bottom:=15;
Image1.Canvas.StretchDraw(T,MyBitMap);

Я думаю лучше выложите свой исходничёк, а я его немного подправлю.

[Herly]

А исходник это что?
Вот это?

[Terran]

Сделал привязку Image к форме и масштабирование изображения: Сборка1.rar
Забыл сохранить Перезалил.

[Herly]

Вы помоему не то запаковали или не сохранились, т.к то что вы выложили идентично моему.

[Herly]

Вы просто растянули Image1 на всю форму?

[Terran]

Сообщение от Herly

Вы просто растянули Image1 на всю форму?

Привязал к форме через свойство Image1.Align:=alClient; и установил нужные настройки. Картинка растягивается и сжимается в зависимости от размера формы.

[Herly]

Чёт такое ощущение что вы опять не то сохранили...
У меня получилось вот что.
если даже то, то проблема не решилась...

[Terran]

Попробуйте ещё такой вариант: Proga.rar