TDefaultShowThread -
TFormPages -
TPageControlExternalPages -
TPageForm -
TPageFormClass -
TPageFormInfo -
TPseudoThread -
TScaleForm -
TShowThread -
TStartThread -
TTabbedNotebookExternalPages -
TThreadForm -
Register -
TScaledBy
MAXNBKPAGES
StartThreadPriority
UM_DestroyThread
UM_RESETCURSOR
UM_SETFOCUS
UM_SIZE
UM_SIZE_MAXIMIZED
UM_SIZE_RESTORED
procedure Register;
TScaledBy = record
M : Integer;
D : Integer;
end;
or tpIdle ?
MAXNBKPAGES = 16
$DEFINE DontUseThread}
This helps to save resources using a notebook.
Use this software as freeware. The only thing I ask you is that
if you find any bugs, please E-Mail me!
Christoph Kirchner, ckirchner@geocities.com
Based on a program by David Obber:
> Thanks to 3k Computer Consultancy for useful hints.
> David Obber, MC8783@mclink.it
Changed by Neil Peters, petersn@cadvision.com:
Bugfixes and support for the PageControl object
------------------------------------------------------------------
DISCLAIMER
------------------------------------------------------------------
Use this software at your own risk. I won't be held responsible for
anything that goes wrong.
StartThreadPriority = tpLower
UM_DestroyThread = WM_USER + 1105
UM_RESETCURSOR = WM_USER + 1104
UM_SETFOCUS = WM_USER + 1103
UM_SIZE = WM_USER + 1100
Maximum number of pages = 16
UM_SIZE_MAXIMIZED = WM_USER + 1101
may have problem here, related to non-unique message number conflicts or something - sorry I can not figure the problem out yet.
UM_SIZE_RESTORED = WM_USER + 1102