home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / CHECKS / MAIN.PAS < prev   
Pascal/Delphi Source File  |  1998-04-04  |  2KB  |  93 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, SysUtils, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Menus, StdCtrls;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     FileMenu: TMenuItem;
  13.     FileExit: TMenuItem;
  14.     LevelMenu: TMenuItem;
  15.     Level1: TMenuItem;
  16.     Level2: TMenuItem;
  17.     Level3: TMenuItem;
  18.     Level4: TMenuItem;
  19.     Level5: TMenuItem;
  20.     Level6: TMenuItem;
  21.     Level7: TMenuItem;
  22.     Level8: TMenuItem;
  23.     Level9: TMenuItem;
  24.     ShowButton: TButton;
  25.     N1: TMenuItem;
  26.     LevelInsert: TMenuItem;
  27.     procedure FileExitClick(Sender: TObject);
  28.     procedure LevelClick(Sender: TObject);
  29.     procedure ShowButtonClick(Sender: TObject);
  30.     procedure LevelInsertClick(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.     function GetLevel: Integer;
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   MainForm: TMainForm;
  40.  
  41. implementation
  42.  
  43. {$R *.DFM}
  44.  
  45. const
  46.   highLevel = 9;   { Highest level command }
  47.  
  48. procedure TMainForm.FileExitClick(Sender: TObject);
  49. begin
  50.   Close;
  51. end;
  52.  
  53. procedure TMainForm.LevelClick(Sender: TObject);
  54. var
  55.   I: Integer;
  56. begin
  57.   with LevelMenu do
  58.     for I := 0 to highLevel - 1 do
  59.       Items[I].Checked := False;
  60.   TMenuItem(Sender).Checked := True;
  61. end;
  62.  
  63. function TMainForm.GetLevel: Integer;
  64. var
  65.   I: Integer;
  66. begin
  67.   GetLevel := -1;
  68.   with LevelMenu do
  69.     for I := 0 to highLevel - 1 do
  70.       if Items[I].Checked then
  71.         GetLevel := I + 1;
  72. end;
  73.  
  74. procedure TMainForm.ShowButtonClick(Sender: TObject);
  75. var
  76.   S: string;
  77. begin
  78.   S := 'Level = ' + IntToStr(GetLevel) + ' -- Insert:';
  79.   if LevelInsert.Checked
  80.     then S := S + 'ON'
  81.     else S := S + 'OFF';
  82.   ShowMessage(S);
  83. end;
  84.  
  85. procedure TMainForm.LevelInsertClick(Sender: TObject);
  86. begin
  87.   with Sender as TMenuItem do
  88.     Checked := not Checked;
  89. end;
  90.  
  91. end.
  92.  
  93.