Thema: Delphi Desktop Canvas Clear ?

Einzelnen Beitrag anzeigen

ebber

Registriert seit: 31. Okt 2006
243 Beiträge
 
#1

Desktop Canvas Clear ?

  Alt 9. Apr 2007, 21:15
Hallo

ich habe so was auf den Desktop gezeichnet

Delphi-Quellcode:

var
DP: TCanvas;
begin
  DP := TCanvas.Create;
  DP.Handle := GetDC(0);
  DP.font.Height:=(40);
  DP.font.Name:=('Verdana');
  DP.font.Color:=(cllime);
  DP.font.Style:=[fsBold];
  DP.TextOut(round(Screen.width/2-150),round(Screen.height/2+Screen.height/4),'Laustärke :'+inttostr(100-round(100/72*Form2.Trackbar1.position))+' %');
  ReleaseDC(0, DP.Handle);
  DP.Handle := 0;
  DP.Free;
end;

wie bekomme ich das wieder weg ?

MfG
  Mit Zitat antworten Zitat