[poli-smen]

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

Вот мой вариант:

Код:

// Собатие возникает при нажатии на кнопку "Масштабировать"
procedure TForm1.Button1Click(Sender: TObject);
var
  imho, imgd: TBitmap;
  nw, nh: Integer;
begin
    // Если путь задан
    if path <> '' then
    begin
        // Считываем значение с текстового поля
        nw:=StrToInt(LabeledEdit3.Text);
        nh:=StrToInt(LabeledEdit2.Text);
        // Загружаем изображение
        imho:=MyImage1.Picture.Bitmap;
        imgd:=MyImage1.Picture.Bitmap;
        // Масштабируем изобржение
        MyImage1.ResizeBitmap(imho, imgd, nw, nh);
        // Сохраняем временный файл
        MyImage1.SaveFileTmp(MyImage1.Picture.Bitmap, ExtractFilePath(Application.ExeName));
        // Если кол-во временных файлов не 0
        if MyImage1.CountFileTmp <> 1 then begin
            if(not N7.Enabled) then N7.Enabled := true;
        end else
            N7.Enabled := false;
    end else
        ShowMessage('Изображение не загружено. Для открытия изображения нажмите на кнопку "Открыть"');
end;

А зачем здесь проверка что path не пустая если потом эта переменная всё равно не используется?
И что такое MyImage1 ? Если это объект типа TImage, то откуда у него взялся метод ResizeBitmap ?
Тебе наверное нужно что-то вроде такого:

Код:

  ResizeBitmap(MyImage1.Picture.Bitmap, MyImage2.Picture.Bitmap, StrToInt(LabeledEdit3.Text), StrToInt(LabeledEdit2.Text));
  MyImage2.Picture.Bitmap.SaveToFile(...);