Entwickler-Ecke :: Thema anzeigen - Bilder in Image ändern

MSC - So 17.09.06 00:01
Titel: Bilder in Image ändern

Hi! Bin neu hier.

Ich habe ein Problem:
Wenn ich nen Butten1 klicke soll in einem Image ein bmp 1 erscheinen.
Und wenn ich Button2 klicke soll bmp 2 erscheinen ect.

Ich möchte es umgehen, einzelne Image für jedes Bild, weil ich sonst vorraussichtlich tausende Images brauche, und die dann einzeln Visible True/False machen muss.

Bzw. möchte ich über einen Timer eine art Animation erreichen, der dann verschidene Bilder nacheinander in einem Image Element anzeigt.
Oder ist da Image nicht das richtige, und ich sollte etwas anderes nehmen, was auch BMP anzeigen kann und mit transparenter Farbe arbeiten kann?

Könnte mir da jemand helfen? :)

Masterhawk - So 17.09.06 00:24

:welcome:

also, du könnest des so machen...

Delphi-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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    Bmp1:TBitmap; //Bild1
    Bmp2:TBitmap; //Bild2
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Bmp1:TBitmap.create;              //Bild1 erstellen
  Bmp1.LoadFromFile('deinBild.bmp');// und laden

  Bmp2:TBitmap.create;               //Bild2 erstellen
  Bmp2.LoadFromFile('deinBild2.bmp');// und laden
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 image1.Picture.Assign(Bmp1); //Bild1 ins Image1 laden
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  image1.Picture.Assign(Bmp2); //Bild1 ins Image1 laden
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Bmp1.Destroy; //Bild1 freigeben
  Bmp2.Destroy; //Bild2 freigeben
end;

end.

Ich hoffe das hilft dir erstmal weiter....sry, aber Code ist net getestet....

MfG Masterhawk

Blackheart666 - So 17.09.06 00:24

Hallo !
Hier mal ein kleines Bsp. vieleicht hilft Dir das weiter.

Delphi-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:

public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i:Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=0; {Zähler zurücksetzen}
  Timer1.Enabled:= not Timer1.Enabled; {Timer an bzw. ausstellen}
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(i); {Hochzählen}
  if i > 3 then Timer1.Enabled:=False; {Wenn Bild vier erreicht Timer austellen}
  Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+ 'Bild' + IntToStr(i) +'.bmp'); {Bilder nach einander laden (Die Bilder müssen in dem Ordner deiner Exe liegen und Bild1, Bild2 usw. heißen)}
end;

end.

MSC - So 17.09.06 02:27
Titel: jo, klappt

Vielen Dank!

So hab ich mir das vorgestellt.
Zumal auch die Möglichkeit offen ist, die Bilder zu ändern, und per Variablen zu laden.
Auch ein wechseln der Bilder im laufenden Programm ist möglich (andere Bilder laden).

Allerdings ist es möglich über try, ecept abzufragen, ob die dateien vorhanden sind?
Weil wenn die nicht da sind, lässt sich das Prog nicht beenden. (nur per Strg + F2)

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 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!