Guidance
指路人
g.yi.org
software / rapidq / Examples / Tools - IDE, Designer, Builder / FreeQ IDE src / FreeQ160.bas

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
     $TYPECHECK ON
     $APPTYPE GUI

'$DEFINE __FREEQ_LEAN                                   'uncomment to remove fluffy-add on stuff

     CONST FREEQMAJORVERSION = 1
     CONST FREEQMINORVERSION = 6
'CONST FREEQVERSIONSTR AS STRING = "FreeQ IDEa (ver " + STR$(FREEQMAJORVERSION) + "." + FORMAT$("%3.3d",FREEQMINORVERSION) + ")"
     CONST FREEQVERSIONSTR AS STRING = "FreeQ IDEa (ver " + STR$(FREEQMAJORVERSION) + "." + STR$(FREEQMINORVERSION) + ")"


     $INCLUDE <Windows.INC>                                  'include files in default directory
     $INCLUDE <Rapidq2.INC>                                  'can be found at http://rapidq.phatcode.net/include
'dim d as QDebug
     $INCLUDE <XP_Manifest.INC>
     $INCLUDE <QXPButton.INC>
'$INCLUDE <QProgressBar.inc>
     $INCLUDE <qini.INC>
     $INCLUDE <htmlHelp.INC>
     $INCLUDE ".\inc_ide\decl.inc"
     $INCLUDE ".\inc_ide\APIdecl.inc"
     $INCLUDE <\Scintilla\QScintilla.INC>                      '
     Scintilla_Initialize(True)                       'if sciLexer.dll is missing then close app

     $INCLUDE ".\inc_ide\IDE_Resources.inc"                    'all global code here for starting app before splash screen
     $INCLUDE ".\inc_ide\IDE_Globals.inc"                      'our global variables, data, structures
     $INCLUDE ".\inc_ide\AppInstance.inc"                      'check if only on instance of FreeQ..
'$INCLUDE ".\inc_ide\IDE_ShellRedirection.inc"             'for running compile thread
     $INCLUDE ".\inc_ide\Splash.inc"                           'load up splash screen


'_________________________________________________________________________
     ini.FileName = TheMainIniFile
     IF (ini.Exist = False) THEN
      SplashForm.Show
      SHOWMESSAGE "Writing defaults to workspace"
      IDE.New                                         'set defaults
      WriteIDEVariables(False)                        'write them but don't reset environment
     ELSE
      InstanceInit                                    'run single instance only?
      SplashFormInit                                  'will show depending on configuration
     END IF
'_________________________________________________________________________
     IF IDE.ShowSplashScreen THEN Gaugestart.Position = 10:  LabelStart.CAPTION = "Loading : Libraries"
     $INCLUDE ".\inc_ide\IDE_gLibrary.inc"
'$INCLUDE ".\inc_ide\FileMonitor.inc"

'_________________________________________________________________________
     IF IDE.ShowSplashScreen THEN Gaugestart.Position = 20:  LabelStart.CAPTION = "Loading : Forms/Widgets"
     $INCLUDE ".\inc_ide\MainForm.inc"
     $INCLUDE ".\inc_ide\Menu.inc"
     $INCLUDE ".\inc_ide\TopPanel.inc"
     $INCLUDE ".\inc_ide\RightPanelObjects.inc"

'_________________________________________________________________________
     IF IDE.ShowSplashScreen THEN Gaugestart.Position = 30:  LabelStart.CAPTION = "Loading : Menus"
     $INCLUDE ".\inc_ide\IDE_Dialogs.inc"
     $INCLUDE ".\inc_ide\Menu_Subs.inc"
     $INCLUDE ".\inc_ide\PopupMenus.inc"
     $INCLUDE ".\inc_ide\PopupWindowsMenu.inc"
     $INCLUDE ".\inc_ide\find_Replace.inc"
     $INCLUDE ".\inc_ide\Help.inc"
'_________________________________________________________________________
     IF IDE.ShowSplashScreen THEN Gaugestart.Position = 40:  LabelStart.CAPTION = "Loading : configuration"
     $INCLUDE ".\inc_ide\configuration.inc"
     $INCLUDE ".\inc_ide\iniStart.inc"
     $INCLUDE ".\inc_ide\IDE_AppWizard.inc"

'_________________________________________________________________________
     IF IDE.ShowSplashScreen THEN Gaugestart.Position = 50:  LabelStart.CAPTION = "Loading : IDE routines"
     $INCLUDE ".\inc_ide\MainForm_Subs.inc"
     $INCLUDE ".\inc_ide\printer.inc"
     $INCLUDE ".\inc_ide\ide_subs.inc"
     $INCLUDE ".\inc_ide\ide_AutoComplete.inc"

'_________________________________________________________________________
     IF IDE.ShowSplashScreen THEN Gaugestart.Position = 60:  LabelStart.CAPTION = "Loading : Tools"
     $INCLUDE ".\inc_ide\ProjectExplorer.inc"
     $INCLUDE "tools\AutoDeclare.inc"
     $INCLUDE "tools\File2Html.inc"
     $INCLUDE "tools\rqPretty_plugin1_2.inc"
     $INCLUDE "tools\ColorPicker.inc"
     $INCLUDE "tools\KeyTool.inc"
     $INCLUDE "tools\NumConverter.inc"

'_________________________________________________________________________
     IF IDE.ShowSplashScreen THEN Gaugestart.Position = 80:  LabelStart.CAPTION = "Setting visual styles"
     $INCLUDE ".\inc_ide\XP_myButtons.inc"               'now aren't we pretty...
     $INCLUDE ".\inc_ide\Menu_Pretty.inc"                'add icons to menu
     Mnu_RightJustify                                    'right justify the last two menu items

'_________________________________________________________________________
     IF IDE.ShowSplashScreen THEN Gaugestart.Position = 50:  LabelStart.CAPTION = "Processing command line options"
     $INCLUDE ".\inc_ide\CommandLineOp.inc"

'_________________________________________________________________________
     IF IDE.ShowSplashScreen THEN splashform.CLOSE
     Mainform.SHOWMODAL
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Mon 2022-9-26  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2013-06-19 07:51:13