home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
vb_code1
/
inotepad
/
global.bas
next >
Wrap
BASIC Source File
|
1992-06-14
|
11KB
|
310 lines
DefInt A-Z
Type MhMuscleType
Shift As Integer
Scan As Integer
Ascii As Integer
Lb As Integer
Rb As Integer
RbTerminateAscii As Integer
RbTerminateScan As Integer
CursorNormalStart As Integer
CursorNormalEnd As Integer
CursorInsertStart As Integer
CursorInsertEnd As Integer
MonitorSeg As Integer
MonitorType As Integer
MonitorRows As Integer
MonitorColumns As Integer
VideoMode As Integer
MouseInstalled As Integer
Verify As Integer
CaseSens As Integer
TableSize As Integer
DontRestore As Integer
TopRow As Integer
LeftColumn As Integer
BottomRow As Integer
RightColumn As Integer
BoxType As Integer
BoxColor As Long
ShadowColor As Long
ShadowPosition As Integer
FillColor As Long
InverseColor As Long
HighlightColor As Long
NormalColor As Long
TitleColor As Long
WordWrapWidth As Integer
LastElement As Integer
TabStop As Integer
SelectionWrap As Integer
DeselectColor As Long
DeselectInverseColor As Long
BarColor As Long
InverseBarColor As Long
KeyHighlightColor As Long
DescriptionRow As Integer
DescriptionColor As Long
MenuNumber As Integer
SelectionNumber As Integer
Range As Integer
Month As Integer
Day As Integer
Year As Integer
Startyear As Integer
DisplayMode As Integer
ForceRead As Integer
MemSeg As Integer
MemOffset As Integer
MaxFiles As Integer
Fillcharacter As Integer
SoundOff As Integer
Gen1 As Integer
Gen2 As Integer
Gen3 As Integer
Gen4 As Integer
ShadowColumns As Integer
ShadowRows As Integer
SnowCheck As Integer
Drive As Integer
FileAttributes As Integer
DosMajorVersion As Integer
DosMinorVersion As Integer
MouseStatus As Integer
ExitIfMouseOutside As Integer
HugeArrayNum As Integer
AutoTerminate As Integer
DefaultInsertState As Integer
GeneralCount As Integer
GenLong1 As Long
GenLong2 As Long
Bytes As Long
CurrentPos As Integer
NoDestroy As Integer
End Type
Type MhPopupMenuType
' Special TYPE used by MhPUxxx routines
PMFlags As Integer
PMPopUpID As Integer ' Either ID number or handle of bitmap if MF_BITMAP flag is set
PMString As String
PMBitMap As Integer
End Type
Type MhChooseFontType
hWnd As Integer
Hdc As Integer
LogFont As Long
pointSize As Integer
Flags As Long
RgbColor As Long
Reserved2 As Long
Reserved3 As Long
Reserved4 As Long
Reserved5 As Integer
Reserved6 As Long
FontType As Integer
MinSize As Integer
MaxSize As Integer
End Type
Type MhLogFontType
FontHeight As Integer
FontWidth As Integer
FontEscapement As Integer
FontOrientation As Integer
FontWeight As Integer
FontItalic As String * 1
FontUnderline As String * 1
FontStrikeout As String * 1
FontCharSet As String * 1
FontOutPrecision As String * 1
FontClipPrecision As String * 1
FontQuality As String * 1
FontPitchAndFamily As String * 1
FontFaceName As String * 32
End Type
Type MhPrintDlgType
hWnd As Integer
DevMode As Integer
DevNames As Integer
Hdc As Integer
Flags As Long
FromPage As Integer
ToPage As Integer
MinPage As Integer
MaxPage As Integer
Copies As Integer
End Type
Type MhGetFileType
hWnd As Integer
FilterIndex As Long
InitFileName As String
FormCaption As String
InitDir As String
DefaultExtension As String
HowManyFilters As Integer
Flags As Long
RawNamePos As Integer
ExtensionPos As Integer
End Type
Type MhFileFilterType
Description As String
Mask As String
End Type
Type MhStrType
VStr As String
End Type
Declare Function GetMenuCheckMarkDimensions& Lib "user" ()
Declare Function MhECode% Lib "muscle.vbx" ()
Declare Function MhBkwdInstrChar% Lib "muscle.vbx" (ByVal Start%, ByVal Char%, Target$)
Declare Function MhBkwdInstrNS% Lib "muscle.vbx" (ByVal Start%, Larger$, Pattern$)
Declare Function MhBkwdInstrS% Lib "muscle.vbx" (ByVal Start%, Larger$, Pattern$)
Declare Function MhChooseFont% Lib "muscle.vbx" (Y As MhLogFontType, X As MhChooseFontType)
Declare Function MhCommandM$ Lib "muscle.vbx" ()
Declare Function MhCtrlHwnd% Lib "muscle.vbx" (A As Control)
Declare Function MhFileExists% Lib "muscle.vbx" (ByVal FileSpec$)
Declare Function MhFindText% Lib "muscle.vbx" (ByVal KeyCode%, ByVal hWnd%, Flags&, Find$)
Declare Function MhFwdInstrChar% Lib "muscle.vbx" (ByVal Start%, ByVal Char%, Target$)
Declare Function MhFwdInstrNS% Lib "muscle.vbx" (ByVal Start%, Larger$, Pattern$)
Declare Function MhFwdInstrS% Lib "muscle.vbx" (ByVal Start%, Larger$, Pattern$)
Declare Function MhGet% Lib "muscle.vbx" (Variable As Any, RecNumber&, ByVal handle%)
Declare Function MhGetFileTitle$ Lib "muscle.vbx" (ByVal A$)
Declare Function MhGetOpenFileNAme$ Lib "muscle.vbx" (X As MhGetFileType, Y As MhFileFilterType)
Declare Function MhGetSaveFileNAme$ Lib "muscle.vbx" (X As MhGetFileType, Y As MhFileFilterType)
Declare Function MhGetTextDialog% Lib "muscle.vbx" (Replace$, Flags&, Find$)
Declare Sub MhKillDialog Lib "muscle.vbx" ()
Declare Function MhNotInstrBkwd% Lib "muscle.vbx" (ByVal Start%, ByVal Char%, Target$)
Declare Function MhNotInstrFwd% Lib "muscle.vbx" (ByVal Start%, ByVal Char%, Target$)
Declare Function MhPrintDlg% Lib "muscle.vbx" (X As MhPrintDlgType)
Declare Function MhPrintDlgDef% Lib "muscle.vbx" (X As MhPrintDlgType)
Declare Function MhPUCreate% Lib "muscle.vbx" (M As MhPopupMenuType, ByVal HowMany%)
Declare Function MhPUTrack% Lib "muscle.vbx" (ByVal MainHwnd%, ByVal hMenu%, ByVal Y%, ByVal X%)
Declare Function MhPuKill% Lib "muscle.vbx" (ByVal hMenu%)
Declare Function MhReplaceChar$ Lib "muscle.vbx" (Lin$, ByVal OldChar%, ByVal NewChar%)
Declare Function MhReplaceStr$ Lib "muscle.vbx" (Count%, Lin$, Unwanted$, Replacement$)
Declare Function MhReplaceText% Lib "muscle.vbx" (Replace$, ByVal KeyCode%, ByVal hWnd%, Flags&, Find$)
Declare Function MhSetFont% Lib "muscle.vbx" (ByVal hWnd%, ByVal RedrawNow%, Y As MhLogFontType)
Declare Function MhWinDir$ Lib "muscle.vbx" ()
Declare Function MhWinVersion% Lib "muscle.vbx" (Major%, Minor%)
' MhFindText and MhReplaceText Values
Global Const FR_DOWN = &H1
Global Const FR_WHOLEWORD = &H2
Global Const FR_MATCHCASE = &H4
Global Const FR_FINDNEXT = &H8
Global Const FR_REPLACE = &H10
Global Const FR_REPLACEALL = &H20
Global Const FR_SHOWHELP = &H80
Global Const FR_NOUPDOWN = &H400
Global Const FR_NOMATCHCASE = &H800
Global Const FR_NOWHOLEWORD = &H1000
' MhPrintDlg Values
Global Const PD_ALLPAGES = &H0
Global Const PD_SELECTION = &H1
Global Const PD_PAGENUMS = &H2
Global Const PD_NOSELECTION = &H4
Global Const PD_NOPAGENUMS = &H8
Global Const PD_COLLATE = &H10
Global Const PD_PRINTTOFILE = &H20
Global Const PD_PRINTSETUP = &H40
Global Const PD_NOWARNING = &H80
Global Const PD_RETURNDC = &H100
Global Const PD_RETURNIC = &H200
Global Const PD_RETURNDEFAULT = &H400
Global Const PD_SHOWHELP = &H800
' MhChooseFont Values
Global Const CF_SCREENFONTS = &H1
Global Const CF_PRINTERFONTS = &H2
Global Const CF_BOTH = &H3 ' (CF_SCREENFONTS | CF_PRINTERFONTS)
Global Const CF_SHOWHELP = &H4
Global Const CF_EFFECTS = &H100
Global Const CF_APPLY = &H200
Global Const CF_ANSIONLY = &H400
Global Const CF_NOVECTORFONTS = &H800
Global Const CF_NOSIMULATIONS = &H1000
Global Const CF_LIMITSIZE = &H2000
Global Const CF_FIXEDPITCHONLY = &H4000
Global Const CF_WYSIWYG = &H8000 ' must also have CF_SCREENFONTS & CF_PRINTERFONTS
Global Const CF_FORCEFONTEXIST = &H10000
Global Const CF_SCALABLEONLY = &H20000
Global Const CF_TTONLY = &H40000
Global Const SIMULATED_FONTTYPE = &H8000
Global Const PRINTER_FONTTYPE = &H4000
Global Const SCREEN_FONTTYPE = &H2000
' Following is the only RasterOp& used by Muscle
Global Const SRCCOPY = &HCC0020
Declare Function GetTextExtent& Lib "Gdi" (ByVal Hdc%, ByVal lpString$, ByVal nCount%)
Declare Function GetWindowDC% Lib "User" (ByVal hWnd%)
Declare Function ReleaseDC% Lib "User" (ByVal hWnd%, ByVal Hdc%)
Declare Function Winhelp Lib "User" (ByVal hWnd As Integer, ByVal lpzFileName As String, ByVal wCmd As Integer, dwData As Any) As Integer
'-----------------------------------
'Common Dialog Control
'-----------------------------------
'Action Property
Global Const DLG_FILE_OPEN = 1
Global Const DLG_FILE_SAVE = 2
Global Const DLG_COLOR = 3
Global Const DLG_FONT = 4
Global Const DLG_PRINT = 5
Global Const DLG_HELP = 6
Global Const True = -1
Global Const False = 0
Global Const CTRL_MASK = 2
Declare Function GetFocus% Lib "user" ()
Declare Function SendMessage& Lib "user" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, lp As Any)
Global Const WM_USER = &H400
Global Const EM_LIMITTEXT = WM_USER + 21
Global Const EM_UNDO = WM_USER + 23
Global IniFile As String
Global TextPrintWidth As Integer, PrtFontSize As Integer
Global PrtFontName As String
Type MacrosType
Caption As String * 2
Title As String * 30
text As String * 2000
End Type
Global Macros(24) As MacrosType
Global PuMenus(24) As MhPopupMenuType
Global PUHandle As Integer
Global Const FileHeader = "inpgls"
Global ActionFlag As Integer
Global Const BaseValue = 100
'Help Constants
Global Const HELP_CONTEXT = &H1 'Display topic in ulTopic
Global Const HELP_QUIT = &H2 'Terminate help
Global Const HELP_INDEX = &H3 'Display index
Global Const HELP_CONTENTS = &H3
Global Const HELP_HELPONHELP = &H4 'Display help on using help
Global Const HELP_SETINDEX = &H5 'Set the current Index for multi index help
Global Const HELP_SETCONTENTS = &H5
Global Const HELP_CONTEXTPOPUP = &H8
Global Const HELP_FORCEFILE = &H9
Global Const HELP_KEY = &H101 'Display topic for keyword in offabData
Global Const HELP_COMMAND = &H102
Global Const HELP_PARTIALKEY = &H105 'call the search engine in winhelp