home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / vrac / odsh32.zip / ODSHDEM1.PAS < prev    next >
Pascal/Delphi Source File  |  1996-03-20  |  2KB  |  93 lines
  1. unit Odshdem1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, Odshdem2, Odshdem3, Menus,
  8.   Odshelpp;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     bExit: TButton;
  13.     SpeedButton: TSpeedButton;
  14.     CheckBox: TCheckBox;
  15.     ListBox: TListBox;
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     GroupBox: TGroupBox;
  19.     RadioButton1: TRadioButton;
  20.     RadioButton2: TRadioButton;
  21.     bModal: TButton;
  22.     Memo: TMemo;
  23.     PopupMenu1: TPopupMenu;
  24.     WhatsThis1: TMenuItem;
  25.     bModeless: TButton;
  26.     bOrder: TButton;
  27.     ODSHelp1: TODSHelp;
  28.     RadioButton3: TRadioButton;
  29.     procedure SpeedButtonClick(Sender: TObject);
  30.     procedure bExitClick(Sender: TObject);
  31.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  32.       Shift: TShiftState);
  33.     procedure bModalClick(Sender: TObject);
  34.     procedure WhatsThis1Click(Sender: TObject);
  35.     procedure bModelessClick(Sender: TObject);
  36.     procedure bOrderClick(Sender: TObject);
  37.     procedure ODSHelp1HelpDone(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  43.  
  44. var
  45.   Form1: TForm1;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50.  
  51. procedure TForm1.SpeedButtonClick(Sender: TObject);
  52. begin
  53.     ODSHelp1.MouseHelp;
  54. end;
  55.  
  56. procedure TForm1.bExitClick(Sender: TObject);
  57. begin
  58.     Close;
  59. end;
  60.  
  61. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  62.   Shift: TShiftState);
  63. begin
  64.     if Key = VK_F1 then ODSHelp1.FocusHelp;
  65. end;
  66.  
  67. procedure TForm1.bModalClick(Sender: TObject);
  68. begin
  69.     ModalDialog.ShowModal;
  70. end;
  71.  
  72. procedure TForm1.WhatsThis1Click(Sender: TObject);
  73. begin
  74.     ODSHelp1.ControlHelp(PopupMenu1.PopupComponent);
  75. end;
  76.  
  77. procedure TForm1.bModelessClick(Sender: TObject);
  78. begin
  79.     fModeless.Show;
  80. end;
  81.  
  82. procedure TForm1.bOrderClick(Sender: TObject);
  83. begin
  84.   Application.HelpCommand(HELP_CONTEXT,9999);
  85. end;
  86.  
  87. procedure TForm1.ODSHelp1HelpDone(Sender: TObject);
  88. begin
  89.     SpeedButton.Down := False;
  90. end;
  91.  
  92. end.
  93.