Возникла ошибка. Не могу понять из-за чего.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
w,h: Integer;
begin
// Если путь задан
if path <> '' then
begin
// Считываем значение с текстового поля
w:=StrToInt(LabeledEdit3.Text);
h:=StrToInt(LabeledEdit2.Text);
// Масштабируем изображение
MyImage1.Width:=w;
MyImage1.Hide:=h;
// Сохраняем временный файл
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;
[Error] Unit1.pas(328): Left side cannot be assigned to