Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Програма, що ілюструє роботу з графікою в Delphi на прикладі малювання ламаних і кривих ліній

Реферат Програма, що ілюструє роботу з графікою в Delphi на прикладі малювання ламаних і кривих ліній





Лістинг программиUnit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TEdit;:TEdit ;: TEdit ;: TEdit ;: TEdit ;: TButton ;: TButton ;: TLabel ;: TEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel; Button2Click (Sender: TObject ); Button1Click (Sender: TObject);

{Private declarations}

{Public declarations}

end ;: TForm1;

implementation

{$ R *. dfm}

procedure TForm1. Button1Click (Sender: TObject); x1, x2, x3, y1, y2, y3: integer;

begin :=strtoint (edit1. Text) ;:=strtoint (edit2. Text) ;:=strtoint (edit3. Text) ;:=strtoint (edit4. Text ) ;:=strtoint (edit5. Text) ;:=strtoint (edit6. text) ;. Pen. Width:=4 ;. Pen. Color:=(Random (256), Random (256), Random (256)); (Random (256), Random (256), Random (256)) ;. Brush. Color:=(Random (256), Random (256), Random (256)) ;. polyLine ([point (X1, Y1), point (X2, Y2), point (X3, Y3)]);

end; TForm1. Button2Click (Sender: TObject);

form1. Refresh;

end;.


Результат роботи

Малюнок 4. 1


Назад | сторінка 5 з 5





Схожі реферати:

  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...
  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Програма, що ілюструє роботу з графікою в Delphi на прикладі малювання прям ...
  • Реферат на тему: Особливості роботи з Power Point