Работа 6. Работа со списками, фигурами и регуляторами

Begin

Begin

Var

Begin

Begin

Begin

Begin

Begin

SpinEdit2.Value:=x;

SpinEdit3.Value:=y;

PaintBox1.Canvas.MoveTo(x,y);

end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

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

if SpeedButton2.Down then PaintBox1.Canvas.LineTo(x,y);

if SpeedButton3.Down then PaintBox1.Canvas.Rectangle(SpinEdit2.Value,SpinEdit3.Value,x,y);

if SpeedButton4.Down then PaintBox1.Canvas.Ellipse(SpinEdit2.Value,SpinEdit3.Value,x,y);

end;

procedure TForm1.Button3Click(Sender: TObject);

if ColorDialog1.Execute then PaintBox1.Canvas.Pen.Color:=ColorDialog1.Color;

Shape2.Pen.Color:=ColorDialog1.Color;

end;

procedure TForm1.Button4Click(Sender: TObject);

if FontDialog1.Execute then begin

PaintBox1.Canvas.Font.Name:=FontDialog1.Font.Name;

PaintBox1.Canvas.Font.Style:=FontDialog1.Font.Style;

PaintBox1.Canvas.Font.Size:=FontDialog1.Font.Size;

PaintBox1.Canvas.Font.Color:=FontDialog1.Font.Color;

end;

end;

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

StatusBar1.Panels[1].Text:=IntToStr(x);

StatusBar1.Panels[2].Text:=IntToStr(y);

end;

procedure TForm1.PaintBox1Click(Sender: TObject);

x, y: integer;

if SpeedButton1.Down then begin

x:=StrToInt(StatusBar1.Panels[1].Text);

y:=StrToInt(StatusBar1.Panels[2].Text);

PaintBox1.Canvas.TextOut(x,y,Edit1.Text);

end;

end;

procedure TForm1.Button6Click(Sender: TObject);

if ColorDialog1.Execute then

PaintBox1.Canvas.Brush.Color:=ColorDialog1.Color;

Shape1.Brush.Color:=ColorDialog1.Color;

end;

Пример 6.1. Сконструируйте форму изображенную на рисунках. В первом рисунке показаны имена компонентов, во втором их значения. Для ScrollBar1 и ScrollBar2 установите диапазон от 1 до 300.

Введите следующие обработчики событий:

procedure TForm1.ScrollBar1Change(Sender: TObject);

Дата добавления: 2014-12-27