home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / leadtools / ocx32.lt / LEXICON.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-03-20  |  5.4 KB  |  186 lines
  1. unit lexicon;
  2.  
  3. interface
  4.  
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  6.   Buttons, ExtCtrls, ltocrocx;
  7.  
  8. type
  9.   TLexClass = class(TForm)
  10.     OKBtn: TButton;
  11.     Bevel1: TBevel;
  12.     RadioButton1: TRadioButton;
  13.     RadioButton2: TRadioButton;
  14.     RadioButton3: TRadioButton;
  15.     RadioButton4: TRadioButton;
  16.     RadioButton5: TRadioButton;
  17.     RadioButton6: TRadioButton;
  18.     RadioButton7: TRadioButton;
  19.     RadioButton8: TRadioButton;
  20.     RadioButton9: TRadioButton;
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure RadioButton9Click(Sender: TObject);
  23.     procedure RadioButton1Click(Sender: TObject);
  24.     procedure RadioButton2Click(Sender: TObject);
  25.     procedure RadioButton3Click(Sender: TObject);
  26.     procedure RadioButton4Click(Sender: TObject);
  27.     procedure RadioButton5Click(Sender: TObject);
  28.     procedure RadioButton6Click(Sender: TObject);
  29.     procedure RadioButton7Click(Sender: TObject);
  30.     procedure RadioButton8Click(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.     nLexicalClass : longint;
  36.   end;
  37.  
  38. var
  39.   LexClass: TLexClass;
  40.  
  41. implementation
  42.  
  43. {$R *.DFM}
  44.  
  45. procedure TLexClass.FormCreate(Sender: TObject);
  46. begin
  47.     radiobutton1.checked := True;
  48.     radiobutton2.checked := False;
  49.     radiobutton3.checked := False;
  50.     radiobutton4.checked := False;
  51.     radiobutton5.checked := False;
  52.     radiobutton6.checked := False;
  53.     radiobutton7.checked := False;
  54.     radiobutton8.checked := False;
  55.     radiobutton9.checked := False;
  56.     nLexicalClass := ICRLXFLG_MAINLEX;
  57. end;
  58.  
  59. procedure TLexClass.RadioButton9Click(Sender: TObject);
  60. begin
  61.     radiobutton1.checked := False;
  62.     radiobutton2.checked := False;
  63.     radiobutton3.checked := False;
  64.     radiobutton4.checked := False;
  65.     radiobutton5.checked := False;
  66.     radiobutton6.checked := False;
  67.     radiobutton7.checked := False;
  68.     radiobutton8.checked := False;
  69.     radiobutton9.checked := True;
  70.     nLexicalClass := ICRLXFLG_NOCLASS;
  71. end;
  72.  
  73. procedure TLexClass.RadioButton1Click(Sender: TObject);
  74. begin
  75.     radiobutton1.checked := True;
  76.     radiobutton2.checked := False;
  77.     radiobutton3.checked := False;
  78.     radiobutton4.checked := False;
  79.     radiobutton5.checked := False;
  80.     radiobutton6.checked := False;
  81.     radiobutton7.checked := False;
  82.     radiobutton8.checked := False;
  83.     radiobutton9.checked := False;
  84.     nLexicalClass := ICRLXFLG_MAINLEX;
  85. end;
  86.  
  87. procedure TLexClass.RadioButton2Click(Sender: TObject);
  88. begin
  89.     radiobutton1.checked := False;
  90.     radiobutton2.checked := True;
  91.     radiobutton3.checked := False;
  92.     radiobutton4.checked := False;
  93.     radiobutton5.checked := False;
  94.     radiobutton6.checked := False;
  95.     radiobutton7.checked := False;
  96.     radiobutton8.checked := False;
  97.     radiobutton9.checked := False;
  98.     nLexicalClass := ICRLXFLG_DATE;
  99. end;
  100.  
  101. procedure TLexClass.RadioButton3Click(Sender: TObject);
  102. begin
  103.     radiobutton1.checked := False;
  104.     radiobutton2.checked := False;
  105.     radiobutton3.checked := True;
  106.     radiobutton4.checked := False;
  107.     radiobutton5.checked := False;
  108.     radiobutton6.checked := False;
  109.     radiobutton7.checked := False;
  110.     radiobutton8.checked := False;
  111.     radiobutton9.checked := False;
  112.     nLexicalClass := ICRLXFLG_TIME;
  113. end;
  114.  
  115. procedure TLexClass.RadioButton4Click(Sender: TObject);
  116. begin
  117.     radiobutton1.checked := False;
  118.     radiobutton2.checked := False;
  119.     radiobutton3.checked := False;
  120.     radiobutton4.checked := True;
  121.     radiobutton5.checked := False;
  122.     radiobutton6.checked := False;
  123.     radiobutton7.checked := False;
  124.     radiobutton8.checked := False;
  125.     radiobutton9.checked := False;
  126.     nLexicalClass := ICRLXFLG_NUMBER;
  127. end;
  128.  
  129. procedure TLexClass.RadioButton5Click(Sender: TObject);
  130. begin
  131.     radiobutton1.checked := False;
  132.     radiobutton2.checked := False;
  133.     radiobutton3.checked := False;
  134.     radiobutton4.checked := False;
  135.     radiobutton5.checked := True;
  136.     radiobutton6.checked := False;
  137.     radiobutton7.checked := False;
  138.     radiobutton8.checked := False;
  139.     radiobutton9.checked := False;
  140.     nLexicalClass := ICRLXFLG_TELEPHONE_NUMBER;
  141. end;
  142.  
  143. procedure TLexClass.RadioButton6Click(Sender: TObject);
  144. begin
  145.     radiobutton1.checked := False;
  146.     radiobutton2.checked := False;
  147.     radiobutton3.checked := False;
  148.     radiobutton4.checked := False;
  149.     radiobutton5.checked := False;
  150.     radiobutton6.checked := True;
  151.     radiobutton7.checked := False;
  152.     radiobutton8.checked := False;
  153.     radiobutton9.checked := False;
  154.     nLexicalClass := ICRLXFLG_ID_NUMBER;
  155. end;
  156.  
  157. procedure TLexClass.RadioButton7Click(Sender: TObject);
  158. begin
  159.     radiobutton1.checked := False;
  160.     radiobutton2.checked := False;
  161.     radiobutton3.checked := False;
  162.     radiobutton4.checked := False;
  163.     radiobutton5.checked := False;
  164.     radiobutton6.checked := False;
  165.     radiobutton7.checked := True;
  166.     radiobutton8.checked := False;
  167.     radiobutton9.checked := False;
  168.     nLexicalClass := ICRLXFLG_MONEY;
  169. end;
  170.  
  171. procedure TLexClass.RadioButton8Click(Sender: TObject);
  172. begin
  173.     radiobutton1.checked := False;
  174.     radiobutton2.checked := False;
  175.     radiobutton3.checked := False;
  176.     radiobutton4.checked := False;
  177.     radiobutton5.checked := False;
  178.     radiobutton6.checked := False;
  179.     radiobutton7.checked := False;
  180.     radiobutton8.checked := True;
  181.     radiobutton9.checked := False;
  182.     nLexicalClass := ICRLXFLG_ROMAN_NUMERAL;
  183. end;
  184.  
  185. end.
  186.