Ersteinmal Danke!
Zitat:
Painbox1
Das war ein Schreibfehler
Dein Code hat geholfen, jedoch muss man dort auch eine Kleinigkeit ändern.
Um die Farbe des Textes einzustellen muss man statt die Brush.Color zu ändern die Font eigenschaften ändern.
Standardmäßig ist die Schrift schwarz.
Zitat:
canvas.Brush.Color := clBlack;
Bewirkt, dass ein Rechteck um den Text schwarz gezeichnet wird... Dadurch wird der Text unsichtbar, da man schwarz auf schwarz nicht lesen kann.
Also muss es
canvas.Brush.Color := clWhite;
heißen, wenn man den schwarzen tetx auf weißem Hintergrund lesen möchte.
Ein Problem habe ich jedoch noch:
Delphi-Quellcode:
canvas.brush.color:=clwhite;
canvas.FillRect(Rect(0,0,PaintBox1.width,PaintBox1.height));
Das sollte meine Paintbox mit einem weißen Rechteck bemalen. Tut es aber nicht, stattdessen ist das Rechteck aus irgendeinem Grund nur 100 hoch und 100 breit. Wenn ich manuelle Werte eingeben wie:
canvas.FillRect(Rect(0,0,
300,
300));
dann wird das weiße Rehcteck schonmal größer. Kann man vielleicht Variablen (x,y) für Höhe und Breite verwenden?
Wieso reagiert das Programm auf
Code:
PaintBox1.width,PaintBox1.height
nicht?
(Vielleicht eine function benutzen? Wenn ja wie?)
Ich hoffe jemand weiß auf diese Fragen eine Antwort.
Dunkelbunt