Delphi屏幕繪圖

fjwolf 2009-03-19

展開全文

Delphi屏幕繪圖

2008-07-29 00:30

以下代碼以光標所在位置為中心,在全屏幕上繪制一個十字架:

procedure TForm1.Button1Click(Sender: TObject);
var
     FullscreenCanvas:TCanvas;
    DC:HDC;
begin
    DC:=GetDC(0);//取得屏幕的DC，參數(shù)0指的是屏幕
    FullscreenCanvas := TCanvas.Create;//創(chuàng)建一個CANVAS對象
    FullscreenCanvas.Handle := DC;   //將畫布關聯(lián)到屏幕句柄，以便能做圖
    FullscreenCanvas.MoveTo(mouse.CursorPos.X,0);
    FullscreenCanvas.LineTo(mouse.CursorPos.x,768);
    FullscreenCanvas.MoveTo(0,Mouse.CursorPos.Y);
    FullscreenCanvas.LineTo(1024,Mouse.CursorPos.y);
end;

以下代碼在全屏幕中心繪制一個十字架:

procedure TForm1.Button1Click(Sender: TObject);
var
   FullscreenCanvas:TCanvas;
    DC:HDC;
begin
    DC:=GetDC(0);//取得屏幕的DC，參數(shù)0指的是屏幕
     FullscreenCanvas := TCanvas.Create;//創(chuàng)建一個CANVAS對象
     FullscreenCanvas.Handle := DC;   //將畫布關聯(lián)到屏幕句柄，以便能做圖
    FullscreenCanvas.MoveTo(screen.Width div 2,0);
     FullscreenCanvas.LineTo(screen.Width div 2,768);
     FullscreenCanvas.MoveTo(0,Screen.Height div 2);
    FullscreenCanvas.LineTo(1024,Screen.Height div 2);
end;

//以下代碼實現(xiàn)定時在屏幕正中繪一個十字，一個正方形，一個圓形

procedure TForm1.Timer1Timer(Sender: TObject);
var
MyCanvas:TCanvas;
DC:HDC;
begin
DC:=GetDC(0);
MyCanvas:=TCanvas.Create;
//MyCanvas.Brush.Color:=clblack; //黑色填充色
MyCanvas.Brush.Style:=bsClear; //無背景色
MyCanvas.Handle:=DC;
//MyCanvas.Brush.Bitmap:=image1.Picture.Bitmap;
MyCanvas.MoveTo(screen.Width div 2,0);
MyCanvas.LineTo(screen.Width div 2,Screen.Height);
MyCanvas.MoveTo(0,screen.Height div 2);
MyCanvas.LineTo(screen.Width,screen.Height div 2);
MyCanvas.Rectangle(Screen.Width div 2-100,Screen.Height div 2-100,Screen.Width div 2+100,Screen.Height div 2+100); //屏幕正中心繪制一個正方形
MyCanvas.Ellipse(Screen.Width div 2-100,Screen.Height div 2-100,Screen.Width div 2+100,Screen.Height div 2+100); //屏幕正中心繪制一個圓形
MyCanvas.TextOut(720,300,'我測試再測試，測試直接在屏幕上寫字的感覺！'); //在Canvas對象上添加文字
end;