Gönderen Konu: Dİkdörtgen ve Elips Çizen Program (Okunma sayısı 1561 defa)

Mikdad · « : 10 Kasım 2005 21:48:09 »

unit Unitciz;

interface

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

type
TForm1 = class(TForm)
btnYaz: TButton;
btnCiz: TButton;
btnElips: TButton;
btnDortgen: TButton;
btnkapat: TButton;
procedure btnYazClick(Sender: TObject);
procedure btnCizClick(Sender: TObject);
procedure btnElipsClick(Sender: TObject);
procedure btnDortgenClick(Sender: TObject);
procedure btnkapatClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnYazClick(Sender: TObject);
begin
Canvas.TextOut( 150,50,'MEHMET EMİN' );
end;

procedure TForm1.btnCizClick(Sender: TObject);
begin
Canvas.MoveTo( 100,100 );
Canvas.LineTo( 250,250 );
end;

procedure TForm1.btnElipsClick(Sender: TObject);
begin
Canvas.Pen.Color := clyellow;
Canvas.Ellipse( 50,50,100,100 );
end;

procedure TForm1.btnDortgenClick(Sender: TObject);
begin
Canvas.Brush.Color := clgreen;
Canvas.rectangle( 100,100,400,400 );
end;

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

end.

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: Dİkdörtgen ve Elips Çizen Program (Okunma sayısı 1561 defa)

Mikdad

Dİkdörtgen ve Elips Çizen Program