MEMBUAT ANAK PANAH GRAFKOM
postingan pertama
monggo mungin bermanfaat bagi blogger sekalian,
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Brush.Color:=clBlue;
Canvas.Rectangle(50,20,60,80);
Canvas.Rectangle(70,20,100,80);
Canvas.Polygon([Point(120,20),point(200,20),
Point(200,10),Point(280,50),
Point(200,90),Point(200,80),Point(120,80)]);
end;
end.
silahkan copy paste script di delphi 7 gan!!!!!!!!!!!!!!
Tidak ada komentar:
Posting Komentar