Transparent auf Canvas malen

[Daniel B]

Hi Chris,

hab ich gerade in einer NG gesehen, vielleicht bringt es Dir ja was. Werde es mal weiter verfolgen.

Zitat:

Hallo zusammen wünsche euch allen noch ein frohes neues!

Habe folgendes Problem:

Ich benötige eine transparente Komponente.

Dazu habe ich von einer TGraphicControl abgeleitet und die paint-Methode
überschrieben.


procedure TTalent.Paint;
begin
inherited;
with self.Canvas do begin
brush.Style:=bsClear;
fillRect(self.ClientRect);
SetTextAlign(self.Canvas.Handle,TA_LEFT);
textout(23,1,fWert);
end;
end;

wenn sich fWert ändert rufe ich invalidate auf. Leider wird die
Zeichenoberfläche nicht gelöscht, so daß der alte Wert sichtbar bleibt und
der neue nur drübergeschrieben wird.

Hat hier jemand einen guten Rat für mich?

Danke Thomas

Grüsse, Daniel