Учебный курс Программирование на Delphi. Модуль 15

Свойства объекта mpen (карандаш)

Таблица 10.1. Свойства объекта mpen (карандаш)

Свойство	Определяет
Color	Цвет линии.
Width	Толщину линии.
Style	Вид линии.
Mode	Режим отображения.

Работа с графикой

Пример 1

• Условие:

Вывести 8 квадратов с разным тиром заливки

• Код программы:

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;
type
 TForm1 = class(TForm)
   procedure FormPaint(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormPaint(Sender: TObject);
const
bsname :array[1..8] of string=('bssolid','bsclear','bshorizontal','bsvertical',
'bsfdiagonal','bsbdiagonale','bscross','bsdiagcross');
var
x,y:integer;
w,h:integer;
bs:tbrushstyle;
k:integer;
i,j:integer;
begin
w:=50;h:=50;
y:=20;
for i:=1 to 2 do begin
x:=10;
for j:=1 to 4 do begin
k:=j+(i-1)*4;
case k of
1: bs:=bssolid;
2: bs:=bsclear;
3: bs:=bshorizontal;
4: bs:=bsvertical;
5: bs:=bsfdiagonal;
6: bs:=bsbdiagonal;
7: bs:=bscross;
8: bs:=bsdiagcross;
end;
canvas.Brush.Color:=clred;
canvas.Brush.Style:=bs;
canvas.Rectangle(x,y,x+w,y+h);
canvas.TextOut(x,y-15,bsname[k]);
x:=x+w+30;
end;
y:=y+h+30;
end;end;
end.

• Форма с резултатом работы программы:

Пример 2

• Условие:

Построить график функции sin(x)*Exp^x/5

• Код программы:

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;
type
 TForm1 = class(TForm)
   procedure FormPaint(Sender: TObject);
   procedure FormResize(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
function f(x:real):real;
begin
f:=2*sin(x)*exp(x/5);
end;
procedure gr;
var
x1,x2:real;
y1,y2:real;
x:real;
y:real;
dx:real;
l,b:integer;
w,h:integer;
mx,my:real;
x0,y0:integer;
begin
l:=10;
b:=Form1.clientheight-20;
h:=Form1.clientheight-40;
w:=Form1.clientwidth-40;
x1:=0; x2:=25; dx:=0.0001;
y1:=f(x1);
y2:=f(x1);
x:=x1;
repeat
y:=f(x);
if y<y1 then y1:=y;
if y>y2 then y2:=y;
x:=x+dx;
until (x>=x2);
my:=h/(abs(y2-y1));
mx:=w/(abs(x2-x1));
x0:=l;
y0:=b-abs(round(y1*my));
with form1.canvas do begin
moveto(l,b); lineto(l,b-h);
moveto(x0,y0); lineto(x0+w,y0);
textout(l+5,b-h,floattostrf(y2,ffgeneral,6,3));
textout(l+5,b,floattostrf(y1,ffgeneral,6,3));
x:=x1;
repeat
y:=f(x);
pixels[x0+round(x*mx),y0-round(y*my)]:=clred;
x:=x+dx;
until (x>=x2);
end;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
gr;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
form1.Canvas.FillRect(rect(0,0,clientwidth,clientheight));
gr;
end;
end.

• Форма с резултатом работы программы:

Пример 3

• Условие:

Нарисовать звезду. События нажатия кнопки мыши: если левая цвет звезды красный если правая цвет звезды черный

• Код программы:

unit Stars_;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class(TForm)
   procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure StarLine(x0,y0,r: integer; Canvas: TCanvas);
   // x0,y0 - координаты центра звезды
   // r - радиус звезды
var
    p : array[1..11] of TPoint; // массив координат лучей и впадин
   a: integer;   // угол между осью ОХ и прямой, соединяющей
                 // центр звезды и конец луча или впадину
   i: integer;
begin
   a := 18; // строим от правого гор. луча
   for i:=1 to 10 do
      begin
         if (i mod 2 = 0) then
            begin // впадина
              p[i].x := x0+Round(r/2*cos(a*2*pi/360));
              p[i].y:=y0-Round(r/2*sin(a*2*pi/360));
            end
         else
            begin // луч
              p[i].x:=x0+Round(r*cos(a*2*pi/360));
              p[i].y:=y0-Round(r*sin(a*2*pi/360));
            end;
         a := a+36;
      end;
   p[11].X := p[1].X; // чтобы замкнуть контур звезды
   p[11].Y := p[1].Y;
   Canvas.Polyline(p); // начертить звезду
end;
// нажатие кнопки мыши
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
                              Shift: TShiftState; X, Y: Integer);
begin
 if Button = mbLeft  // нажата левая кнопка?
    then Form1.Canvas.Pen.Color := clBlack
    else Form1.Canvas.Pen.Color := clRed;
 StarLine(x, y, 30,Form1.Canvas);
end;
end.

• Форма с резултатом работы программы

Задания

Таблица 22

Номер варианта	Условие
1	В треугольной пирамиде построить сечение, параллельное основанию.
2	В треугольной пирамиде построить сечение, проходящее через одну из сторон основания и середину противоположного ребра.
3	В треугольной пирамиде построить сечение, проходящее через боковое ребро и медиану основания.
4	В треугольной пирамиде построить сечение, проходящее через сторону основания и наклоненное к основанию под углом 30 градусов
5	В правильной четырехугольной пирамиде провести сечение, параллельное основанию и проходящее через середину бокового ребра.
6	В правильной четырехугольной пирамиде провести сечение, проходящее через диагональ основания и наклоненное к плоскости основания под углом 30 градусов
7	В правильной четырехугольной пирамиде провести сечение, проходящее через одну из сторон основания и середину высоты.
8	В прямоугольном параллелепипеде провести диагональное сечение.
9	В прямоугольном параллелепипеде провести сечение, проходящее через сторону нижнего основания и противоположную сторону верхнего основания.
10	В прямоугольном параллелепипеде построить сечение, проходящее через одну из сторон нижнего основания и одну из вершин верхнего основания.
11	В правильной четырехугольной пирамиде провести сечение, проходящее через вершину пирамиды и перпендикулярное плоскости основания.
12	В правильной шестиугольной пирамиде построить сечение, проходящее через вершину и большую диагональ основания.
13	В треугольной пирамиде построить сечение, проходящее через среднюю линию боковой грани и противоположную вершину основания.
14	В прямой четырехугольной призме провести сечение, проходящее через диагональ нижнего основания и одну из вершин верхнего основания.

Литература

1. Архангельский. Программирование на Delphi 6. – М: БИНОМ, 2002
2. Бобровский С. Delphi 7. Учебный курс. – СПб: Питер, 2003
3. Культин Н. Основы программирования в Delphi 7. СПб: БХВ-Петербург, 2005.

Ссылки

Учебный курс Программирование на Delphi

Учебный план курса Программирование на Delphi