Reihenfolge in TPaintbox

[Leominora]

Hallo,

habe bisher VB programmiert und muss mich nun durch Delphi kämpfen.

Habe nun eine Paintbox, da drauf sollen mehrere Rechtecke - so weit so gut!
Aber in den farbigen Rechtecken soll noch ein Text stehen!

Wenn ich die Funktionen einzeln aufrufe, funktionieren die Sachen, aber wenn ich beides hintereinander aufrufe, wird nur das Rechteck gezeichnet und der Text nicht.

Code:

pbtemp.Canvas.Rectangle(1,20,50,20);
pbtemp.Canvas.TextOut(5,5, 'Test');

Habe auch die Aufrufe gedreht - kein anderes Ergebnis!


Was muss ich machen, dass das Rechteck und da drauf der Text angezeigt wird???

edit: hat sich erledigt

[jim_raynor]

MMhh. Vielleicht der Schrift eine andere Farbe geben ?

pbtemp.Canvas.Font.Color:=clGreen;