Bitmap in ein TImage während Laufzeit

[devnull]

Hi,
was mach ich hier falsch ? Ich möchte während der Programmausführung in ein
existierendes TImage eine Bitmap laden und anzeigen:

Delphi-Quellcode:

var NImage : TImage;
begin
   NImage := FAnwendung.Image_rot.Create(Fanwendung);
   try
     NImage.Picture.LoadFromFile ('Bilder\sf_rot_gestrichen.bmp');
     NImage.Assign(NImage);
   finally
     NImage.Free;
   end;

"Image_rot" ist das TImage auf der Form.

devnull

[SirThornberry]

anstelle von
NImage.assign(nimmage)
lieber
image_rot.assign(nimmage) machen

oder noch besser
image_rot.picture.loadfromfile(ExtractFilepath(app lication.exename) + 'Bilder\sf_rot_gestrichen.bmp')
da spaarst du dir die ganzen teile um das erst in nen hilfstimage zu packen

außerdem könntest du statt dem hilfs timage ein hilfs tbitmap nehmen, spaart resourcen

[devnull]

geht jetzt. danke

[devnull]

wie kann ich das Bild wieder löschen, so, dass das tImage immer noch auf der Form ist und auf
mausklicks reagiert ?

[Luckie]

Zitat:

Zitat von devnull

geht jetzt. danke

Frag sich blos wie lange bei der relativen Pfadangabe. :roll:

[devnull]

wieso ? wenn man das programm aus dem verzeichnis startet, funktioniert es ? wie solls denn sonst gehn?

[Luckie]

Dann änder mal bei einer Verknüpfung das artbeitsverzeichnis oder lass sich das aktuelle Verzeichnis durch einen Open- oder SaveDialog ändern, dann geht es nicht mehr. Gib den absoluten Pfad an.

[devnull]

und wie kann ich aus dem timage das bild wieder löschen (also kein bild mehr),
so dass es trotzdem auf mausklicks reagiert ?????

damit kann man zwar das bild löschen, das timage reagiert auch noch auf mausklicks

Code:

  image_rot := nil;

aber wie kann ich dann später wieder bilder einfügen ?
erst

Delphi-Quellcode:

  image_rot.Create (Fanwendung);

und dann ?

devnull

[cyberkiller0072001]

wenn das picture einfarbig ist, kannst du mit der eigenschaft Timage.transparent arbeiten

[devnull]

nein, is nich einfarbig !

[cyberkiller0072001]

dann mit

Delphi-Quellcode:

image.picture:=nil;

und

Delphi-Quellcode:

image.picture.loadfromfile('dateiname.bmp');

[devnull]

Zitat:

Zitat von cyberkiller0072001

dann mit

Delphi-Quellcode:

image.picture:=nil;

und

Delphi-Quellcode:

image.picture.loadfromfile('dateiname.bmp');

muss ich vor

Delphi-Quellcode:

image.picture.loadfromfile('dateiname.bmp');

nicht

Delphi-Quellcode:

image.create(Fanwendung);

ausgeführt werden ? (dann gehts aber trotzdem nicht)

[cyberkiller0072001]

erkläre mir mal, was du überhaupt machen willst?
Eigendlich musst du das image nicht noch einmal creiren, weil du es ja nicht mit destroy oder free entfernt hast.

[devnull]

Ich hab ein Bild als Hintergrund. Auf dem Bild sind Buttons gemalt.
Werden diese deaktiviert, soll ein Kreuz drüber gezeichnet werden; wenn sie wieder aktiviert werden, sollen die Kreuze wieder verschwinden. usw.

PS:
Ich habs jetzt momentan so gelöst, dass ich einfach die Bilder (einmal ohne Kreuz, einmal mit) gezeichnet hab (in MSPaint) und dann einfach mit LoadFromFile ausrufe...

[cyberkiller0072001]

Wenn du weißt, wo die Images hinsollen und wieviele du brauchst, dann arbeite doch mit den Komponenten anstatt die mit create zu erzeugen!

[scp]

Delphi-Quellcode:

image_rot.create(Fanwendung);

würde nicht funktionieren, wenn es nicht schon vorher erstellt worden wäre (ein Teufelskreis :-) ).

Wenn überhaupt, dann

Delphi-Quellcode:

image_rot := TImage.Create(Fanwendung);

[cyberkiller0072001]

das meine ich ja! Warum greifst du nicht direkt auf image_rot zu anstatt den umweg über Nimage zu machen?
Das wäre doch einfacher.

[scp]

Achso...

Delphi-Quellcode:

image_rot.picture:=nil;

...kannst du in dem Fall ruhig anwenden, man muss danach nichts Create'n, da TImage intern das Picture nie wirklich auf nil setzt, sondern nur die Bitmap/Grafik leert/löscht.

[devnull]

also

Code:

   // Grafik gelöscht
   image_rot.picture := nil;
   // Laden einer neuen Grafik
   image_rot.picture.loadfromfile ('Bilder\rot.bmp');

devnull