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 Declare a SafeArray in the type library editor?
How to install programatically a printer?
I'm using Delphi 4/5 and have am trying to fill a RichEdit control with both European characters and Thai characters - while I can change character colours the font stays with what was selected for the control:- reLangB.SelAttributes.Color :=dCol; reLangB.SelAttributes.Name :=FontName[dLang]; reLangB.SelAttributes.Charset :=FontChar[dLang]; reLangB.SelAttributes.Style :=[]; reLangB.Lines.Add(dText); The FontName and FontChar arrays contain the font info, and using a similar method for Captions and EditBoexes works! Anybody any ideas? Thanx in advance!
How to Disable close button of a window ?
How to debug an Apache Shared Module?
How to Make the drop-down list appear faster?
How to display an application associated icons?
How to use the InterBase API security functions to add, modify and delete users?
How to Access HKEY_LOCAL_MACHINE under NT without Admin?
How to Print a TStringGrid / TDBGrid?
How to Register a file extension and context menu operations?
How to get serial number of my drive ?