home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / d2 / delphi2.exe / Code / BPListForm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-29  |  2.3 KB  |  98 lines

  1. unit BPListForm;
  2. {
  3.     Letzte ─nderungen sorgen dafⁿr, da▀ bei nicht vorhandenen Bildern das
  4.     Icon der Applikation angezeigt wird.
  5. }
  6. interface
  7.  
  8. uses
  9.     Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  10.   StdCtrls, ExtCtrls;
  11.  
  12. type
  13.   TForm1 = class(TForm)
  14.     ListBox1: TListBox;
  15.     AddButton: TButton;
  16.     DeleteButton: TButton;
  17.         StartButton: TButton;
  18.         OpenDialog1: TOpenDialog;
  19.     Timer1: TTimer;
  20.         procedure AddButtonClick(Sender: TObject);
  21.         procedure DeleteButtonClick(Sender: TObject);
  22.         procedure StartButtonClick(Sender: TObject);
  23.     procedure Timer1Timer(Sender: TObject);
  24.     procedure FormCreate(Sender: TObject);
  25.         procedure FormDestroy(Sender: TObject);
  26.     private
  27.         Counter : Integer;
  28.     public
  29.         { Public declarations }
  30.     end;
  31.  
  32. var
  33.     Form1: TForm1;
  34.  
  35. implementation
  36.  
  37. uses BPShowForm;
  38.  
  39. {$R *.DFM}
  40.  
  41. procedure TForm1.AddButtonClick(Sender: TObject);
  42. begin
  43.     if OpenDialog1.Execute then ListBox1.Items.Add(OpenDialog1.FileName);
  44. end;
  45.  
  46. procedure TForm1.DeleteButtonClick(Sender: TObject);
  47. begin
  48.     With ListBox1 do
  49.     begin
  50.         if ItemIndex > -1 then Items.Delete(ItemIndex);
  51.     end;
  52. end;
  53.  
  54. procedure TForm1.StartButtonClick(Sender: TObject);
  55. begin
  56.     if ListBox1.Items.Count = 0 then
  57.     begin
  58.         ShowMessage('Fⁿgen Sie ⁿber den Knopf "Hinzufⁿgen" Bilddateien hinzu');
  59.         Exit;
  60.     end;
  61.  
  62.     Form2.WindowState := wsMaximized;
  63.     Timer1.Enabled := True;
  64.     Timer1Timer(self);
  65.     ShowCursor(False); //Win32-API-Funktion, die den Mouse-Cursor verbirgt
  66.     Form2.Showmodal;
  67. end;
  68.  
  69. procedure TForm1.Timer1Timer(Sender: TObject);
  70. begin
  71.     with Form1.Listbox1 do
  72.     begin
  73.         //    Letzte ─nderungen sorgen dafⁿr, da▀ bei nicht vorhandenen Bildern das
  74.         //    Icon der Applikation angezeigt wird.
  75.         if (Counter < 0) or (Counter > Items.Count - 1) then Counter := 0;
  76.         if FileExists(Items[Counter]) then Form2.Image1.Picture.LoadFromFile(Items[Counter])
  77.         else Form2.Image1.Canvas.Draw(0, 0, Application.Icon);
  78.         inc(Counter);
  79.     end;
  80. end;
  81.  
  82. procedure TForm1.FormCreate(Sender: TObject);
  83. var s : string;
  84. begin
  85.     s := ExtractFilePath(Application.ExeName);
  86.     if FileExists(s + 'DATEIEN.LST') then
  87.             ListBox1.Items.LoadFromFile(s + 'DATEIEN.LST');
  88. end;
  89.  
  90. procedure TForm1.FormDestroy(Sender: TObject);
  91. var s : string;
  92. begin
  93.     s := ExtractFilePath(Application.ExeName);
  94.     ListBox1.Items.SaveToFile(s + 'DATEIEN.LST');
  95. end;
  96.  
  97. end.
  98.