mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-09 15:10:18 +00:00
d6d4eb0c28
Split qb64.bas into $included components: notably settings, version, gloabal, ide (& wiki downloader), subs/functions (and extensions including user mods and opengl) Moved 'user mods' to source\subs_functions\extensions Removed legacy functionality of the QB64 update system (including compression functions) QB64.BAS can be compiled independent of its IDE $includes (just comment them out) QUI commeted out (needs minor revision) Updated version to 1.000 (just ran out of numbers)
48 lines
1.8 KiB
QBasic
48 lines
1.8 KiB
QBasic
DIM SHARED Cache_Folder AS STRING
|
|
Cache_Folder$ = "internal\help"
|
|
IF _DIREXISTS(Cache_Folder$) = 0 THEN MKDIR Cache_Folder$
|
|
DIM SHARED Help_sx, Help_sy, Help_cx, Help_cy
|
|
DIM SHARED Help_Select, Help_cx1, Help_cy1, Help_SelX1, Help_SelX2, Help_SelY1, Help_SelY2
|
|
DIM SHARED Help_MSelect
|
|
Help_sx = 1: Help_sy = 1: Help_cx = 1: Help_cy = 1
|
|
DIM SHARED Help_wx1, Help_wy1, Help_wx2, Help_wy2 'defines the text section of the help window on-screen
|
|
DIM SHARED Help_ww, Help_wh 'width & height of text region
|
|
DIM SHARED help_h, help_w 'width & height
|
|
DIM SHARED Help_Txt$ '[chr][col][link-byte1][link-byte2]
|
|
DIM SHARED Help_Txt_Len
|
|
DIM SHARED Help_Line$ 'index of first txt element of a line
|
|
DIM SHARED Help_Link$ 'the link info [sep][type:]...[sep]
|
|
DIM SHARED Help_Link_Sep$: Help_Link_Sep$ = CHR$(13)
|
|
DIM SHARED Help_LinkN
|
|
DIM SHARED Help_NewLineIndent
|
|
DIM SHARED Help_Underline
|
|
'Link Types:
|
|
' PAGE:wikipagename
|
|
DIM SHARED Help_Pos, Help_Wrap_Pos
|
|
DIM SHARED Help_BG_Col
|
|
DIM SHARED Help_Col_Normal: Help_Col_Normal = 7
|
|
DIM SHARED Help_Col_Link: Help_Col_Link = 9
|
|
DIM SHARED Help_Col_Bold: Help_Col_Bold = 15
|
|
DIM SHARED Help_Col_Italic: Help_Col_Italic = 15
|
|
DIM SHARED Help_Col_Section: Help_Col_Section = 8
|
|
DIM SHARED Help_Bold, Help_Italic
|
|
DIM SHARED Help_LockWrap
|
|
REDIM SHARED Help_LineLen(1)
|
|
REDIM SHARED Back$(1)
|
|
REDIM SHARED Back_Name$(1)
|
|
TYPE Help_Back_Type
|
|
sx AS LONG
|
|
sy AS LONG
|
|
cx AS LONG
|
|
cy AS LONG
|
|
END TYPE
|
|
REDIM SHARED Help_Back(1) AS Help_Back_Type
|
|
Back$(1) = "QB64 Help Menu"
|
|
Back_Name$(1) = Back2BackName$(Back$(1))
|
|
Help_Back(1).sx = 1: Help_Back(1).sy = 1: Help_Back(1).cx = 1: Help_Back(1).cy = 1
|
|
DIM SHARED Help_Back_Pos
|
|
Help_Back_Pos = 1
|
|
DIM SHARED Help_Search_Time AS DOUBLE
|
|
DIM SHARED Help_Search_Str AS STRING
|
|
DIM SHARED Help_PageLoaded AS STRING
|
|
DIM SHARED Help_Recaching, Help_IgnoreCache
|