Forum: Multimedia
Delphi
by Ag3nt,
6. Jun 2003
Hier für Tamagotchi Fans ein JavaScript Tamagotchi sieht nur doof aus :)
http://www.engsoc.carleton.ca/~deridder/tamagoti/newtama.html
Forum: Multimedia
Delphi
by Ag3nt,
6. Jun 2003
ich erlich gesagt auch noch nicht :)
Danke nochmals :firejump:
Forum: Multimedia
Delphi
by Ag3nt,
6. Jun 2003
Wichtig dabei ist das dann das Image auf Visiab... auf False ist sonst sieht man es doppelt :)
Forum: Multimedia
Delphi
by Ag3nt,
6. Jun 2003
So Problem auch gelöst!
Delphi ist ja EaSY :)
gefällt mir :)
Also hier der Code fürs rukelfreie :)
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Forum: Multimedia
Delphi
by Ag3nt,
6. Jun 2003
Bist du ein bischen Durcheinander?
Ich glaube das war der Falsche Quelltext den du hier oben gepostet hast *g* ist ja auch schon früh :) :coder:
Forum: Multimedia
Delphi
by Ag3nt,
6. Jun 2003
Schau mal auf den letzten Post von mir MAT please :)
Forum: Multimedia
Delphi
by Ag3nt,
6. Jun 2003
Also hier hab ich mal einen Code der einen Käfer FLACKERFREI über einen Hintergrund laufen läßt. Kannst du mir bei dem Code bischen Helfen?
procedure TForm1.Kaeferanimation;
var
Temp: TBitmap;
KaeferArray, NegativArray : array of TBitmap;
xmirror, ymirror : shortint;
x, y, idx : integer;
begin
xmirror := 1;
Forum: Multimedia
Delphi
by Ag3nt,
6. Jun 2003
meinste wirklich das klappt?
Forum: Multimedia
Delphi
by Ag3nt,
6. Jun 2003
funzt leider nicht ruckelt noch immer :(
Forum: Multimedia
Delphi
by Ag3nt,
6. Jun 2003
Hehe habs auch kürzer geschrieben mitlerweile wäre ja unsinnig viel Quellcode :) Thanks nochmals :) :hello:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Picture.LoadFromFile('pics/1_'+IntToStr(temp)+'.bmp');
inc(temp);
if temp = 4 then temp := 1;
Forum: Multimedia
Delphi
by Ag3nt,
6. Jun 2003
So ich habs doch noch hingekriegt :)
Hier der Code nochmals danke für eure Hilfe :)
var
Form1: TForm1;
Image1: TImage;
temp: Integer;
Forum: Multimedia
Delphi
by Ag3nt,
6. Jun 2003
Leider lößt auch diese Schleife nicht das Problem :( Theoretisch kannste da auch ne While und danach ne Repeat und until 0 = 3 usw schreiben aber bringt nichts :) :firejump:
Danke nochmals Mat und City Light für die Einträge.
Forum: Multimedia
Delphi
by Ag3nt,
6. Jun 2003
Jo stimmt aber ich wollte kein GIF nutzen :)
Also die Idee kam mir auch schon aber das Hauptproblem wie du sehen kannst ist diese "doofe" Schleife aus der man einfach nicht rauskommt. Bin grad so am Testen hab folgendes gewerkelt bislang:
procedure TForm1.FormCreate(Sender: TObject);
var temp: integer;
begin