Başlangıç > Kodlar > Delphi ile Formu pixel pixel ekrana getirme

Delphi ile Formu pixel pixel ekrana getirme


Formu ekrana pixeller halinde getirmek istersen aha sana yolu

procedure TForm1.Button1Click(Sender: TObject);
var
hh,hdev:hdc;
bm:hbitmap;
a,h,w:integer;
begin
hh:=CreateCompatibleDC(GetDC(handle));
bm:=CreateCompatibleBitmap(GetDC(handle),width,height);
SelectObject(hh,bm);
form1.Hide;
hdev:=GetWindowDC(GetDesktopWindow);
BitBlt(hh,0,0,width,height,hdev,form1.Left,form1.Top,SRCCOPY);
Randomize;
for a:=1 to 500000 do
begin
w:=random(width);
h:=random(height);
SetPixel(hdev,left+w,top+h,GetPixel(hh,w,h));
end;
Form1.Show;
end;


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: