![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Пример 1. procedure TForm1.Button1Click(Sender: TObject);
procedure TForm1.Button1Click(Sender: TObject); Var X, Y: extended; PX, PY: LongInt; HalfHeight: LongInt; begin Canvas.Pen.Color: = clBlue; Canvas.Pen.Width: = 4; Canvas.MoveTo(10, 10); Canvas.LineTo(300, 400);
Canvas.Brush.Color: = clRed; Canvas.Rectangle(10, 10, 200, 200);
HalfHeight: = Form1.Height div 2; For PX: =0 to Form1.Width do begin X: = PX*(2*Pi/Form1.Width); Y: = Sin(X); PY: = Trunc(0.7*Y*HalfHeight) + HalfHeight; Canvas.Pixels[PX, PY]: = RGB(250, 0, 0); end; end;
Пример 2. procedure TForm1.Button1Click(Sender: TObject); Var X, Y: extended; PX, PY: LongInt; i: LongInt; HalfHeight: LongInt; begin Canvas.Pen.Color: = clBlue; Canvas.Pen.Width: = 4; Canvas.MoveTo(10, 10); //Canvas.LineTo (300, 400); Canvas.Brush.Color: = clRed; Canvas.Rectangle(10, 10, 200, 200);
HalfHeight: = Form1.Height div 2; For i: = -10 to 10 do begin PX: = 0; while PX< Form1.Width do begin X: = PX*(2*PI/Form1.Width); Y: = SIN(X); PY: = Trunc(0.7*Y*HalfHeight)+ HalfHeight+(i*10); IF(PX=0) then Canvas.MoveTo(PX, PY); Canvas.LineTo(PX, PY); PY: =Trunc(0.6*Y*HalfHeight)+ HalfHeight+((i - 1)*10); Canvas.LineTo(PX, PY); PX: = PX + 15; end;
Form1.Canvas.Ellipse(200, 200, 400, 400); Form1.Canvas.Pie (450, 300, 500, 400, 100, 100, 100, 200); Form1.Canvas.Rectangle(400, 200, 450, 400); end; end;
|