|
Last change
on this file since 450 was 36, checked in by RBRi, 19 years ago |
|
form initialization fix
|
-
Property svn:eol-style
set to
native
|
|
File size:
688 bytes
|
| Rev | Line | |
|---|
| [18] | 1 | Program NewView;
|
|---|
| 2 |
|
|---|
| 3 | // NewView - a new OS/2 Help Viewer
|
|---|
| 4 | // Copyright 2003 Aaron Lawrence (aaronl at consultant dot com)
|
|---|
| 5 | // This software is released under the Gnu Public License - see readme.txt
|
|---|
| 6 |
|
|---|
| 7 | // Main program
|
|---|
| 8 | // Becomes NewView.exe
|
|---|
| 9 |
|
|---|
| 10 | Uses
|
|---|
| [33] | 11 | Forms,
|
|---|
| [36] | 12 | Graphics,
|
|---|
| 13 | MainForm,
|
|---|
| [18] | 14 |
|
|---|
| [36] | 15 | // don't remove this, this stuff is needed internally to
|
|---|
| 16 | // initialize the forms
|
|---|
| 17 | ProductInformationFormUnit,
|
|---|
| 18 | OptionsForm,
|
|---|
| 19 | InformationFormUnit,
|
|---|
| 20 | FileDialogForm,
|
|---|
| 21 | GlobalSearchForm,
|
|---|
| 22 | NoteForm,
|
|---|
| 23 | BookmarksFormUnit,
|
|---|
| 24 | PrintDialogUnit,
|
|---|
| 25 | SearchDirectoriesFormUnit;
|
|---|
| 26 |
|
|---|
| [18] | 27 | {$r NewView.scu}
|
|---|
| 28 |
|
|---|
| 29 | Begin
|
|---|
| 30 | Application.Create;
|
|---|
| [36] | 31 | Application.CreateForm(TMainForm, MainForm);
|
|---|
| [18] | 32 | Application.Run;
|
|---|
| 33 | Application.Destroy;
|
|---|
| [36] | 34 | End.
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
