Графический редактор

@antons201 · Регистрация: 02.10.2017

Author24 — интернет-сервис помощи студентам

Нужно написать начало графического редактора(только в PaintBox). Я это сделал, но при изменении размера окна все пропадает. Сказали, надо создать массив массивов точек и чтобы оно сохранялось. Подскажите, как это осуществить?

Pascal

unit Edit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
 
type
  TPoint =record
    X: Longint;
 
Y: Longint;
 
end;
 
 
  { TGEditor }
 
 
 
  TGEditor = class(TForm)
    pb: TPaintBox;
    procedure pbClick(Sender: TObject);
    procedure pbMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure pbMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  GEditor: TGEditor;
  i,j,x,y,lastx ,lasty : integer;
  isDrawing: boolean;
  mas: array of array of TPoint;
 
implementation
 
{$R *.lfm}
 
{ TGEditor }
 
procedure TGEditor.pbClick(Sender: TObject);
begin
 
end;
 
procedure TGEditor.pbMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssleft in shift then
  begin
  isDrawing:=true;
  canvas.Moveto(x,y);
  end;
end;
 
procedure TGEditor.pbMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if isDrawing=true then
  pb.Canvas.Line(lastx, lasty, x, y);
  lastx:=x;lasty:=y;
end;
 
procedure TGEditor.pbMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  isDrawing:=false;
end;
 
end.

@Puporev · 10.10.2017, 13:37

Чудо, а не IDE, в Делфи ничего никуда не пропадает.

@antons201 · 10.10.2017, 13:38 **[ТС]**

В Lazarus'e при данном коде пропадает(при изменении размера окна). Сделать проект нужно именно в Lazarus

@Puporev · 10.10.2017, 13:39

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

Сказали, надо создать массив массивов точек

Для каждой линии создавать свой массив? И как выводить точки этих массивов, в каком событии?

@antons201 · 10.10.2017, 13:42 **[ТС]**

Настолько подробно я не знаю, поэтому и пишу сюда, Но завязано всё на этом. Вообще создаётся один двумерный массив, как я понял. И в него пишутся координаты точек, скорее всего в первый массив записываются массивы всех точек, которые рисуются. Но как это всё выводить и запоминать я пока не понимаю.

@volvo · 10.10.2017, 14:21

Pascal

// в класс формы добавить bm : TBitmap
 
// при создании формы создать bitmap достаточного размера (я сделал размером с полный экран)
procedure TGEditor.FormCreate(Sender: TObject);
begin
  bm := TBitmap.Create;
  bm.SetSize(Screen.Width, Screen.Height);
  bm.Canvas.Brush.Color := clWhite;
  bm.Canvas.FillRect(Rect(0, 0, bm.Width, bm.Height));
end;
 
procedure TGEditor.pbMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: integer);
begin
  if ssleft in shift then
  begin
    isDrawing := True;
    bm.canvas.Moveto(x, y); // работаем с bitmap, а не с pb
  end;
end;
 
// рисуем на битмапе и заставляем pb перерисоваться
procedure TGEditor.pbMouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer);
begin
  if isDrawing = True then
  begin
    bm.Canvas.Line(lastx, lasty, x, y);
    pb.Invalidate;
  end;
  lastx := x;
  lasty := y;
end;
 
procedure TGEditor.pbMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: integer);
begin
  isDrawing := False;
end;
 
// при перерисовке pb (событие OnPaint) содержимое битмапа будет на нем отрисовано.
procedure TGEditor.pbPaint(Sender: TObject);
begin
  pb.Canvas.Draw(0, 0, bm);
end;

Вот и все... А, да. Я положил PaintBox в левый верхний угол формы, а еще лучше - поставить Align = alClient...

Ну, и не забывать битмап удалять при разрушении формы.

@Puporev · 10.10.2017, 14:54

Линию рисовать нужно так.

Pascal

procedure TGEditor.pbMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if isDrawing then
   begin
    bm.Canvas.Lineto(x, y);//не line
    pb.invalidate;

Иначе из первой точки рисует еще и линию из точки (0;0)или от конца предыдущей линии.
С Bitmap классно, хотя и с массивами тоже перерисовывает.

@antons201 · 10.10.2017, 15:33 **[ТС]**

А можно пример варианта с массивами? А то по ТЗ они должны быть и чувствую, что если их не будет, то будет не хорошо.

@volvo · 10.10.2017, 15:40

С массивами нехорошо будет. Чем больше линий/точек, тем больше будет массив и тем, соответственно, дольше будет перерисовка. И редактор начнет подтормаживать. Лучше сделай с битмапом, а массивы еще для чего-нибудь приспособишь.

@antons201 · 10.10.2017, 16:04 **[ТС]**

Ошибка появляется "edit1.pas(81,20) Error: method identifier expected"
Ругается на FormCreate

Также ругается на pbPaint и там на pb выдает ошибку: edit1.pas(120,3) Error: Identifier not found "pb"
Хотя чуть выше всё нормально. подскажите, пожалуйста.

Добавлено через 8 минут
Стоп, с этим разобрался. Сделал как сказали, но ошибка появляется.

@Puporev · 10.10.2017, 16:12

Вот то что предложил volvo, все помянутые процедуры должны быть инициированы.

Pascal

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;
 
type
 
  { TGEditor }
 
  TGEditor = class(TForm)
    pb: TPaintBox;
    bm : TBitmap;
    procedure FormCreate(Sender: TObject);
    procedure pbMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure pbMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbPaint(Sender: TObject);
 
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  GEditor: TGEditor;
  x,y,lastx ,lasty : integer;
  isDrawing: boolean;
 
implementation
 
{$R *.lfm}
 
{ TGEditor }
 
procedure TGEditor.FormCreate(Sender: TObject);
begin
  bm := TBitmap.Create;
  bm.SetSize(Screen.Width, Screen.Height);
  bm.Canvas.Brush.Color := clWhite;
  bm.Canvas.FillRect(Rect(0, 0, bm.Width, bm.Height));
end;
 
procedure TGEditor.pbMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if ssleft in shift then
 begin
  isDrawing:=true;
  bm.canvas.Moveto(x,y);
 end;
end;
 
procedure TGEditor.pbMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if isDrawing then
  begin
    bm.Canvas.Lineto(x, y);
    pb.invalidate;
    lastx:=x;lasty:=y;
  end;
 
end;
 
procedure TGEditor.pbMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  isDrawing:=false;
end;
 
procedure TGEditor.pbPaint(Sender: TObject);
begin
pb.Canvas.Draw(0, 0, bm);
end;
 
 
end.

@antons201 · 10.10.2017, 16:13 **[ТС]**

Да, я разобрался с этим, не сразу заметил просто. а вот ошибка появляется(та что на скриншоте выше)

@Puporev · 10.10.2017, 16:16

Ну приложи архив проекта без лишних файлов, в том числе без .exe, а то фиг знает что там в строке 299.

@antons201 · 10.10.2017, 16:27 **[ТС]**

Вот

@Puporev · 10.10.2017, 16:31

Вот если нужно, с массивами.

@volvo · 10.10.2017, 16:34

Ну, не знаю, нет никакой ошибки, и рисовал и изменял размеры и перемещал окно

@antons201 · 10.10.2017, 16:41 **[ТС]**

Не знаю, у меня всё ошибка лезет. Странно. Но с массивами зашло, оставлю, наверное, этот вариант. Спасибо всем большое за помощь.

@Puporev · 10.10.2017, 16:47

А у меня тоже вылазит эта ошибка.
Как только кликаю мышкой по форме(по pb).

@edukra · 10.10.2017, 16:58

процедура formcreate не привязана к событию oncreate. Отсюда проблема.

@Puporev · 10.10.2017, 17:05

Точно, ведь писал же ему.

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

все помянутые процедуры должны быть инициированы.

Добавлено через 3 минуты
Да я не смотрел, активировал OnCreate и все заработало.

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.10.2017, 16:47	18
	А у меня тоже вылазит эта ошибка. Как только кликаю мышкой по форме(по pb). Миниатюры 0

@edukra 602 / 550 / 210 Регистрация: 24.01.2012 Сообщений: 1,352
	10.10.2017, 16:58	19
	процедура formcreate не привязана к событию oncreate. Отсюда проблема. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.10.2017, 13:37	2
	Чудо, а не IDE, в Делфи ничего никуда не пропадает. 0

@antons201 0 / 0 / 0 Регистрация: 02.10.2017 Сообщений: 10
	10.10.2017, 13:38 [ТС]	3
	В Lazarus'e при данном коде пропадает(при изменении размера окна). Сделать проект нужно именно в Lazarus 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.10.2017, 13:39	4
	Сообщение от antons201 Сказали, надо создать массив массивов точек Для каждой линии создавать свой массив? И как выводить точки этих массивов, в каком событии? 0

@antons201 0 / 0 / 0 Регистрация: 02.10.2017 Сообщений: 10
	10.10.2017, 13:42 [ТС]	5
	Настолько подробно я не знаю, поэтому и пишу сюда, Но завязано всё на этом. Вообще создаётся один двумерный массив, как я понял. И в него пишутся координаты точек, скорее всего в первый массив записываются массивы всех точек, которые рисуются. Но как это всё выводить и запоминать я пока не понимаю. 0

@antons201 0 / 0 / 0 Регистрация: 02.10.2017 Сообщений: 10
	10.10.2017, 15:33 [ТС]	8
	А можно пример варианта с массивами? А то по ТЗ они должны быть и чувствую, что если их не будет, то будет не хорошо. 0

@volvo Супер-модератор 32959 / 21276 / 8169 Регистрация: 22.10.2011 Сообщений: 36,546 Записей в блоге: 8
	10.10.2017, 15:40	9
	С массивами нехорошо будет. Чем больше линий/точек, тем больше будет массив и тем, соответственно, дольше будет перерисовка. И редактор начнет подтормаживать. Лучше сделай с битмапом, а массивы еще для чего-нибудь приспособишь. 0

@antons201 0 / 0 / 0 Регистрация: 02.10.2017 Сообщений: 10
	10.10.2017, 16:04 [ТС]	10
	Ошибка появляется "edit1.pas(81,20) Error: method identifier expected" Ругается на FormCreate Также ругается на pbPaint и там на pb выдает ошибку: edit1.pas(120,3) Error: Identifier not found "pb" Хотя чуть выше всё нормально. подскажите, пожалуйста. Добавлено через 8 минут Стоп, с этим разобрался. Сделал как сказали, но ошибка появляется. Миниатюры 0

@antons201 0 / 0 / 0 Регистрация: 02.10.2017 Сообщений: 10
	10.10.2017, 16:13 [ТС]	12
	Да, я разобрался с этим, не сразу заметил просто. а вот ошибка появляется(та что на скриншоте выше) 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.10.2017, 16:16	13
	Ну приложи архив проекта без лишних файлов, в том числе без .exe, а то фиг знает что там в строке 299. 0

@volvo Супер-модератор 32959 / 21276 / 8169 Регистрация: 22.10.2011 Сообщений: 36,546 Записей в блоге: 8
	10.10.2017, 16:34	16
	Ну, не знаю, нет никакой ошибки, и рисовал и изменял размеры и перемещал окно Миниатюры 0

@antons201 0 / 0 / 0 Регистрация: 02.10.2017 Сообщений: 10
	10.10.2017, 16:41 [ТС]	17
	Не знаю, у меня всё ошибка лезет. Странно. Но с массивами зашло, оставлю, наверное, этот вариант. Спасибо всем большое за помощь. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.10.2017, 17:05	20
	Точно, ведь писал же ему. Сообщение от Puporev все помянутые процедуры должны быть инициированы. Добавлено через 3 минуты Да я не смотрел, активировал OnCreate и все заработало. 0