Bild auf anderem Formular anzeigen

[Aristophanes]

Ich bin dabei, ein Delphi-Grafikprogramm nach Lazarus zu portieren (Win 7) und bitte um Entschuldigung: Durch die Gewöhnung an Delphi stockt es immer wieder bei einfachsten Dingen.

Hier mein Problem: Auf form1 wird ein Bild geladen (unter Nutzung von TBGRABitmap) und soll auf die Canvas von form3 gezeichnet werden. Das Laden klappt, form3 wird angezeigt, das geladene Bild lässt sich auch speichern, flackert aber auf form3 nur kurz auf (nur sichtbar, wenn ich da auch noch Text ausgeben lasse) und verschwindet wieder.

Code: Alles auswählen

imageorg := loadimage(listbox1.items[0]);
with form3 do
begin
show;
imageorg.Draw(Canvas,0,0,True);
imageorg.savetofile('test.bmp');
end;

Was muss ich tun, damit es sichtbar bleibt?

Danke - Aristophanes

[Heinrich Wolf]

Hallo,

ich komme auch von Delphi her und verwende jetzt auch Lazarus. Aber die Bezeichner, die Du verwendest, kenne ich nicht. Was ist ein TBGRABitmap? Was ist loadimage für eine Funktion? Liefert die ein TImage? Aber imageorg.Draw(Canvas,0,0,True) passt auch nicht zu einem TImage.

Alles, was Du auf ein TForm.Canvas zeichnest, ist nach dem nächsten Neuzeichnen weg. Das ist auch bei Delphi so. Du müsstest es in einem FormPaint Event immer wieder neu zeichnen. Aber leg doch einfach ein Image im Form Editor auf das Form. Lade das Image nur einmal zur Laufzeit und es wird automatisch immer wieder neu gezeichnet, wenn nötig.

Gruß
Heiner

[MAC]

ganz der meinung von Heinrich Wolf:

Du hast es selbst gesagt, es wird gezeichnet und danach ist es weg. Weil sobald die Form neu gezeichnet wird dein Bild auch neu gezeichnet werden muss, oder es verschwindet halt...
Ich empfele dir übrigens ein ganz normales TImage ( unter Additional) zu verwenden, außer es gibt wichtige Gründe warum du dein TBGRABitmap verwendest...
Lege das TImage auf die 3te Form >> Rechtsklick Ankereditor anzeigen >>
dort kannst du einstellen, das das Image von dir automatisch so groß ist wie die Form...
und dann lädst du mit

Code: Alles auswählen

Form3.Image1.Picture.LoadfromFile('C:/test.png') //oder wie auch immer die Datei heißt...

Vorteil ist:
TImage kümmert sich um das zeichnen, das Format ist ziemlich egal da TImage mehrere unterstützt,...

[carli]

@MAC: du vergisst, dass es sich hier um ein Grafikprogramm handelt und dieses selbst kontrollieren will, was wo und wann gezeichnet wird.

Mach es am besten so, wie Heinrich Wolf es gesagt hat: Das onPaint-Ereignis belegen (und nach jeder Änderung am Bild repaint aufrufen)

[Aristophanes]

Vielen Dank für die Hilfe! OnPaint war die einfache Lösung. Das hatte ich bei meinem Delphi-Projekt nicht gebraucht.
Ich werde euch sicher noch öfter brauchen - es geht um einige tausend Zeilen. Das nächste Problem ist schon da Ich versuche mich erst einmal selber heranzutasten. Aber wenn ich nicht weiter komme und hier keine Starthilfe bekäme, müsste ich die Portierung abbrechen, auch wenn ich einige Zeit dafür eingeplant habe....

Bis später - Aristophanes

[creed steiger]

, außer es gibt wichtige Gründe warum du dein TBGRABitmap verwendest...

bestimmt

http://wiki.freepascal.org/BGRABitmap" onclick="window.open(this.href);return false;
http://wiki.freepascal.org/BGRABitmap_tutorial" onclick="window.open(this.href);return false;

das schaut nicht schlecht aus