Mega Code Archive
A11---[] nokta koymak[sonic_x32]
<![CDATA[
01101000011101010101000110111010110000111110101001101011100100101010101100010011
//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, ExtCtrls;
type
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//Tıklanan Yere Nokta Koy;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Form1.Canvas.Pixels[x,y]:=clBlue;//Burda x ve y 'ye değer vermeye gerek yok.
end; //Mouse nerde tıklanırsa oranın kordinat değerlerini alır.
end.
01101000011101010101000110111010110000111110101001101011100100101010101100010011
]]>