AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Bitmap von ImageList laden ?

Ein Thema von thomas2009 · begonnen am 27. Jan 2009 · letzter Beitrag vom 27. Dez 2009
 
Benutzerbild von Jens Hartmann
Jens Hartmann

Registriert seit: 11. Jan 2009
Ort: Wilnsdorf
1.439 Beiträge
 
Delphi XE2 Professional
 
#13

Re: Bitmap von ImageList laden ?

  Alt 23. Dez 2009, 17:06
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
Das Leben selber ist zu kurz, also nutze jeden Tag wie er kommt.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:59 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz