Search results for 'TDesktopCanvas'. 1 post(s) found.
- 2007/09/11 TDesktopCanvas - draw on Windows Desktop
This canvas class allows you to access the Windows Desktop, and draw on it.
type
TDesktopCanvas = class(TCanvas)
private
DC : hDC;
function GetWidth:Integer;
function GetHeight:Integer;
public
constructor Create;
destructor Destroy; override;
published
property Width: Integer read GetWidth;
property Height: Integer read GetHeight;
end;
{ TDesktopCanvas object }
function TDesktopCanvas.GetWidth:Integer;
begin
Result:=GetDeviceCaps(Handle,HORZRES) ;
end;
function TDesktopCanvas.GetHeight:Integer;
begin
Result:=GetDeviceCaps(Handle,VERTRES) ;
end;
constructor TDesktopCanvas.Create;
begin
inherited Create;
DC := GetDC(0) ;
Handle := DC;
end;
destructor TDesktopCanvas.Destroy;
begin
Handle := 0;
ReleaseDC(0, DC) ;
inherited Destroy;
end;
TDesktopCanvas = class(TCanvas)
private
DC : hDC;
function GetWidth:Integer;
function GetHeight:Integer;
public
constructor Create;
destructor Destroy; override;
published
property Width: Integer read GetWidth;
property Height: Integer read GetHeight;
end;
{ TDesktopCanvas object }
function TDesktopCanvas.GetWidth:Integer;
begin
Result:=GetDeviceCaps(Handle,HORZRES) ;
end;
function TDesktopCanvas.GetHeight:Integer;
begin
Result:=GetDeviceCaps(Handle,VERTRES) ;
end;
constructor TDesktopCanvas.Create;
begin
inherited Create;
DC := GetDC(0) ;
Handle := DC;
end;
destructor TDesktopCanvas.Destroy;
begin
Handle := 0;
ReleaseDC(0, DC) ;
inherited Destroy;
end;
Another posts included in "Delphi"
| TImage.Bitmap fade out (0) | 2007/09/11 |
| Rotate Bitmap (any angle, any center of rotation) (0) | 2007/09/11 |
| Are we connected to the Internet? (0) | 2007/09/18 |
| TColor to HTML color (0) | 2007/09/11 |
| Show *any* graphics as Glyph on a SpeedButton (0) | 2007/09/11 |
| Rotating Text (0) | 2007/09/11 |
| Paint a Form with a tiled bitmap image (0) | 2007/09/11 |
| Is Point in Polygon? (0) | 2007/09/11 |
Trackback : Cannot send a trackbact to this post.
-
Subject Buy vicodin online.
2010/01/20 00:39
Buy vicodin no prescription. Buy vicodin online. Buy vicodin without a prescription. Buy vicodin without script. Buy vicodin. Buy vicodin from mexico.
-
Subject different money making ideas
2010/01/29 02:15
moneyideas
-
Subject different money making ideas
2010/01/29 10:43
moneyideas
-
Subject different money making ideas
2010/01/31 16:39
moneyideas
Prev
Rss Feed