Практична робота в Delphi "Графічний редактор"

Про матеріал

Роздатковий матеріал з об'єктно-зорієнтованого програмування для практичної роботи "Графічний редактор". Практична робота з описом компонентів і процедур

Перегляд файлу

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

 

       Image1

 

 

             ColorGrid1

 

 

 

 

    SpinEdit1

 

 

 

 

 

 

Указать для компонента ColorGrid1 в свойстве GridOrdering   go2x8


 

Дописать процедуры:


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);

begin

  if ssLeft in Shift then Image1.Canvas.LineTo(X,Y);

end;

 

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer);

begin

  with Image1.Canvas do

  case Button of

    mbLeft: MoveTo(X,Y);

    mbRight:FloodFill(X,Y, Pixels[X,Y], fsSurface);

  end;

end;

 

procedure TForm1.ColorGrid1Change(Sender: TObject);

begin

  Image1.Canvas.Pen.Color:=ColorGrid1.ForegroundColor;

  Image1.Canvas.Brush.Color:=ColorGrid1.BackgroundColor;

end;

 

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

  Image1.Canvas.Pen.Width:=SpinEdit1.Value;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  Image1.Canvas.FillRect(BoundsRect);

end;

doc
Додано
9 листопада 2018
Переглядів
294
Оцінка розробки
Відгуки відсутні
Безкоштовний сертифікат
про публікацію авторської розробки
Щоб отримати, додайте розробку

Додати розробку