home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / delphi1 / lmdtoolb.exe / demos / bitmap / unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1995-09-08  |  742 b   |  39 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, FileCtrl;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     DirectoryListBox1: TDirectoryListBox;
  12.     FileListBox1: TFileListBox;
  13.     DriveComboBox1: TDriveComboBox;
  14.     procedure FileListBox1Change(Sender: TObject);
  15.   private
  16.     { Private-Deklarationen }
  17.   public
  18.     { Public-Deklarationen }
  19.   end;
  20.  
  21. var
  22.   Form1: TForm1;
  23.  
  24. implementation
  25.  
  26. uses main;
  27. {$R *.DFM}
  28.  
  29. procedure TForm1.FileListBox1Change(Sender: TObject);
  30. begin
  31.  
  32.   with FileListBox1, Test.LMDTiler1.Bitmap do
  33.     if itemindex<>-1 then loadfromfile(items[itemindex]);
  34.   {don't try to load, if no Bitmap is selected...}
  35.  
  36. end;
  37.  
  38. end.
  39.