Grafika

///////////Elipsa s vysečí///////////////////////////////////////////////////////////////////////////////////////////////

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Button1: TButton;

Button2: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

ColorDialog1: TColorDialog;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure maluj;

begin

Form1.Image1.Canvas.Brush.Color:=clWhite;

Form1.Image1.Canvas.Pen.Color:=clWhite;

Form1.Image1.Canvas.Rectangle(0,0,Form1.Image1.Width,Form1.Image1.Height) ;

end;

procedure ram;

begin

maluj;

Form1.Image1.Canvas.Pen.Width:=4;

Form1.Image1.Canvas.Pen.Color:=clblack;

Form1.Image1.Canvas.Brush.Color:=clWhite;

Form1.Image1.Canvas.Polygon([Point(strtoint(Form1.Edit1.text),strtoint(Form1.Edit2.text)),Point(strtoint(Form1.Edit3.text),strtoint(Form1.Edit2.text)),Point(strtoint(Form1.Edit3.text),strtoint(Form1.Edit4.text)),Point(strtoint(Form1.Edit1.text),strtoint(Form1.Edit4.text))]);

end;

procedure zobraz;

begin

Form1.Image1.Canvas.Pen.Color:=clblack;

Form1.Image1.Canvas.Brush.Color:=form1.colordialog1.color;

Form1.Image1.Canvas.Ellipse(strtoint(Form1.Edit1.text)+5,strtoint(Form1.Edit2.text)+5,strtoint(Form1.Edit3.text)-5,strtoint(Form1.Edit4.text)-5);

Form1.Image1.Canvas.Brush.Color:=clwhite;

Form1.Image1.Canvas.Pen.Color:=clwhite;

Form1.Image1.Canvas.Polygon([Point(strtoint(Form1.Edit1.text)+5,strtoint(Form1.Edit2.text)),Point((strtoint(Form1.Edit1.text)+strtoint(Form1.Edit3.text))div 2, (strtoint(Form1.Edit2.text)+strtoint(Form1.Edit4.text))div 2),Point(strtoint(Form1.Edit3.text)-5,strtoint(Form1.Edit2.text)+3),Point(strtoint(Form1.Edit1.text)+5,strtoint(Form1.Edit2.text)+3)]);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

colordialog1.Execute;

ram;

Zobraz;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

application.Terminate;

end;

end.

//////////////////////////////////////////////////////////////////////////////////////////////////////////

//////////////////////Sinus Cosinu barevně////////////////////////////////////////////////////////////////////////////////////

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

Button1: TButton;

Button2: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure osy;

begin

Form1.Image1.Canvas.Pen.Width:=10;

Form1.Image1.Canvas.Pen.Color:=clblack;

Form1.Image1.Canvas.MoveTo(0,0);

Form1.Image1.Canvas.LineTo(0,Form1.Image1.Height);

Form1.Image1.Canvas.LineTo(Form1.Image1.Width,Form1.Image1.Height);

Form1.Image1.Canvas.LineTo(Form1.Image1.Width,0);

Form1.Image1.Canvas.LineTo(0,0);

Form1.Image1.Canvas.Pen.Color:=clblack;

Form1.Image1.Canvas.Pen.Width:=3;

Form1.Image1.Canvas.MoveTo(5,5);

Form1.Image1.Canvas.LineTo(5,form1.Image1.Height);

Form1.Image1.Canvas.MoveTo(5,form1.Image1.Height div 2);

Form1.Image1.Canvas.LineTo(form1.Image1.Width,form1.Image1.Height div 2);

end;

procedure barvy;

begin

Form1.image1.canvas.brush.Color:=clblue;

Form1.image1.canvas.floodfill(Round(Form1.Image1.Width div 10),120,clblack,fsborder);

Form1.image1.canvas.brush.Color:=clyellow;

Form1.image1.canvas.floodfill(Round(Form1.Image1.Width div 2),120,clblack,fsborder);

Form1.image1.canvas.brush.Color:=clgreen;

Form1.image1.canvas.floodfill(Form1.Image1.Width-50,120,clblack,fsborder);

Form1.image1.canvas.brush.Color:=clblue;

Form1.image1.canvas.floodfill(Round(Form1.Image1.Width div 10),500,clblack,fsborder);

Form1.image1.canvas.brush.Color:=clyellow;

Form1.image1.canvas.floodfill(Round(Form1.Image1.Width div 2),500,clblack,fsborder);

Form1.image1.canvas.brush.Color:=clgreen;

Form1.image1.canvas.floodfill(Form1.Image1.Width-50,500,clblack,fsborder);

Osy;

end;

procedure TForm1.Button1Click(Sender: TObject);

var x,y,A:word;

begin

Image1.Canvas.Pen.Width:=3;

Form1.Image1.Canvas.Pen.Color:=clBlack;

a:=Form1.Image1.Height div 2;

for x:= 0 to Form1.Image1.Width do Form1.Image1.Canvas.Pixels[x,a]:= clRed;

Image1.Canvas.Pen.Color:=clRed;

Image1.Canvas.MoveTo(5,5);

Image1.Canvas.LineTo(5,Image1.Height);

Image1.Canvas.Pen.Color:=clBlack;

Image1.Canvas.MoveTo(0,Image1.Height);

A:=image1.Height div 2;

for x:= 0 to Form1.Image1.Width do

begin

y:=+Round(A*cos(x*2*pi/Image1.Width))+A;

Image1.Canvas.LineTo(x,y);

end;

Image1.Canvas.MoveTo(0,0);

A:=image1.Height div 2;

for x:= 0 to Image1.Width do

begin

y:=-Round(A*cos(x*2*pi/Image1.Width))+A;

Image1.Canvas.LineTo(x,y);

end;

barvy;

osy;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

application.Terminate;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Image1.Canvas.Brush.Color:=clWhite;

Image1.Canvas.Pen.Color:=clWhite;

Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height)

end;

end.

//////////////////////////////////////////////////////////////////////////////////////////////////////////

//////////////////Pětiuhelník////////////////////////////////////////////////////////////////////////////////////////

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, XPMan;

type

TForm1 = class(TForm)

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

Button2: TButton;

Label1: TLabel;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

Label2: TLabel;

Image2: TImage;

ColorDialog1: TColorDialog;

Button1: TButton;

XPManifest1: TXPManifest;

procedure FormCreate(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

X,y,r,w,z1,z2,z3,z4,z5:integer;

fr:trect;

implementation

{$R *.dfm}

procedure zobraz;

begin

Form1.Image2.Canvas.Pen.Width:=5;

Form1.Image2.Canvas.Pen.Color:=clblack;

Form1.Image2.Canvas.Brush.Color:=Form1.Colordialog1.Color;

Form1.Image2.Canvas.Polygon([Point(Round(X+r*cos(w+z1*Pi/5)),Round(y+r*sin(w+z1*Pi/5))),Point(Round(X+r*cos(w+z2*Pi/5)),Round(y+r*sin(w+z2*Pi/5))),Point(Round(X+r*cos(w+z3*Pi/5)),Round(y+r*sin(w+z3*Pi/5))),Point(Round(X+r*cos(w+z4*Pi/5)),Round(y+r*sin(w+z4*Pi/5))),Point(Round(X+r*cos(w+z5*Pi/5)),Round(y+r*sin(w+z5*Pi/5)))]);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

x:=50;

y:=50;

r:=45;

w:=6;

Z1:=0;

Z2:=2;

Z3:=4;

Z4:=6;

Z5:=8;

zobraz;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

Image2.Canvas.Brush.Color:=clWhite;

Image2.Canvas.Pen.Color:=clWhite;

Image2.Canvas.Rectangle(0,0,Image2.Width,Image2.Height) ;

y:=y-10;

zobraz;

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);

begin

Image2.Canvas.Brush.Color:=clWhite;

Image2.Canvas.Pen.Color:=clWhite;

Image2.Canvas.Rectangle(0,0,Image2.Width,Image2.Height) ;

y:=y+10;

zobraz;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin

Image2.Canvas.Brush.Color:=clWhite;

Image2.Canvas.Pen.Color:=clWhite;

Image2.Canvas.Rectangle(0,0,Image2.Width,Image2.Height) ;

X:=X+10;

zobraz;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

Image2.Canvas.Brush.Color:=clWhite;

Image2.Canvas.Pen.Color:=clWhite;

Image2.Canvas.Rectangle(0,0,Image2.Width,Image2.Height) ;

X:=X-10;

zobraz;

end;

procedure TForm1.SpeedButton5Click(Sender: TObject);

begin

Image2.Canvas.Brush.Color:=clWhite;

Image2.Canvas.Pen.Color:=clWhite;

Image2.Canvas.Rectangle(0,0,Image2.Width,Image2.Height) ;

x:=x+10;

Y:=Y+10;

R:=r+10;

form1.Image2.Picture.Width;

form1.Image2.Picture.Height;

zobraz;

end;

procedure TForm1.SpeedButton6Click(Sender: TObject);

begin

Image2.Canvas.Brush.Color:=clWhite;

Image2.Canvas.Pen.Color:=clWhite;

Image2.Canvas.Rectangle(0,0,Image2.Width,Image2.Height) ;

x:=x-10;

Y:=Y-10;

R:=r-10;

form1.Image2.Picture.Width;

form1.Image2.Picture.Height;

zobraz;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

colordialog1.Execute;

Image2.Canvas.Brush.Color:=colordialog1.Color;

Image2.Canvas.Pen.Color:=clblack;

zobraz;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

end.