home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue56 / System / RasDemoForm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-03-04  |  3.6 KB  |  134 lines
  1. unit RasDemoForm;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ComCtrls, StdCtrls, RASCountryList, RASAddressBook, RASBase, RASDevices,
  8.   RASPhoneBook, RASConnection;
  9.  
  10. type
  11.   TMainForm = class(TForm)
  12.     PhoneBookManager: TRASPhoneBookManager;
  13.     PageControl1: TPageControl;
  14.     TabSheet1: TTabSheet;
  15.     DialCodes: TListView;
  16.     Label1: TLabel;
  17.     CountryList: TRASCountryList;
  18.     TabSheet2: TTabSheet;
  19.     PhoneBook: TListView;
  20.     Label2: TLabel;
  21.     TabSheet3: TTabSheet;
  22.     Label3: TLabel;
  23.     DeviceList: TListView;
  24.     DeviceManager: TRASDeviceManager;
  25.     ConnectionManager: TRASConnectionManager;
  26.     TabSheet4: TTabSheet;
  27.     Label4: TLabel;
  28.     ConnectList: TListView;
  29.     procedure FormShow(Sender: TObject);
  30.     procedure PhoneBookDblClick(Sender: TObject);
  31.     procedure RefreshPhoneBook;
  32.     procedure RefreshConnections;
  33.     procedure ConnectionManagerStatusChange(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40. var
  41.   MainForm: TMainForm;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46.  
  47. uses RASEditPhoneBookForm;
  48.  
  49. procedure TMainForm.FormShow(Sender: TObject);
  50. var
  51.     Idx: Integer;
  52.     ListItem: TListItem;
  53. begin
  54.     with CountryList, DialCodes do
  55.         for Idx := 0 to Countries.Count - 1 do begin
  56.             CountryName := Countries [Idx];
  57.             ListItem := Items.Add;
  58.             ListItem.Caption := CountryName;
  59.             ListItem.SubItems.Add (IntToStr (CountryID));
  60.             ListItem.SubItems.Add (IntToStr (CountryDialCode));
  61.         end;
  62.  
  63.     with DeviceList, DeviceManager do
  64.         for Idx := 0 to DeviceNames.Count - 1 do begin
  65.             ListItem := Items.Add;
  66.             ListItem.Caption := DeviceNames [Idx];
  67.             ListItem.SubItems.Add (DeviceTypes [Idx]);
  68.         end;
  69.  
  70.     RefreshPhoneBook;
  71.     RefreshConnections;
  72. end;
  73.  
  74. procedure TMainForm.RefreshPhoneBook;
  75. var
  76.     Idx: Integer;
  77.     ListItem: TListItem;
  78. begin
  79.     PhoneBook.Items.Clear;
  80.     with PhoneBookManager, PhoneBook do
  81.         for Idx := 0 to Entries.Count - 1 do begin
  82.             ItemIndex := Idx;
  83.             ListItem := Items.Add;
  84.             ListItem.Caption := Entries [Idx];
  85.             ListItem.SubItems.Add (UserName);
  86.             ListItem.SubItems.Add (PhoneNumber);
  87.             ListItem.SubItems.Add (Password);
  88.         end;
  89. end;
  90.  
  91. procedure TMainForm.RefreshConnections;
  92. var
  93.     Idx: Integer;
  94.     ListItem: TListItem;
  95. begin
  96.     ConnectList.Items.Clear;
  97.     with ConnectionManager, ConnectList do
  98.         for Idx := 0 to ConnectionNames.Count - 1 do begin
  99.             ListItem := Items.Add;
  100.             ListItem.Caption := ConnectionNames [Idx];
  101.             ListItem.SubItems.Add (Status [Idx]);
  102.         end;
  103. end;
  104.  
  105. procedure TMainForm.PhoneBookDblClick(Sender: TObject);
  106. var
  107.     Item: TListItem;
  108. begin
  109.     Item := PhoneBook.Selected;
  110.     if Item <> Nil then with TEditPhoneBook.Create (Nil) do try
  111.         Caption := Format (Caption, [Item.Caption]);
  112.         UserName.Text := Item.SubItems [0];
  113.         PhoneNumber.Text := Item.SubItems [1];
  114.         PassWord.Text := Item.SubItems [2];
  115.         ShowModal;
  116.     finally
  117.         // Don't forget to point at wanted entry!
  118.         PhoneBookManager.ItemIndex := PhoneBook.Items.IndexOf (Item);
  119.         PhoneBookManager.UserName := UserName.Text;
  120.         PhoneBookManager.PhoneNumber := PhoneNumber.Text;
  121.         PhoneBookManager.Password := Password.Text;
  122.         Free;
  123.     end;
  124.  
  125.     RefreshPhoneBook;
  126. end;
  127.  
  128. procedure TMainForm.ConnectionManagerStatusChange(Sender: TObject);
  129. begin
  130.     RefreshConnections;
  131. end;
  132.  
  133. end.
  134.