Bildlaufleiste

me · Hält's aus hier Beiträge: 3 Win 2000 D5 Prof

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 · Verfasst: Fr 16.01.04 16:20

Willkommen in DF.

Nimm TImageList.

Wandle Bilder in Bitmap um:

markieren

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 · Hält's aus hier Beiträge: 3 Win 2000 D5 Prof

vielen dank für die antwort, aber wie öffne ich denn die jpgs aus der tstringlist??
me

_________________
geht nicht, gibts nicht

FAlter · Verfasst: Fr 16.01.04 17:30

markieren

Quelltext

1:
2:

var
  Bilder: TStringList;

Stringlist erstellen:

markieren

Quelltext

1:	Bilder := TStringList.Create;

Dateinamen hinzufügen:

markieren

Quelltext

1:	Bilder.Add('C:\MeinBild.JPG');

Herausfinden, wir viele Dateinamen in Stringlist, und alle Elemente durchzählen:

markieren

Quelltext

1:	for x := 0 to Bilder.Count - 1 do [...]

Auf X-ten Dateinamen zugreifen und in Image laden:

markieren

Quelltext

1:	Image.Picture.LoadFromFile(Bilder.Strings[X-1]);

Beispiel: 1. String -> 0

Sonstawas machen:
In Delphi-OH nach TStringList suchen

me · Hält's aus hier Beiträge: 3 Win 2000 D5 Prof

ich danke für die Antwort

_________________
geht nicht, gibts nicht

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme