[Algplux]

Нужна помощь по применению процедуры изменяющей размер изображения.
Есть 2-а ЛаблЕдита, кнопка, изображение (битмап) загружается в Имейдж если выбрать пункт меню открыть. Возникаю проблемы по применению данной процедуры для кнопки.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78

procedure TFormConvertir.ResizeBitmap(imgo, imgd: TBitmap; nw, nh: Integer); var    xini, xfi, yini, yfi, saltx, salty: single;    x, y, px, py, tpix: integer;    PixelColor: TColor;    r, g, b: longint;      function MyRound(const X: Double): Integer;    begin      Result := Trunc(x);      if Frac(x) >= 0.5 then        if x >= 0 then Result := Result + 1        else          Result := Result - 1;      // Result := Trunc(X + (-2 * Ord(X < 0) + 1) * 0.5);   end;    begin    // Set target size     imgd.Width  := nw;    imgd.Height := nh;      // Calcs width & height of every area of pixels of the source bitmap     saltx := imgo.Width / nw;    salty := imgo.Height / nh;        yfi := 0;    for y := 0 to nh - 1 do    begin      // Set the initial and final Y coordinate of a pixel area       yini := yfi;      yfi  := yini + salty;      if yfi >= imgo.Height then yfi := imgo.Height - 1;        xfi := 0;      for x := 0 to nw - 1 do      begin        // Set the inital and final X coordinate of a pixel area         xini := xfi;        xfi  := xini + saltx;        if xfi >= imgo.Width then xfi := imgo.Width - 1;            // This loop calcs del average result color of a pixel area       // of the imaginary grid         r := 0;        g := 0;        b := 0;        tpix := 0;          for py := MyRound(yini) to MyRound(yfi) do        begin          for px := MyRound(xini) to MyRound(xfi) do          begin            Inc(tpix);            PixelColor := ColorToRGB(imgo.Canvas.Pixels[px, py]);            r := r + GetRValue(PixelColor);            g := g + GetGValue(PixelColor);            b := b + GetBValue(PixelColor);          end;        end;          // Draws the result pixel         imgd.Canvas.Pixels[x, y] :=          rgb(MyRound(r / tpix),          MyRound(g / tpix),          MyRound(b / tpix)          );      end;    end;  end;

Пожалуйста помогите.

[Algplux]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

// Собатие возникает при нажатии на кнопку "Масштабировать" 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;

[poli-smen]

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

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

Код:

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

Код:

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

[Algplux]

А зачем здесь проверка что path не пустая если потом эта переменная всё равно не используется?

Она потом в дальнейшем в программе используется. Не уделяйте этому внимания.

И что такое MyImage1 ? Если это объект типа TImage, то откуда у него взялся метод ResizeBitmap ?

MyImage1- компонент на основе Timage, метод ResizeBitmap я прописал в компонент.
Моя программа- редактор изображений, хотел реализовать в ней возможность уменьшать и увеличивать изображение как будет угодно пользователю.
В результате получилось не то что я хотел. Программа компилируется но при нажатии на кнопку, изображение как будто обрезается, а не уменьшается.
Либо не правильное применение, либо я не совсем понял что делает данная процедура.

[Alegun]

А не проще Proportional и Stretch в true у Image и изменять размеры рамки.

[Algplux]

А не проще Proportional и Stretch в true у Image и изменять размеры рамки.

А можно по подробней, как изменить размер рамки?

[Alegun]

Задавать Width и Height у Image

З.Ы. Нашёл единственную сборку по теме - пакетное изменение размеров рисунков, используются свойства JpegImage.

[Algplux]

Задавать Width и Height у Image

Спасибо большое, попробую.

[Algplux]

Возникла ошибка. Не могу понять из-за чего.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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

[Bargest]

MyImage1.Hide:=h;

Какой еще Hide? Тебе четко и ясно написали, что нужно менять.

[Algplux]

Всё. Всем большое спасибо. Всё работает.
Ещё, кое-что спросить хотел, что бы новый топик не создавать, как сделать так что бы можно было мышью выделить часть изображения, и при нажатии на кнопку закрасить выделенное под цвет формы? Я так планировал реализовать обрезку части изображения.

[Bargest]

По событиям мыши рисуешь рамку выделения, по отпусканию мыши сохраняешь, по кнопке зарисовываешь.

[Algplux]

http://www.delphisources.ru/pages/fa..._for_edit.html
На основе этого получилось сделать выделение части изображения.
Подскажите пожалуйста, как по кнопке, закрасить выделенное цветом формы?

[Bargest]

...FillRect...

[Algplux]

Не могу разобраться, как FillRect работает.
Пробую написать так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Button7Click(Sender: TObject); var   MyRect: TRect;   x, y: Integer; begin   StartPlace.x := X;   StartPlace.y := Y;   EndPlace.x := X;   EndPlace.y := Y;   MyRect:= Rect(StartPlace.X, StartPlace.Y, EndPlace.X, EndPlace.Y);   Form1.Canvas.Brush.Color := clWhite;   Form1.Canvas.FillRect(MyRect); end;

Но обрисованной остается только рамка, а мне нужно закрасить весть прямоугольник, помогите пожалуйста разобраться.