image растянуть

[varelik]

Здравствуйте. Подскажите с задачкой, плиз:
создаю динамич.картинку примерно так:

new:tcontrol; //в глобальных
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
New:=timage1.Create(application);
timage1(new).Picture.LoadFromFile(OpenDialog1.FileName);
timage1(new).AutoSize:=true;
New.Top:=100;
New.Left:=150;
timage1(New).OnMouseDown:=ControlMouseDown;
timage1(New).OnMouseMove:=ControlMouseMove;
timage1(New).OnMouseUp:=controlmouseup;
New.Parent:=timage(new1).Parent;
end;
  end;

вобще, timage(new1)- большая картинка, а на ней потом много мал-х timage1(new) картинок создается
далее, есть кнопка на форме, в нее пишу:

timage1(new).AutoSize:=false;
timage1(new).stretch:=true;
timage1(new).width:=timage1(new).width+120;

щелкаю по ней- картинка растянулась.
Далее есть процедура сохранения всех картинок на Panel1 формы в bmp файл:

procedure TForm1.N11Click(Sender: TObject);
  var i:integer;
  begin
   with tbitmap.Create do begin
   width:=timage(new1).Width;
   height:= timage(new1).Height;
   for I := 0 to panel1.ControlCount - 1 do  begin
   new:=panel1.Controls[i];
   canvas.Draw(timage1(new).Left,timage1(new).top,timage1(new).Picture.Bitmap);
 canvas.CopyMode:=cmSrcand;
   end;
   savetofile('C:\xx.bmp');
   end;
 end;

и все сохраняется в bmp, но при открытии его- у картинок width НЕ УВЕЛИЧЕНЫЙ.
хотя на форме он реально увеличен. В чем прикол?

[artemavd]

А откуда ваще берется это число "120"?

[varelik]

без разницы на самом деле сколько, можно и 220

[Пепел Феникса]

перерисовывайте с растяжением.
на форуме есть код сжатия...а для растягивания лишь цифры в нем изменить=)

[artemavd]

Если в этом коде число "120" динамическое, то можно сделать например получение значения из Edit-a, которое укажет пользователь. Вот так:

timage1(new).AutoSize:=false;
timage1(new).stretch:=true;
timage1(new).width:=timage1(new).width+StrToInt(Edit1.Text);

[varelik]

artemavd, а смысл? вопрос в другом ведь. Я bmp (из винды) с новыми размерами сохраненных картинок открыть не могу. Хотя сами х,у их и изображения сохраняются.
Пепел Феникса, напиши пожалуйста, если вспомниш, примерное название той темы. Пока не могу найти.

[Пепел Феникса]

тему не помню...
но вот тема в которой я написал названия функций(среди них есть нужная вам) http://programmersforum.ru/showthrea...ewpost&t=84732

[varelik]

спасибо! буду разбираться