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.