Bitmap von ImageList laden ?

[Bernhard Geyer]

Zitat von Sherlock:

Und von einem "Hexadezimal"Overhead höre ich im Zusammenhang mit ImageListen zum ersten mal

Dürfte eigentlich nur in den DFM's vorliegen wenn diese im Textformat gespeichert werden.

[Namenloser]

Zitat von Bernhard Geyer:

Dürfte eigentlich nur in den DFM's vorliegen wenn diese im Textformat gespeichert werden.

Klar, aber zumindest bei neueren Delphis ist das standardmäßig ja der Fall.

[Jens Hartmann]

Hallo zusammen,

und besten dank schon mal für die Info´s. Ich habe mein Problem jetzt mit einer Resourcendatei und einer Graphics32 Komponentensammlung über die Komponente Image32 gelößt. Auf diese Komponente bin durch die Suchmaschine gekommen, da ich die Bilder gerne überblenden würde.

Ich habe mir verschiedene Beiträge angesehen, jedoch keinen der mir so richtig helfen konnte.

Ich zeig Euch hier mal meine aktuelle Lösung und hoffe, das ihr mir nochmal weiterhelfen könt.

Delphi-Quellcode:

procedure TPSStarter.FormCreate(Sender: TObject);
var
  Live : TBitmap32;
begin
  PicTimer.Interval := Starter.Interval div 11;
  Live := TBitmap32.Create;
  Live.LoadFromResourceName(HInstance, 'Erfolg');
  Image321.Bitmap := Live;
  Live.Free;
end;

procedure TPSStarter.PicTimerTimer(Sender: TObject);
var
  Live : TBitmap32;
  i : integer;
begin
try
  try
    Live := TBitmap32.Create;
    case Image321.Tag of
      0:  Live.LoadFromResourceName(HInstance, 'Einbruch');
      1:  Live.LoadFromResourceName(HInstance, 'Brand');
      2:  Live.LoadFromResourceName(HInstance, 'TK');
      3:  Live.LoadFromResourceName(HInstance, 'IT');
      4:  Live.LoadFromResourceName(HInstance, 'Kosten');
      5:  Live.LoadFromResourceName(HInstance, 'Lichtruf');
      6:  Live.LoadFromResourceName(HInstance, 'Video');
      7:  Live.LoadFromResourceName(HInstance, 'Zeit');
      8:  Live.LoadFromResourceName(HInstance, 'Zutritt');
      9:  Live.LoadFromResourceName(HInstance, 'Planung');
     10:  Live.LoadFromResourceName(HInstance,'Erfolg');
    end;
    Image321.Bitmap := Live;
  except
    Exit;
  end;
  finally
    Live.Free;
    Image321.Tag := Image321.Tag + 1;
  end;
end;

Danke schon mal

Gruß Jens

[Jens Hartmann]

Hallo zusammen,

hat keiner eine Idee.

Gruß Jens

[Klaus01]

Delphi-Quellcode:

try
  try
    Live := TBitmap32.Create;
    case Image321.Tag of
      0:  Live.LoadFromResourceName(HInstance, 'Einbruch');
      1:  Live.LoadFromResourceName(HInstance, 'Brand');
      2:  Live.LoadFromResourceName(HInstance, 'TK');
      3:  Live.LoadFromResourceName(HInstance, 'IT');
      4:  Live.LoadFromResourceName(HInstance, 'Kosten');
      5:  Live.LoadFromResourceName(HInstance, 'Lichtruf');
      6:  Live.LoadFromResourceName(HInstance, 'Video');
      7:  Live.LoadFromResourceName(HInstance, 'Zeit');
      8:  Live.LoadFromResourceName(HInstance, 'Zutritt');
      9:  Live.LoadFromResourceName(HInstance, 'Planung');
     10:  Live.LoadFromResourceName(HInstance,'Erfolg');
    end;
    //Image321.Bitmap := Live;  // Adresse zugewiesen
    Image321.Bitmap.assign(Live);  // versuche es mal mit Inhalt zuweisen
  except
    Exit;
  end;
  finally
    Live.Free;              // freigegeben
    Image321.Tag := Image321.Tag + 1;
  end;
end;

Grüße und schöne Festtage
Klaus

[Jens Hartmann]

Hallo Klaus,

ändert leider nichts an der Funktion. Die Bilder werden ja sauber und nacheinander geladenund auch zur Anzeige gebracht. Leider werden diese nicht sauber überblendet.

Soll heißen, das umschalten ist halt Ruckartig und sieht somit bescheiden aus.

Ich denke das die ganze Sache irgendwie mit

Delphi-Quellcode:

Image32.Bitmap.MasterAlpha

//und

Image32.Bitmap.DrawMode

funktionieren könnte. Bekomme das allerdings irgendwie nicht hin.

Viele grüße und schöne Festtage

Jens

[Garfield]

Vielleicht sollte man zwei Bilder übereinanderlegen und beim Überblenden das eine ein- und das andere ausblenden?

[Jens Hartmann]

Hallo Garfield,

da habe ich auch schon dran gedacht, allerdings bekomme ich momentan noch nicht mal das einblenden hin.

Ich könnte mir vorstellen, das ich den...

Delphi-Quellcode:

Image32.Bitmap.MasterAlpha  := 0;

//über eine Schleife z.B. auf 255 hochzählen muss.

    for I := 0 to 254 do
      begin
        Image321.Bitmap.MasterAlpha := Image321.Bitmap.MasterAlpha +1;
      end;

Aber leider funktioniert das nicht.

Gruß Jens

[Namenloser]

1. Das Image32 selbst ist opaque, lediglich das darin enthaltene Bild lässt sich gegen eine feste Hintergrundfarbe blenden. Hier wirst du wohl direkt auf das Bitmap zeichnen müssen (TBitmap32.Draw()...).
2. Deine Schleife läuft so schnell durch, dass du nichts davon mitbekommen wirst - GR32 arbeitet recht schnell. Bau hier mal eine Delay-Funktion ein.
3. Du gibst deiner Application nirgends die Chance Messages abzuarbeiten. Application.ProcessMessages ist dein Freund.

[Garfield]

http://sourceforge.net/project/scree...985&ssid=28538

Vielleicht ist das was. Beispiele sind ja dabei.