Danke!
Fast gelöst:
Zitat:
Parent der Paintbox sollte das Panel sein
Jetzt sieht man meinen Text, jedoch flackert er, trotz Double Buffered...
Außerdem kann der Text nicht komplett angezeigt werden er wird am "Hallo Wel..." von etwas überdeckt.
Form1.PaintBox1.Canvas.TextOut(Schreibflaeche.Width div 2 - 25, 70,Schrift);
Wie kann das sein?
Edit:[entfernt]
Edit2:
Delphi-Quellcode:
procedure TForm1.PaintBox1Paint(Sender: TObject);
var Schrift: string;
canvas : TCanvas;
x: integer;
begin
//Paintbox an Panel
PainBox1.Height:=Blatt.Height;
PaintBox1.Width:=Blatt.Width;
// Paintbox erstellen
PaintBox1:=TPaintbox.Create(self);
PaintBox1.Parent:=Panel1;
// Paintbox weiß färben
PainBox1.canvas.brush.color:=clwhite;
PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.width,PaintBox1.height));
canvas := (Sender as TPaintBox).Canvas;
// Schreibversuch
canvas.Brush.Color := clBlack;
Schrift:= 'Hallo Welt';
Form1.Panel1.canvas.TextOut(PaintBox1.Width div 2 -25, 70,Schrift);
end;
Das füht im Moment dazu:
Paintbox erstellt, jedoch komischerweise ist nur ein kleines Feld in der obeneren linken Ecke weiß und es steht Hallo Wel... dort drin. Es flackert...