Delphi-PRAXiS - Delphi Reihenfolge in TPaintbox

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Reihenfolge in TPaintbox (https://www.delphipraxis.net/35006-reihenfolge-tpaintbox.html)

Reihenfolge in TPaintbox

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??? :roll:

edit: hat sich erledigt :oops:

Re: Reihenfolge in TPaintbox

MMhh. Vielleicht der Schrift eine andere Farbe geben ? :roll:

Delphi-Quellcode:

pbtemp.Canvas.Font.Color:=clGreen;