Mega Code Archive
A10---santranç tahtası çizimi[sonic_x32]
<![CDATA[
01101000011101010101000110111010110000111110101001101011100100101010101100010011
Delphi'ye Yeni Başlamış ve Şekil Çizmeye Meraklı olan Arkadaşlar İçin Küçük Bir Örnek.
//SİVAS
{MAİL::: Sonic_x32@hotmail.com ---- Sonic_x32@yahoo.com MESUT TUZLALI***Sonic_x***}
{Maillerinizi Bekliyorum.Herşeyi Benimle Paylaşabilirsiniz.Hadi SEE YOU!!!}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var i,k,x,y,x1,y1,z:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
x:=0; y:=0; x1:=50; y1:=50;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
For i:=1 to 8 do
Begin
For k:=1 to 8 do
Begin
If (k mod 2)=z then canvas.Brush.Color:=clRed
else Canvas.Brush.Color:=clBlue;
Canvas.Rectangle(x,y,x1,y1);
x:=x+50; x1:=x1+50;
end;
If z=0 then z:=1 else z:=0;
x:=0; y:=0; x1:=50; y1:=50;
y:=y+(i*50); x:=0; x1:=50; y1:=y1+(i*50);
end;
end;
end.
01101000011101010101000110111010110000111110101001101011100100101010101100010011
]]>