Canvas Text mit transparentem Hintergrund

[ebber]

Hallo

ich habe so einene Text 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;

jetzt ist aber um den Text ein weisses Viereck. Bekomme ich das weg oder transparent ?

MfG

[bitsetter]

Warscheinlich damit:

DP.Brush.Style:= bsClear;

[ebber]

Danke. Damit gehts.