home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / repease / dmo_dlp4.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-07-19  |  1.1 KB  |  54 lines
  1. unit Dmo_dlp4;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, ExtCtrls, sysutils, dialogs, dmo_dlp1;
  7.  
  8. type
  9.   TFieldSel = class(TForm)
  10.     OKBtn: TBitBtn;
  11.     CancelBtn: TBitBtn;
  12.     ListBox1: TListBox;
  13.     procedure FieldSelShow(Sender: TObject);
  14.     procedure ListBox1DblClick(Sender: TObject);
  15.     procedure OkClick(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  21.  
  22. var
  23.   FieldSel: TFieldSel;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. procedure TFieldSel.FieldSelShow(Sender: TObject);
  30. var
  31.    i: Integer;
  32. begin
  33.    ListBox1.items.clear;    { reset the contents}
  34.  
  35.    for i:=0 to DataFile[CurFile].TotalFields -1 do
  36.    begin
  37.      ListBox1.items.Add(DataField[CurFile,i].ShortName);
  38.    end;
  39. end;
  40.  
  41. procedure TFieldSel.ListBox1DblClick(Sender: TObject);
  42. begin
  43.    CurField:=ListBox1.ItemIndex;  {index of the selected item }
  44.    ModalResult:=mrOk;
  45.    hide;
  46. end;
  47.  
  48. procedure TFieldSel.OkClick(Sender: TObject);
  49. begin
  50.    ListBox1DblClick(sender);
  51. end;
  52.  
  53. end.
  54.