Hallo Experten/innen,
ich habe ein kleines Programm erstellt, mit dem man Bilder in einer zufälligen Reihenfolge anzeigen lassen kann.
HIer ist der Quellcode, der leider nicht funktioniert:
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Slide.h"
//---------------------------------------------------------------------------
#pragma resource "\*.dfm"
TForm1 \*Form1;
String Bild;
const int Max = 100;
String Bilder[Max];
int Dauer,BildNummer,Anzahl;
//---------------------------------------------------------------------------
\_\_fastcall TForm1::TForm1(TComponent\* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void \_\_fastcall LoadImg(AnsiString FILENAME)
{
Form1-\>Image1->:stuck\_out\_tongue\_winking\_eye:icture-\>LoadFromFile(Bild);
}
//---------------------------------------------------------------------------
void \_\_fastcall TForm1::open\_mouth:effnenClick(TObject \*Sender)
{
try
{
OpenDialog1-\>Execute();
OpenDialog1-\>Title = "Bilder öffnen";
Anzahl=OpenDialog1-\>ComponentCount;
for (int i=0; i FileName[i];
}
}
catch(...)
{
Application-\>MessageBox("Dateien konnten nicht geladen werden","Fehler beim Öffnen der Datei",16);
}
}
//---------------------------------------------------------------------------
void \_\_fastcall TForm1::FormCreate(TObject \*Sender)
{
Oeffnen-\>Top = ClientHeight-35;
Oeffnen-\>Left = ClientWidth/2-40;
Start-\>Top = ClientHeight-65;
Start-\>Left = ClientWidth/2-40;
Randomize();
}
//---------------------------------------------------------------------------
void \_\_fastcall TForm1::FormResize(TObject \*Sender)
{
Oeffnen-\>Top = ClientHeight-35;
Oeffnen-\>Left = ClientWidth/2-40;
Start-\>Top = ClientHeight-65;
Start-\>Left = ClientWidth/2-40;
}
//---------------------------------------------------------------------------
void \_\_fastcall TForm1::StartClick(TObject \*Sender)
{
Dauer = StrToInt(InputBox("Dauer der Anzeige:", "Bitte die Dauer der Anzeige der Bilder eingeben!", "3"));
Timer1-\>Interval=Dauer\*1000;
Timer1-\>Enabled=true;
}
//---------------------------------------------------------------------------
void \_\_fastcall TForm1::Timer1Timer(TObject \*Sender)
{
try
{
BildNummer=random(Max);
Bild=Bilder[BildNummer];
LoadImg(Bild);
}
catch(...)
{
Application-\>MessageBox("Dateien konnten nicht angezeigt werden","Fehler beim Anzeigen der Datei",16);
}
}
//---------------------------------------------------------------------------
Nun möchte ich wissen, was nicht funktioniert.
Danke im Voraus
Philip
