home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / rzcomps.exe / DEMO / LISTFRM.PA_ / LISTFRM.PA
Text File  |  1996-10-18  |  1KB  |  56 lines
  1. unit Listfrm;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, RzCmboBx, RzChkLst, RzLstBox, RzLookup,
  8.   RzBtnEdt, RzLabel, ExtCtrls, RzPanel;
  9.  
  10. type
  11.   TFrmListComps = class(TForm)
  12.     BtnOK: TButton;
  13.     RzLookupDialog1: TRzLookupDialog;
  14.     PnlListBox: TRzPanel;
  15.     RzListBox1: TRzListBox;
  16.     PnlCombo1: TRzPanel;
  17.     PnlCombo2: TRzPanel;
  18.     PnlTabList: TRzPanel;
  19.     PnlCheckList: TRzPanel;
  20.     PnlButtonEdit: TRzPanel;
  21.     RzCheckList1: TRzCheckList;
  22.     RzButtonEdit1: TRzButtonEdit;
  23.     RzTabbedListBox1: TRzTabbedListBox;
  24.     RzComboBox2: TRzComboBox;
  25.     RzComboBox1: TRzComboBox;
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure RzButtonEdit1ButtonClick(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. var
  35.   FrmListComps: TFrmListComps;
  36.  
  37. implementation
  38.  
  39. {$R *.DFM}
  40.  
  41. procedure TFrmListComps.FormCreate(Sender: TObject);
  42. begin
  43.   RzListBox1.Items := RzCheckList1.Items;
  44.   RzComboBox1.Items := RzCheckList1.Items;
  45.   RzComboBox2.Items := RzCheckList1.Items;
  46.   RzLookupDialog1.List := RzCheckList1.Items;
  47. end;
  48.  
  49. procedure TFrmListComps.RzButtonEdit1ButtonClick(Sender: TObject);
  50. begin
  51.   if RzLookupDialog1.Execute then
  52.     RzButtonEdit1.Text := RzLookupDialog1.List[ RzLookupDialog1.SelectedIndex ];
  53. end;
  54.  
  55. end.
  56.