Search results for 'DrawIconEx'. 1 post(s) found.
- 2007/09/11 Get Cursor Image (draw it on a Canvas)
The DrawCursor procedure draws a current cursor image on ACanvas at the Position point:
procedure DrawCursor (ACanvas:TCanvas;
Position:TPoint) ;
var
HCursor : THandle;
begin
HCursor := Screen.Cursors
[Ord(Screen.Cursor)];
DrawIconEx(ACanvas.Handle, Position.X, Position.Y,
HCursor, 32, 32, 0, 0, DI_NORMAL) ;
end;
{
Usage (top-left on a form1):
DrawCursor(form1.Canvas,Point(0,0)) ;
}
Position:TPoint) ;
var
HCursor : THandle;
begin
HCursor := Screen.Cursors
[Ord(Screen.Cursor)];
DrawIconEx(ACanvas.Handle, Position.X, Position.Y,
HCursor, 32, 32, 0, 0, DI_NORMAL) ;
end;
{
Usage (top-left on a form1):
DrawCursor(form1.Canvas,Point(0,0)) ;
}
Another posts included in "Delphi"
| Grayscaling a bitmap ? (0) | 2007/09/11 |
| Implementing a lasso drawing technique (0) | 2007/09/11 |
| Is Point in Polygon? (0) | 2007/09/11 |
| How to convert HIcon to TIcon ? (0) | 2007/09/11 |
| Extract an icon from an Windows application and paint on a Form (0) | 2007/09/11 |
| How to draw transparent text on Windows Desktop (0) | 2007/09/11 |
| How to draw rotated text (0) | 2007/09/11 |
| How to convert an ICO to a BMP (0) | 2007/09/11 |
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/25 09:00
moneyideas
-
Subject different money making ideas
2010/01/28 22:20
moneyideas
-
Subject different money making ideas
2010/01/29 06:32
moneyideas
-
Subject different money making ideas
2010/01/31 16:39
moneyideas
Prev
Rss Feed