How to draw directly on the Windows Desktop?
Through some API functions like
To draw a text
Handle := GetDesktopWindow;
Dc := GetWindowDC(Handle) ;
ACanvas := TCanvas.Create;
try
ACanvas.Handle := DC;
BeginPath(ACanvas.Handle) ;
ACanvas.Font.Color := clRed;
ACanvas.Font.Name := 'Tahoma';
ACanvas.Font.Size := 30;
SetBkMode(ACanvas.Handle, TRANSPARENT) ;
EndPath(ACanvas.Handle) ;
ACanvas.TextOut(0, 0, TextToDraw) ;
finally
ReleaseDC(Handle, ACanvas.Handle) ;
ACanvas.Free;
end;
| Is This Answer Correct ? | 2 Yes | 2 No |
How to Use JPEGs from resource files ?
How to Perform undo on an edit control?
How to draw transparent text onto a TBitmap ?
Are there any tools to help me migrate my applications to Delphi?
what is Object Activation ?
How does Delphi handle Windows callbacks?
How to use a true DWORD value passed to Delphi application?
What directory is the ActiveForm in ?
How to Typecaste a PChar to a longint?
How to have a TBitBtn component that has a word wrapped caption?
What is the equivalent in BCB to a Pdox TCursor?
Explain the methods findfirst, findnext and findclose?