Paintbox- Text schreiben

[Dunkelbunt27]

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;

[shmia]

Auf die Paintbox darf man nur aus dem Event OnPaint heraus zeichnen!!

Im Anhang ist mein Paintbox-Demo.
Ich denke es ist gut geeignet um die Paintbox kennenzulernen.

[Dunkelbunt27]

Okay, ich habe es im OnPaint der Form und im OnPaint der Paintbox selber versucht
... wieder nichts

EDIT:
Könnte es vielleicht sein, dass mein Panel aus irgendeinem Grund die Paintbox überdeckt?
(Panel ist nach hinten und Paintbox nach vorne gesetzt)

[shmia]

Zitat von Dunkelbunt27:

und im OnPaint der Paintbox selber versucht

Das wäre das richtige Event.
Schau Dir mal mein Demo von oben an.

[Dunkelbunt27]

Danke, ich schau mir die Demo an und melde mich dann wieder, ich hoffe das klärt die Frage.



__________________________________________________ _________________________________
(Auf Seite 2 gehts weiter)

[Medium]

Wenn der Parent der Paintbox nicht das Panel, sondern die gemeinsame Form ist, verdeckt es sie. Forms und Panels sind WinControls, welche einen eignen Canvas haben, während TPaintbox ein GraphicControl ist, welches nur auf den Canvas seines Parents durchleitet.
Wenn also die Form der Parent ist, malst du auf die Form an der Stelle, an der das Panel mit seinem eigenen Canvas darüber liegt. Lösung: Parent der Paintbox sollte das Panel sein, nur sehr wahrscheinlich nicht "Schreibblatt", was auch immer das ist.

[Dunkelbunt27]

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...

[jfheins]

Zitat von Dunkelbunt27:

EDIT:
Könnte es vielleicht sein, dass mein Panel aus irgendeinem Grund die Paintbox überdeckt?
(Panel ist nach hinten und Paintbox nach vorne gesetzt)

Ja, exakt das ist der Fall.

TPaintBox ist ein TGraphicControl und TPanel ist ein TWinControl. TWinControls verdecken immer alle TGraphicControls auf der gleichen Ebene. (Du kannst die Paintbox natürlich in das Panel hineinschieben, aber das ist was anderes)

Also nimm das Panel da weg