Bitmap.Canvas -> Form.Canvas ... nix zu sehen

[TERWI]

Das Ziel:
Ich erzeuge in einer Unit meines Proggis eine BitMap (ca. 600 X 600) und fülle diese kontinuierlich mittels FillRect und Textout mit irgendwelchen 'bunten' Sachen. Das klappt auch so weit ....
Neben dem speichern 'on demand' soll diese Bitmap als Kontrolle auch jederzeit zu sehen sein - d.h. ich möchte gerne diese (permanent geänderte) BM auf einer separatem Form (bei Bedarf) sehen.

Mein Prob:
1. Versuch: Form.Canvas auf BitMap.Canvas setzen ... nogo
2. Versuch: In Form.OnRepaint mit Canvas.Draw die BitMap ... nogo
3. Versuch: Direkt auf Form.Canvas pinseln - mit oder ohne repaint ... nogo
Ich hab immer nur das default graue Canvas der Form, obwohl sich da definitiv was zeigen sollte.

Das eruegute/geänderte BitMap ist jeweils so weit OK - aber ich sehe nix in der Form, flackert nicht mal ...

Ich bin da nicht so der Held in Sachen Graphics und mir gehen die Ideen aus.
Wie macht man das richtig ?

[TiGü]

Zu 2.:
Machst du denn auch ein Form.Repaint, sobald du das Bitmap auf den Form.Canvas gezeichnet hast? (Form.Canvas.Draw oder Form.Canvas.StretchDraw)

[TERWI]

Delphi-Quellcode:

// OSD-Form
type
...
  public
    FBitmap : TBitMap;
  end;

...

procedure TFormOSD.FormPaint(Sender: TObject);
begin
  if Assigned(FBitmap) then
    Canvas.Draw(0, 0, FBitmap);
end;
...

// Calling Unit:
type
  FBMOSD : TBitmap;  // die zu bearbeitende BM

  ...

  // ... wenn was geändert wurde:
  if Assigned(FormOSD) then
  begin
    ... BitMap Inhalt ändern ...
    FormOSD.FBitmap := FBMOSD;  // zur Sicherheit noch mal zuweisen
    FormOSD.Repaint;
  end;

[Uwe Raabe]

Du kannst einfach ein TImage auf das Form platzieren und bei Bedarf dem Image.Picture.Bitmap deine Bitmap zuweisen.

[TERWI]

... das gibt eine nette Zugriffsverletzung.

Neuer Versuch:
Ich schreibe direkt aus dem Programm auf's Canvas der OSD-Form.
Z.B.
FormOSD.Canvas.TextOut(X, Y, ansistring(Text)); ohne Repaint u. a. --- das geht !
... ist aber nicht Sinn der Sache.

[TERWI]

Kleine Korrektur:
Ich hab in der Eile 'Image.Create/Free' vergessen.
Das ändert aber nichts an der mangelhaften / keine Ausgabe.

[TiGü]

Beispielprojekt als ZIP hier hochladen?

[Uwe Raabe]

Zitat von TERWI:

Kleine Korrektur:
Ich hab in der Eile 'Image.Create/Free' vergessen.
Das ändert aber nichts an der mangelhaften / keine Ausgabe.

Mit "Du kannst einfach ein TImage auf das Form platzieren" meine ich natürlich "im Form-Designer" und nicht zur Laufzeit.

Wenn deine Änderungen in dem Image nicht angezeigt werden, dann solltest du allerdings schon ein Beispielprojekt (ändere Bitmap, Anzeige auf dem Form) hier hochladen, damit wir sehen können, was da passiert. Ich habe so den Verdacht, daß uns da eine wesentliche Information noch fehlt.