home *** CD-ROM | disk | FTP | other *** search
- unit BPListForm;
- {
- Letzte ─nderungen sorgen dafⁿr, da▀ bei nicht vorhandenen Bildern das
- Icon der Applikation angezeigt wird.
- }
- interface
-
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ExtCtrls;
-
- type
- TForm1 = class(TForm)
- ListBox1: TListBox;
- AddButton: TButton;
- DeleteButton: TButton;
- StartButton: TButton;
- OpenDialog1: TOpenDialog;
- Timer1: TTimer;
- procedure AddButtonClick(Sender: TObject);
- procedure DeleteButtonClick(Sender: TObject);
- procedure StartButtonClick(Sender: TObject);
- procedure Timer1Timer(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure FormDestroy(Sender: TObject);
- private
- Counter : Integer;
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- uses BPShowForm;
-
- {$R *.DFM}
-
- procedure TForm1.AddButtonClick(Sender: TObject);
- begin
- if OpenDialog1.Execute then ListBox1.Items.Add(OpenDialog1.FileName);
- end;
-
- procedure TForm1.DeleteButtonClick(Sender: TObject);
- begin
- With ListBox1 do
- begin
- if ItemIndex > -1 then Items.Delete(ItemIndex);
- end;
- end;
-
- procedure TForm1.StartButtonClick(Sender: TObject);
- begin
- if ListBox1.Items.Count = 0 then
- begin
- ShowMessage('Fⁿgen Sie ⁿber den Knopf "Hinzufⁿgen" Bilddateien hinzu');
- Exit;
- end;
-
- Form2.WindowState := wsMaximized;
- Timer1.Enabled := True;
- Timer1Timer(self);
- ShowCursor(False); //Win32-API-Funktion, die den Mouse-Cursor verbirgt
- Form2.Showmodal;
- end;
-
- procedure TForm1.Timer1Timer(Sender: TObject);
- begin
- with Form1.Listbox1 do
- begin
- // Letzte ─nderungen sorgen dafⁿr, da▀ bei nicht vorhandenen Bildern das
- // Icon der Applikation angezeigt wird.
- if (Counter < 0) or (Counter > Items.Count - 1) then Counter := 0;
- if FileExists(Items[Counter]) then Form2.Image1.Picture.LoadFromFile(Items[Counter])
- else Form2.Image1.Canvas.Draw(0, 0, Application.Icon);
- inc(Counter);
- end;
- end;
-
- procedure TForm1.FormCreate(Sender: TObject);
- var s : string;
- begin
- s := ExtractFilePath(Application.ExeName);
- if FileExists(s + 'DATEIEN.LST') then
- ListBox1.Items.LoadFromFile(s + 'DATEIEN.LST');
- end;
-
- procedure TForm1.FormDestroy(Sender: TObject);
- var s : string;
- begin
- s := ExtractFilePath(Application.ExeName);
- ListBox1.Items.SaveToFile(s + 'DATEIEN.LST');
- end;
-
- end.
-