home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d3456 / ICQ.ZIP / ICQ / Example / UserInfo.pas < prev    next >
Pascal/Delphi Source File  |  2002-07-11  |  3KB  |  124 lines
  1. unit UserInfo;
  2. {(C) Alex Demchenko(alex@ritlabs.com)}
  3.  
  4. interface
  5.  
  6. uses
  7.   Windows, Messages, Classes, Graphics, Controls, Forms,
  8.   ComCtrls, StdCtrls, ICQWorks;
  9.  
  10. type
  11.   TUserInfoForm = class(TForm)
  12.     PageControl1: TPageControl;
  13.     TabSheet1: TTabSheet;
  14.     TabSheet2: TTabSheet;
  15.     TabSheet3: TTabSheet;
  16.     GroupBox1: TGroupBox;
  17.     Label1: TLabel;
  18.     Label2: TLabel;
  19.     Label3: TLabel;
  20.     Label4: TLabel;
  21.     GroupBox2: TGroupBox;
  22.     Label6: TLabel;
  23.     Label5: TLabel;
  24.     Label7: TLabel;
  25.     Label8: TLabel;
  26.     Label9: TLabel;
  27.     GroupBox3: TGroupBox;
  28.     Label10: TLabel;
  29.     Label11: TLabel;
  30.     Label12: TLabel;
  31.     Label13: TLabel;
  32.     Label14: TLabel;
  33.     Label15: TLabel;
  34.     Label16: TLabel;
  35.     UINLabel: TLabel;
  36.     FirstNameLabel: TLabel;
  37.     LastNameLabel: TLabel;
  38.     EmailLabel: TLabel;
  39.     StreetLabel: TLabel;
  40.     CityLabel: TLabel;
  41.     CountryLabel: TLabel;
  42.     ZipLabel: TLabel;
  43.     TimeZoneLabel: TLabel;
  44.     AgeLabel: TLabel;
  45.     GenderLabel: TLabel;
  46.     HomePageLabel: TLabel;
  47.     DayOfBirthLabel: TLabel;
  48.     Language1Label: TLabel;
  49.     Language2Label: TLabel;
  50.     Language3Label: TLabel;
  51.     NickNameLabel: TLabel;
  52.     Label17: TLabel;
  53.     Button1: TButton;
  54.     Label18: TLabel;
  55.     CellularLabel: TLabel;
  56.     GroupBox4: TGroupBox;
  57.     Label19: TLabel;
  58.     Label20: TLabel;
  59.     Label21: TLabel;
  60.     Label22: TLabel;
  61.     Label23: TLabel;
  62.     Label24: TLabel;
  63.     Label25: TLabel;
  64.     Label26: TLabel;
  65.     Label27: TLabel;
  66.     Label28: TLabel;
  67.     Label29: TLabel;
  68.     Label30: TLabel;
  69.     WCityLabel: TLabel;
  70.     WStateLabel: TLabel;
  71.     WPhoneLabel: TLabel;
  72.     WFaxLabel: TLabel;
  73.     WAddressLabel: TLabel;
  74.     WZipLabel: TLabel;
  75.     WCountryLabel: TLabel;
  76.     WCompanyLabel: TLabel;
  77.     WDepartmentLabel: TLabel;
  78.     WPositionLabel: TLabel;
  79.     WOccupationLabel: TLabel;
  80.     WHomePageLabel: TLabel;
  81.     GroupBox5: TGroupBox;
  82.     GroupBox6: TGroupBox;
  83.     AboutMemo: TMemo;
  84.     InterestsView: TListView;
  85.     TabSheet4: TTabSheet;
  86.     GroupBox7: TGroupBox;
  87.     GroupBox8: TGroupBox;
  88.     PastsListView: TListView;
  89.     AffiliationsListView: TListView;
  90.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  91.     procedure Button1Click(Sender: TObject);
  92.   private
  93.     { Private declarations }
  94.   public
  95.     FSource: String;
  96.   end;
  97.  
  98. var
  99.   UserInfoForm: TUserInfoForm;
  100.  
  101. implementation
  102. uses
  103.   Main;
  104.  
  105. {$R *.dfm}
  106.  
  107. procedure TUserInfoForm.FormClose(Sender: TObject;
  108.   var Action: TCloseAction);
  109. var
  110.   i: Integer;
  111. begin
  112.   Action := caFree;
  113.   i := MainForm.GetUserInfoIdx(FSource);
  114.   if i > -1 then
  115.     MainForm.FInfoList.Delete(i);
  116. end;
  117.  
  118. procedure TUserInfoForm.Button1Click(Sender: TObject);
  119. begin
  120.   MainForm.ICQClient1.RequestInfo(StrToInt(FSource));
  121. end;
  122.  
  123. end.
  124.