Q
在图标下方绘制
-1
A
回答
0
您需要使用桌面画布。诀窍在于,首先,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));
+0
中的“自定义桌面”对其进行测试,该属性也将在桌面图标上绘制。 – opc0de 2011-12-20 08:15:54
+0
ooops您是对的。一种可能的方法是在绘制之前将图标隐藏。但那肯定会产生恼人的闪烁效果。让我想想如果我找到另一种解决方案。 – 2011-12-20 08:23:47
相关问题
- 1. 绘制图标
- 2. Python:绘制直方图向下
- 3. 绘制直方图
- 4. 绘制直方图
- 5. 绘制直方图
- 6. 坐标轴绘制在核心图中的图下
- 7. 在拖动的同时在光标下绘制图像
- 8. 关于图标悬停绘制图标
- 9. 在状态栏下方绘制NavigationView标题
- 10. 在圆圈下方绘制文本
- 11. iOS-Charts在圆圈下方绘制值
- 12. 绘制图像坐标
- 13. 坐标绘制大厅图
- 14. 如何控制KML图标绘制顺序,从上到下
- 15. 在Windows下使用DirectX绘制位图
- 16. 在FullScreen模式下绘制图像Android
- 17. 如何如下图所示绘制坐标HTML 5的地图
- 18. 绘制一种直方图
- 19. 用python绘制直方图
- 20. 绘制差分方程图
- 21. 在图像上绘制鼠标点击
- 22. NSWindow在桌面图标上绘制
- 23. 在Google地图上绘制标记
- 24. 在Mathematica中用对数坐标绘制直方图8
- 25. 绘制蓝色小方块时,在我的图标
- 26. 在熊猫中绘制直方图
- 27. 如何在c中绘制直方图
- 28. 在Python中绘制直方图
- 29. 在Matlab中并排绘制直方图
- 30. 在直方图中绘制NA计数
替换背景图片? – 2011-12-20 07:59:49
不改变壁纸我正在寻找一个动态的方式女巫会让我改变它非常快 – opc0de 2011-12-20 08:03:17
这听起来像昨天你问的同一个问题。你想要画什么? – 2011-12-20 08:13:38