Form.Repaint

[devnull]

Hallo, wiedereinmal eine Frage:
Ich öffne während der Laufzeit meines Programms Bilder auf dem Formular (unten stehende Proze).
Wenn jetzt der Benutzer das Formular in den Hintergrund zieht oder ausserhalb des Bildschirm-Bereichs,
dann verschwinden diese "auf die Form" gezeichneten Bilder (selbiges bei Form.Refresh;).
Wie kann ich jetzt in Form.Repaint; machen, dass die ganzen (das sind über 15 Bilder) wieder angezeigt
werden ????

Delphi-Quellcode:

procedure bmp_zeichnen (x,y : integer; name : string);
var NButton : TBitmap;
begin
    NButton := TBitmap.Create;
    try
      NButton.LoadFromFile (name);
      FAnwendung.Canvas.Brush.Bitmap := NButton;
      FAnwendung.Canvas.Draw(x,y,NButton);
    finally
      FAnwendung.Canvas.Brush.Bitmap := nil;
      NButton.Free;
    end;
end;

Bitte helft mir.
MFG
devnull

[himitsu]

Du mußt die BitMap natürlich auch neu zeichnen, wenn der Formular neu gezeichnet wird.

Also müssen die Bilder auch geladen bleiben - es wäre ja nicht so gut diese jedesmal neu zu laden ;)

z.B.:

Delphi-Quellcode:

Var NButton1, NButton2, NButton3: TBitMap;

Procedure TForm1.FormCreate(Sender: TObject);
  Begin
    NButton1 := TBitmap.Create;
    NButton1.LoadFromFile('name1');
    NButton2 := TBitmap.Create;
    NButton2.LoadFromFile('name2');
    NButton3 := TBitmap.Create;
    NButton3.LoadFromFile('name3');
  End;

Procedure TForm1.FormDestroy(Sender: TObject);
  Begin
    NButton1.Free;
    NButton2.Free;
    NButton3.Free;
  End;

Procedure TForm1.FormPaint(Sender: TObject);
  Begin
    Canvas.Draw(x1, y1, NButton1);
    Canvas.Draw(x2, y2, NButton2);
    Canvas.Draw(x3, y3, NButton3);
  End;

[devnull]

Wenn ich jetzt mit einem Programm zur Laufzeit ungefähr 72 Bilder erstelle, dann muss ich im vorhinein alle
72 in var definieren ? :gruebel:

[Luckie]

Nimm ein Array.

Noch zu deinem Porblem:

Zitat:

Windows funktioniert über Nachrichten, das heißt jedes eintretende Ereignis löst
einen Nachricht aus, auf die das Programm/Fenster reagiert. Seies, dass man mit
Code Windows bzw. dem Programm explizit sagst was passieren soll oder das Windows
die standard Behandlungsroutine ausführt. Bei einem Klick auf einem Button wäre
das BM_CLICK. Beim Erzeugen eines Fensters wäre das WM_CREATE.

Was passiert nun, wenn das Fenster von einem anderen überlagert wird und es
dann weggenommen wird? Nun der Bereich des Desktop wird für ungültig erklärt.
Windows weiß nun nicht, was es darstellen soll. Das alleine weiß nur das wieder
sichtbar gewordenen Fenster bzw. Programm. Also schickt Windows an das betreffende
Fenster eine Nachricht, die es dazu veranlaßt sich neu zu zeichnen (WM_PAINT).
Bei den standard Kontrolls (Buttons, Listboxen etc.) braucht es dazu keinen
zusätzluichen Code. Windows weiß wie sie aussehen und das Programm/Fenster kann
WM_PAINT an die Fensterprozedur dieser Kontrolls weiterleiten. Diese bearbeitet
nun WM_PAINT welche die Kontrolls neu zeichnet.

Bei der Paintbox geht das nicht. Wie auch Windows, bzw. die standard Fensterprozedur
weiß ja nicht, was auf selbige gezeichnet wurde. Also wird dieser Bereich des
Fenster bzw. der Paintbox weiß von Windows dargestellt.

So die Lösung ist nun recht einfach. Die Paintbox speziell besitzt das Ereignis
OnPaint welches auf die Windows-Nachricht WM_PAINT reagiert. In diesem Ereignis
mußt man nun alle Zeichenoperationen ausführen. Sind es viele wird es flackern,
da die GDI-Ausgabe relativ langsam ist. Aber die Paintbox zeigt immer das,
was sie zeigen soll. Dies ist natürlich unschön immer alles in OnPaint zu zeichnen,
hinzukommt, weil ja nicht immer das gleiche gezeichnet werden soll. Klickt man
auf den einen Button soll ein Kreis gezeichnet werden, klickt man auf den anderen
ein Rechteck.

"Was tun?", sprach Zeus. Nun ganz einfach, man greift zu einem Trick. Dieser
Trick besteht darin nicht direkt auf die Paintbox oder auf die Canvas des
Fensters zu zeichnen, sondern auf ein Bitmap im Speichern und immer wenn nötig
dieses Bitmap auf den Canvas zu kopieren. Die geschieht einmal in der
ButtonClick-Prozedur und jedes mal im OnPaint Ereignis der Paintbox oder des
Fensters. Das Kopieren hat auch noch den Vorteil, dass erstmal das Zeichnen im
Speicher schneller geht und die Ausgabe erfolgt auch schneller, da das Kopieren
wesentlich schneller ist, als alles einzeln zu zeichnen.

Das hab eich mal zu diesem Codeschnippsel geschrieben: http://www.luckie-online.de/Ablage/D...eenBitmap.html

[devnull]

Danke. Dein Beispiel hat mir sehr geholfen :thuimb: :thuimb: