58 lines
2.4 KiB
Plaintext
58 lines
2.4 KiB
Plaintext
compile insert OIPI_VARIABLE_COMMON
|
|
|
|
* Rjc 02-09-21
|
|
Declare Function retstack
|
|
common /oipi_whichversion/whichroutine@,do_debug@,vsprinter_Version@
|
|
Common /oipi_whichversion_override/ override_vsprinter_value@
|
|
|
|
If vsprinter_Version@ == "" Then
|
|
call set_vsprinter()
|
|
End
|
|
|
|
currstack = retstack()
|
|
Begin Case
|
|
Case override_vsprinter_value@ = "VSPRINTER1"
|
|
* explicit override (added 072823)
|
|
whichOne = 1
|
|
Case override_vsprinter_value@ = "VSPRINTER2"
|
|
* explicit override (added 072823)
|
|
whichOne = 2
|
|
Case inlist(currstack,'SET_PRINTER1',@fm) Or inlist(currstack,'GET_PRINTER1',@fm) Or inlist(currstack, 'VSPRINTER_EVENTS',@FM)
|
|
whichOne = 1
|
|
Case inlist(currstack,'SET_PRINTER2',@fm) Or inlist(currstack,'GET_PRINTER2',@fm) Or inlist(currstack,'VSPRINTER2_EVENTS',@FM)
|
|
whichOne = 2
|
|
Case vsprinter_version@ == "VSPRINTER1" Or vsprinter_version@ == "SET_PRINTER1"
|
|
whichOne = 1
|
|
Case vsprinter_version@ == "VSPRINTER2" Or vsprinter_version@ == "SET_PRINTER2"
|
|
whichOne = 2
|
|
Case 1
|
|
* default to 2
|
|
whichOne = 2
|
|
End case
|
|
|
|
|
|
If whichOne = 1 then
|
|
* Rjc 02-09-21
|
|
OIPI_WIN_COMMON_NAME = "%OIPI_WIN_COMMON%"
|
|
OIPI_COMMON_NAME = "%OIPI_VARIABLES%"
|
|
OIPI_TEXTINFO_NAME = "textinfo"
|
|
frmOIPI = "RTI_VSPRINTER_CLASSIC"
|
|
End Else
|
|
OIPI_WIN_COMMON_NAME = "%OIPI_WIN_COMMON2%"
|
|
OIPI_COMMON_NAME = "%OIPI_VARIABLES2%"
|
|
OIPI_TEXTINFO_NAME = "textinfo2"
|
|
frmOIPI = "RTI_VSPRINTER"
|
|
end
|
|
|
|
|
|
COMMON //OIPI_WIN_COMMON_NAME// hWnd%, shell%, oipi_started%, WM_OIPI_SET%, WM_OIPI_GET%, OIPI_TABLE%, OIPI32%,locale,parent%,cancelproc%,handle%,init%
|
|
COMMON //OIPI_COMMON_NAME// bPrinting,IntStartMode,bExporting,stroipi_charmap_display,stroipi_charmap_save,strPdfExportfile,IntRepeatCnt,Repeatgraphic,Twips_To_Units,bTerm,bPrintPages,bWMFFix
|
|
COMMON //OIPI_TEXTINFO_NAME// alignInfo%, textInfo%, widenMargins%,env%,uom%,userpath%,oipiarchive
|
|
* rjc 01-21-21 Added stringbuilder handle
|
|
COMMON /OIPI_STRINGBULDER/hCsvSb%
|
|
* bzs 041422 added bPutOnTaskbar
|
|
Common /OIPI_TASKBAR/ bPutOnTaskbar@
|
|
* bzs 051122 added other options
|
|
Common /OIPI_OPTIONS/ bKeepOnTop@, exportFormatList@, EXTRA2@, EXTRA3@, EXTRA4@, EXTRA5@
|
|
|