Delphi-Quellcode:
var
Schrift: String;
Begin
Schrift:='Hallo Welt';
PaintBox1.Canvas.Textout(0,0,Schrift);
end;
Ergebnis: Überraschenderweise... Nichts...
PS: Das hatte ich vorher auch schoneinmal probiert. Ich werd es aber umgedreht lassen also:
Delphi-Quellcode:
var
Schrift: String;
Begin
Schrift:='Hallo Welt';
PaintBox1.Canvas.Textout(0,0,Schrift);
end;
ist logischer. Leider trotzdem nicht die Lösung.
EDIT:
So sieht jetzt die Prozedur aus:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var Schrift: string;
begin
// Paintbox erstellen
PaintBox1:=TPaintbox.Create(self);
PaintBox1.Parent:=Schreibblatt;
// Paintbox weiß färben
Form1.Panel1.Color := clwhite;
// Schreibversuch
Schrift:= 'Hallo Welt';
Form1.PaintBox1.canvas.TextOut(10,10,Schrift);
end;