Menggambar Titik Warna Tertentu di Form dengan Pixels

Menggambar titik pada form cukup mudah. Kita gunakan Pixels milik Canvas di unit Graphics. Sintaknya adalah sebagai berikut:

Canvas.Pixels(X,Y) := Warna;

dengan X,Y adalah lokasi titik. X,Y dihitung dari kiri atas form sebagai titik permulaan 0,0. Dan warna adalah warna yang didefinisikan secara kostanta (seperti clRed, clBlue, dll) atau dengan TColor.

Contoh pemakaian:
Canvas.Pixels(100,200);

Program dibawah ini akan mendemokan pembuatan titik dengan warna random yang diletakkan secara random di keseluruhan area form.

Program pembuatan titik diletakkan di Event OnPaint milik form dan menuliskan perintah Invalidate di OnResize milik form. Alasannya: Event OnPaint akan dipanggil oleh form apabila perintah Invalidate dieksekusi. Peletakan invalidate di OnResize bermaksud: "Agar setiap perubahan bentuk form akan menggambar ulang titik-titik itu lagi.

Application.ProcessMessages ditambahkan, agar program tetap bisa disela agar Windows dapat menjalankan antrian program lainnya, sehingga Windows tidak tampak "Hang" atau beku, ketika belum selesai menjalankan perintah.

Program Selengkapnya:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Color := clBlack;
end;

procedure TForm1.FormPaint(Sender: TObject);

var
   i, x, y, R, G, B : integer;
begin
   Canvas.Pixels[1,2] := clRed;

for I:= 1 to 20000 do
    begin

//-- Random tempat
       x := 1+ Random(ClientWidth);
       y := 1+ Random(ClientHeight);

//-- Random warna
       R := 1+ Random(255);
       G := 1+ Random(255);
       B := 1+ Random(255);

Canvas.Pixels[x,y] := TColor(RGB(R,G,B));
       Application.ProcessMessages;
    end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 invalidate;
end;

end.

Menggambar Titik Warna Tertentu di Form dengan Pixels

Related Articles :

0 comments:

Posting Komentar

Cari Disini

Kontak

Terpopuler

Daftar Blog Saya

Komentar