在圖標下方繪製

Question

我正在尋找一種方法在使用delphi的windows桌面圖標下繪製bmp /文本。

任何想法？

Answer 1

您需要使用桌面畫布。訣竅在於，首先，onFormCreate，您在delphi TCanvas中捕獲桌面畫布句柄。

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    FDesktopCanvas := TCanvas.Create; 
    FDesktopCanvas.Handle := GetWindowDC(0); 
end; 

後來銷燬onFormDestroy。

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
    FDesktopCanvas.Free; 
end; 

在代碼中，你只需要使用FDesktopCanvas作爲一個普通的畫布，每次你需要畫的時間...

FDesktopCanvas.pen.Color := clWhite; 
FDesktopCanvas.pen.Width := 5; 
FDesktopCanvas.moveto(Screen.Width, 2); 
FDesktopCanvas.lineto(2, 2); 

...

var aBitmap: TBitmap; 
.... 
aBitmap := TBitmap.Create; 
try 
    aBitmap.LoadFromFile('logo100px.bmp'); 
    FDesktopCanvas.draw(Screen.Width-200, 100, aBitmap); 
finally 
    aBitmap.Free; 
end; 

...

FDesktopCanvas.Font.Name := 'Segoe'; 
FDesktopCanvas.Font.Size := 36; 
FDesktopCanvas.Font.Color := clWhite; 
FDesktopCanvas.Brush.Style := bsclear; 
FDesktopCanvas.textout(Screen.Width-200, Screen.Height-100,FormatDateTime('hh:nn:ss',now));