comtoh grafis dalam delphi

Listing program :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Shape7: TShape;
Label1: TLabel;
Button1: TButton;
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Shape2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Shape3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Shape4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Shape5MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Shape6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Shape7MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
tomboltekan:boolean;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
canvas.MoveTo(x,y);
tomboltekan:=true;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
tomboltekan:=false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if tomboltekan then
begin
canvas.LineTo(x,y);
end;
end;

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
canvas.Pen.Color:=shape1.Brush.Color;
end;

procedure TForm1.Shape2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
canvas.Pen.Color:=shape2.Brush.Color;
end;

procedure TForm1.Shape3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
canvas.Pen.Color:=shape3.Brush.Color;
end;

procedure TForm1.Shape4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
canvas.Pen.Color:=shape4.Brush.Color;
end;

procedure TForm1.Shape5MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
canvas.Pen.Color:=shape5.Brush.Color;
end;

procedure TForm1.Shape6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
canvas.Pen.Color:=shape6.Brush.Color;
end;

procedure TForm1.Shape7MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
canvas.Pen.Color:=shape7.Brush.Color;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
halt;
end;

end.



Hasil :

2 . Contoh Penggunaan Grafis

Listing program :



unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.canvas.pen.style:=pssolid;
image1.canvas.pen.color:=clblack;
image1.canvas.pen.width:=1;
image1.canvas.polyline([point(30,70),point(60,110),point(0,110),point(30,70)]);
image1.canvas.polyline([point(30,70),point(120,38),point(150,78),point(60,110)]);
image1.canvas.polyline([point(50,110),point(50,160),point(10,160),point(10,110)]);
image1.canvas.polyline([point(140,82),point(140,128),point(50,160)]);
image1.canvas.rectangle(20,120,40,140);
image1.canvas.rectangle(30,120,40,140);
image1.canvas.rectangle(20,130,40,140);
image1.canvas.polyline([point(80,118),point(80,150),point(60,156),point(60,124),point(80,118)]);
image1.canvas.polyline([point(90,110),point(110,102),point(110,115),point(90,123),point(90,110)]);
image1.canvas.polyline([point(115,100),point(135,92),point(135,105),point(115,113),point(115,100)]);
image1.canvas.polyline([point(60,124),point(78,114),point(78,118)]);
image1.canvas.rectangle(20,90,40,100);
image1.Canvas.ellipse(74,135,78,140);
image1.canvas.polyline([point(40,66),point(72,107)]);
image1.canvas.polyline([point(50,64),point(82,104)]);
image1.canvas.polyline([point(60,61),point(92,100)]);
image1.canvas.polyline([point(70,57),point(102,96)]);
image1.canvas.polyline([point(80,52),point(112,92)]);
image1.canvas.polyline([point(90,48),point(122,88)]);
image1.canvas.polyline([point(100,44),point(132,84)]);
image1.canvas.polyline([point(110,41),point(142,81)]);
image1.canvas.polyline([point(38,80),point(128,46)]);
image1.canvas.polyline([point(45,91),point(135,58)]);
image1.canvas.polyline([point(52,102),point(143,69)]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

Hasil :