Text Overlay

[EWeiss]

Ich zeichne auf Image.canvas und möchte nun einen Text überlagern ohne das dieser gelöscht wird.
Wie gehe ich da am besten vor?

Betrifft das Projekt
http://www.delphipraxis.net/184476-p...-new-post.html

Irgendwo hier in ein Bitmap kopieren?

Delphi-Quellcode:

procedure TForm1.btnHelpClick(Sender: TObject);
var
  Txt: string;
  R: TRect;
begin

  if not HelpIsOn then
  begin
        Image1.Canvas.Font.Name := 'Consolas';
        Image1.Canvas.Font.Size := 10;
        Image1.Canvas.Font.Style := [fsBold];
        Txt := Txt + ' ' + sLineBreak + sLineBreak;
        Txt := Txt + '                      Anleitung' + sLineBreak + sLineBreak;
        Txt := Txt + '    1. Set drücken' + sLineBreak;
        Txt := Txt + '    2. Run drücken' + sLineBreak;
        Txt := Txt + '    3. Abwarten, zuschauen' + sLineBreak;
        Txt := Txt + '    4. Kick X oder Kick Y drücken - spielen,' + sLineBreak;
        Txt := Txt + '       zuschauen ' + sLineBreak;
        Txt := Txt + '    5. Stop drücken' + sLineBreak;
        Txt := Txt + '    6. Roten oder schwarzen Punkt mit der Maus ' + sLineBreak;
        Txt := Txt + '       verschieben ' + sLineBreak;
        Txt := Txt + '    7. Run drücken, weiterspielen' + sLineBreak;
        Txt := Txt + '    8. Break oder Ende in der IDE' + sLineBreak;
        Txt := Txt + '    9. Parameter D in SetParam ändern: 0 bis 10000' + sLineBreak;
        Txt := Txt + '   10. Neu starten, weiterspielen' + sLineBreak;
        Txt := Txt + '   11. Code nach .Net übersetzen oder Code' + sLineBreak;
        Txt := Txt + '       nach eigenen Vorstellungen erweitern' + sLineBreak;
        Txt := Txt + '   12. Kluge Bemerkungen im Forum machen, den' + sLineBreak;
        Txt := Txt + '       Autor mit Lob überhäufen, Kritik üben :-)' + sLineBreak;
        Txt := Txt + '     ' + sLineBreak;
        Txt := Txt + '   99. ? drücken um den blöden Text wegzumachen' + sLineBreak;

        R := Rect(Graph.xxc(Graph.xMin), Graph.yyc(Graph.yMax), Graph.yyc(Graph.yMin),Graph.xxc(Graph.xMax) );

        Image1.Canvas.FillRect(R);
        DrawText(Image1.Canvas.Handle, PWideChar(Txt), -1, R, DT_LEFT);
        HelpIsOn := True
    end else
    begin
      Graph.PrepareScale;
      Graph.Draw;
      HelpIsOn := False;
    end;
end;

Mein Problem ist das ich im weiteren verlauf um die Grafik neu zu zeichnen.
Die alte mit

Delphi-Quellcode:

  // Hintergrund löschen
  Image.Canvas.FillRect(Image.Canvas.ClipRect);

lösche.
Der Text wird dann natürlich auch gelöscht.


gruss

[BUG]

Wäre es so schlimm den Text auch jedes mal neu zu rendern? Zur Not könntest du ihn ein Bitmap zeichnen und dann dann immer dieses als erstes auf das Canvas zeichnen (anstelle von FillRect).

[Sir Rufo]

Das Grundproblem dabei ist, dass TImage.Canvas sehr flüchtend ist. Sobald - von wo auch immer - das Kommando neuzeichnen kommt ist das so Gemalte weg.

Mal das auf die Bitmap von TImage .

[EWeiss]

Zitat:

Wäre es so schlimm den Text auch jedes mal neu zu rendern?

Auch dann würde er mit Graph.Draw anschließend gelöscht.

Zitat:

Mal das auf die Bitmap von TImage .

Werd's mal versuchen

gruss

[Sir Rufo]

Du kannst dir allerdings auch eine TPaintBox über das Image legen und dort im TPaintBox.OnPaint alles reinmalen was du möchtest.

Dadurch "kritzelst" du nicht auf dem Bild rum und trotzdem ist es "darüber".

[EWeiss]

Zitat von Sir Rufo:

Du kannst dir allerdings auch eine TPaintBox über das Image legen und dort im TPaintBox.OnPaint alles reinmalen was du möchtest.

Dadurch "kritzelst" du nicht auf dem Bild rum und trotzdem ist es "darüber".

Habe es jetzt mal so wie von BUG vorgeschlagen gemacht.

Zitat:

Wäre es so schlimm den Text auch jedes mal neu zu rendern?

Mit ein paar kleinen Änderungen funktioniert das soweit ganz gut.

Nach dem löschen

Image.Canvas.FillRect(Image.Canvas.ClipRect);

einfach ein

Delphi-Quellcode:

  if HelpIsOn then
    DrawHelp;

DrawHelp in die Klasse TGraph eingefügt

Delphi-Quellcode:

procedure TGraph.DrawHelp;
var
  Txt: string;
  R: TRect;
begin

  Image.Canvas.Font.Name := 'Consolas';
  Image.Canvas.Font.Size := 10;
  Image.Canvas.Font.Style := [fsBold];
  Txt := Txt + ' ' + sLineBreak + sLineBreak;
  Txt := Txt + '                      Anleitung' + sLineBreak + sLineBreak;
  Txt := Txt + '    1. Set drücken' + sLineBreak;
  Txt := Txt + '    2. Run drücken' + sLineBreak;
  Txt := Txt + '    3. Abwarten, zuschauen' + sLineBreak;
  Txt := Txt + '    4. Kick X oder Kick Y drücken - spielen,' + sLineBreak;
  Txt := Txt + '       zuschauen ' + sLineBreak;
  Txt := Txt + '    5. Stop drücken' + sLineBreak;
  Txt := Txt + '    6. Roten oder schwarzen Punkt mit der Maus ' + sLineBreak;
  Txt := Txt + '       verschieben ' + sLineBreak;
  Txt := Txt + '    7. Run drücken, weiterspielen' + sLineBreak;
  Txt := Txt + '    8. Break oder Ende in der IDE' + sLineBreak;
  Txt := Txt + '    9. Parameter D in SetParam ändern: 0 bis 10000' + sLineBreak;
  Txt := Txt + '   10. Neu starten, weiterspielen' + sLineBreak;
  Txt := Txt + '   11. Code nach .Net übersetzen oder Code' + sLineBreak;
  Txt := Txt + '       nach eigenen Vorstellungen erweitern' + sLineBreak;
  Txt := Txt + '   12. Kluge Bemerkungen im Forum machen, den' + sLineBreak;
  Txt := Txt + '       Autor mit Lob überhäufen, Kritik üben :-)' + sLineBreak;
  Txt := Txt + '     ' + sLineBreak;
  Txt := Txt + '   99. ? drücken um den blöden Text wegzumachen' + sLineBreak;

  R := Rect(Graph.xxc(Graph.xMin), Graph.yyc(Graph.yMax), Graph.yyc(Graph.yMin),Graph.xxc(Graph.xMax) );

  Image.Canvas.FillRect(R);
  DrawText(Image.Canvas.Handle, PWideChar(Txt), -1, R, DT_LEFT);
end;

Und von außen (Form) geschaltet.

Delphi-Quellcode:

procedure TForm1.btnHelpClick(Sender: TObject);
begin

  Graph.HelpIsOn := not Graph.HelpIsOn;
  Graph.Draw;
end;

Projekt aktualisiert!
http://www.delphipraxis.net/184476-p...s-projekt.html

gruss

[Popov]

@EWeiss

Ich weiß nicht ob ich dich richtig verstanden habe, aber falls du meinst eine Hintergrundgrafik zu haben auf der sich im Vordergrund etwas abspielt, sowas in der Art hatte ich auch mal. Ich hab mir damals eine Bitmap-Klasse geschrieben bei der es mehrere Ebenen gab. Ebene 0 war somit der Hintergrund und ich konnte auf Ebene 1 zeichnen ohne den Hintergrund zu zerstören. Jedes mal wenn ich es wieder darstellen wollte, wurden die beiden Bilder zusammengefügt. Und damit das kein permanentes Neuzeichnen wird, wurden die Änderungen stets in einer Maske festgehalten, so dass man damit einen Clipping-Bereich für das Neuzeichnen hatte. Es wurden also immer nur die Änderungen neu gezeichnet.

Aber bei deinem Beispiel mit dem Pendel würde ich auf die Maske verzichten. Einfach nur auf den Ebenen zeichnen und komplett übertragen.

[Sailor]

Nimm Graphics32, das bietet alles, was Du brauchst: Antialiasing, Transparency, Layers etc. und genügend Beispiele, um schnell in die Gänge zu kommen

[EWeiss]

Zitat von Sailor:

Nimm Graphics32, das bietet alles, was Du brauchst: Antialiasing, Transparency, Layers etc. und genügend Beispiele, um schnell in die Gänge zu kommen

Gut gemeint
Aber extra für so ein kleines Projekt eine Komponente einbinden wenn es mit Hausmitteln geht?
Es tut ja was es soll wenn auch die Grafik nicht das gelbe vom EI ist.

gruss