 Prev Screen |
 Next Screen |
ProHelp 1.0 "Just drop It" Demo
This Demo was developed with only one (must have) line of code!
"Just drop It" Demo source code
unit Main;
{ Copyright
© 1998-2000 by IG's Software}
{ Project name: ProHelp}
interface
uses
Windows,
Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, ComCtrls, ProHelp, Buttons, Menus;
type TMainForm = class(TForm)
ToolBar:
TPanel;
NewSB: TSpeedButton;
OpenSB: TSpeedButton;
SaveSB: TSpeedButton;
PrintSB: TSpeedButton;
PrintPreviewSB: TSpeedButton;
tbDev1: TBevel;
tbDev2: TBevel;
gbNonwindowedControls: TGroupBox;
TShapeControl: TShape;
TImageControl: TImage;
TLabelControl: TLabel;
gbEditControl: TGroupBox;
EditControlLabel: TLabel;
MemoControl: TMemo;
EditControl: TEdit;
gbStdButtons: TGroupBox;
ApplyButton: TButton;
CancelButton: TButton;
OKButton: TButton;
HelpButton: TButton;
CloseSB: TSpeedButton;
UndoSB: TSpeedButton;
CutSB: TSpeedButton;
CopySB: TSpeedButton;
PasteSB: TSpeedButton;
tbDev3: TBevel;
MainMenu: TMainMenu;
FileMenu: TMenuItem;
miNew: TMenuItem;
miOpen: TMenuItem;
miClose: TMenuItem;
miDev1: TMenuItem;
miSave: TMenuItem;
miDev2: TMenuItem;
miPrintPreview: TMenuItem;
miPrint: TMenuItem;
miDev5: TMenuItem;
miExit: TMenuItem;
EditMenu: TMenuItem;
miUndo: TMenuItem;
miDev4: TMenuItem;
miCut: TMenuItem;
miCopy: TMenuItem;
miPaste: TMenuItem;
HelpMenu: TMenuItem;
miWhatIsThis: TMenuItem;
igHelpButton1: TigHelpButton;
igStatusBar: TStatusBar;
igHelpMonitor1: TigHelpMonitor;
gbComments: TGroupBox;
Label11: TLabel;
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
procedure TMainForm.FormCreate(Sender: TObject);
begin
{Only one (must have) line of code!!!}
Application.HelpFile := ExtractFilePath(Application.ExeName) +
'ProHelp.hlp>main';
end;
end.