Entwickler-Ecke
Multimedia / Grafik - Bildlaufleiste
me - Fr 16.01.04 15:50
Titel: Bildlaufleiste
Hallo,
ich habe das Problem, dass ich mit 300 Bilder eine Bildlaufleiste erstellen möchte, aber nicht jedes Bild über Timage einzeln einfügen möchte. Mit TimageList kann ich auch nichts anfangen, weil die Bilder jpgs sind. Gibt es einen Befehl mit dem ich die Bilder öffnen kann??
Vielen Dank für Antworten im voraus
me
FAlter - Fr 16.01.04 16:20
Willkommen in DF.
Nimm TImageList.
Wandle Bilder in Bitmap um:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| var
Bitmap: TBitmap;
...
Bitmap := TBitmap.Create;
try
Bitmap.Assign(JPEGImage);
... //weiterer Code
finally
Bitmap.Free;
end; |
Oder du nummerierst die JPG-Bilder und greifst dann darauf zu (Dateinamen in TStringlist schreiben) oder (NICHT EMPFOHLEN) ein Array mit den Bildern.
me - Fr 16.01.04 16:31
vielen dank für die antwort, aber wie öffne ich denn die jpgs aus der tstringlist??
me
FAlter - Fr 16.01.04 17:30
Quelltext
1:
2:
| var
Bilder: TStringList; |
Stringlist erstellen:
Quelltext
1:
| Bilder := TStringList.Create; |
Dateinamen hinzufügen:
Quelltext
1:
| Bilder.Add('C:\MeinBild.JPG'); |
Herausfinden, wir viele Dateinamen in Stringlist, und alle Elemente durchzählen:
Quelltext
1:
| for x := 0 to Bilder.Count - 1 do [...] |
Auf X-ten Dateinamen zugreifen und in Image laden:
Quelltext
1:
| Image.Picture.LoadFromFile(Bilder.Strings[X-1]); |
Beispiel: 1. String -> 0
Sonstawas machen:
In Delphi-OH nach TStringList suchen
me - Fr 23.01.04 15:31
ich danke für die Antwort :)
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!