IMAGE- Probleme (Wert setzen mit x:= 2 imagex.blah := blub )

Camputa · Beiträge: 20

Moin erstmal

ich habe folgendes Problem:

ich will eine procedure machen die bei einem imageX (x soll per parameter gesetzt werden) ein jpg bild zuweißen
also sowas wie
image1...

Das erste Problem ist also: welcher Parameter muss wie gestzt werden um das JPG zu laden
Das zweite wie mach ich aus einem festen image1 ein imagex beidem ich für x einen wert von 1-2000 (oder so) einsetzen kann

(ich hab ganz viele grafik felder da wäre eine procedure pro DINGs zu DUNGsig ähh eine pro image zu umständlich

Schrecklich mein ganzes Delphi bzw Pascal wissen ist so weit heruntergekommen...
ich behalte scheinbar momentan nur die lulli dinge die man inner schule braucht im hirn

)

Danke für die Antwort

Campi

_________________
Rechtschreibfehler sind beabsichtig, und dienen der Unterhaltung.

thebe · Beiträge: 128 WinXP Home D6 Enterprise

wie wärs mit nem Array of TImage ? Musst natürlich nicht vergessen alle Images am Anfang zu initialisieren und alle Images am Ende wieder freizugeben

Camputa · Beiträge: 20

danke schonmal für deine antwort wäre freundlich wenn du das nachher nochmal kurz beschrieben könntest wie du deinen vorschlang realisieren würdest....

hab erstmal noch bis nachher schule werde dann mal nen bissle weiter drüber nachdenken!

Gruß
Camputa

_________________
Rechtschreibfehler sind beabsichtig, und dienen der Unterhaltung.

Camputa · Beiträge: 20

so mag daran liegen das ich mal wieder viel zu müde war/bin
aber warum gibts hier beim starten (nicht compilieren) des programmes eine Fehler Meldung?

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

...
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, jpeg, ImgList;

type
  TForm1 = class(TForm)
..
    ImageList1: TImageList;
    ImageList2: TImageList;
...
var
  bild : ARRAY[1..48] OF ARRAY[1..30] OF TImage;
  Form1: TForm1;
  x : integer;
implementation
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  bild[1,1].Left := 8;
  bild[1,1].Top := 8;
  bild[1,1].height := 16;
  bild[1,1].Width := 16;
  ImageList1.GetBitmap(0, bild[1,1].Picture.Bitmap);
end;

ich weiß erlichgesagt net mehr weiter...
kann ich eigentlich auch ne zuweisung bild[1,1].*** := imagelist1*** oder so machen??

danke schonmal
campi

_________________
Rechtschreibfehler sind beabsichtig, und dienen der Unterhaltung.

Simon Joker · Beiträge: 236 Erhaltene Danke: 1

Weil du auf die Bilder zugreifst, sie aber noch nicht erzeugt hast!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.FormCreate(Sender: TObject); 
//Variablen für die Schleifen
var i, j : integer;
begin
  //Erzeugen des Bilder-Array
  //Die erzeugten Bilder sind leer!!!
  for i := 1 to 48 do
    for j := 1 to 30 do
      bild[i,j] := TImage.Create(self);
  //
  bild[1,1].Left := 8; 
  bild[1,1].Top := 8; 
  bild[1,1].height := 16; 
  bild[1,1].Width := 16; 
  ImageList1.GetBitmap(0, bild[1,1].Picture.Bitmap); 
end;

Wenn du die Bilder nicht direkt darstellen willst, würde ich aber kein TImage nehmen sondern TPicture oder den entsprechen Bildtyp (TBitmap, TJpeg ect.)

Camputa · Beiträge: 20

gut,

Danke ich werde deinen TIpp nachher gleich mal ausprobieren.....

Gruß
Campi

_________________
Rechtschreibfehler sind beabsichtig, und dienen der Unterhaltung.

Camputa · Beiträge: 20

So ich hab mir das nun alles mal angeguckt...
der fehler ist behoben.... (das create vergessen ist aber auch net schlecht

)

ähm nun hab ich das alles so wunderbar gemacht

markieren

Quelltext

1:
2:
3:
4:
5:
6:

  bild[1,1] := TImage.Create(self);
  bild[1,1].Left := 8;
  bild[1,1].Top := 8;
  bild[1,1].height := 16;
  bild[1,1].Width := 16;
  ImageList1.GetBitmap(0, bild[1,1].Picture.Bitmap);

das problem ist eben nur das ich nischt von meinem tollen neuen bmp sehe...
habe ich eine option vergessen??

Gruß
Campi

_________________
Rechtschreibfehler sind beabsichtig, und dienen der Unterhaltung.

Silentium · Hält's aus hier Beiträge: 6 WIN 2000 D7 Enterprise

Muss das Bild vielleicht noch einer Image Komponente zugewiesen werden? :roll:

*der Nub versucht hilfreich zu sein*

_________________
Jeder macht was er will, keiner macht was er soll aber alle machen mit.

Camputa · Beiträge: 20

sorry hatte vergessen die lösung zu schreiben:
man musste ihm noch dem form1 zuweisen:

bild[x,y].Parent := Form1;

Campi

_________________
Rechtschreibfehler sind beabsichtig, und dienen der Unterhaltung.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme