14ad15149a
* utils/hbmk2/hbmk2.prg
* Changed to use core filename functions.
(except hb_PathMakeAbsolute() to hb_PathJoin())
* contrib/hbqt/hbmk2_qt.hbs
* Changed hbmk2_*() API calls to Harbour core functions.
If you have hbmk2 plugins, pls make these API changes:
hbmk2_cwd() -> hb_cwd()
hbmk2_PathMakeAbsolute( r, a ) -> hb_PathJoin( a, r )
hbmk2_PathNormalize( ... ) -> hb_PathNormalize( ... )
hbmk2_PathMakeRelative( ... ) -> hb_PathRelativize( ... )
hbmk2_DirAddPathSep( ... ) -> hb_DirSepAdd( ... )
hbmk2_DirDelPathSep( ... ) -> hb_DirSepDel( ... )
hbmk2_DirBuild( ... ) -> hb_DirBuild( ... )
hbmk2_DirUnbuild( ... ) -> hb_DirUnbuild( ... )
hbmk2_FNameDirGet( ... ) -> hb_FNameDir( ... )
hbmk2_FNameNameGet( ... ) -> hb_FNameName( ... )
hbmk2_FNameNameExtGet( ... ) -> hb_FNameNameExt( ... )
hbmk2_FNameExtGet( ... ) -> hb_FNameExt( ... )
hbmk2_FNameExtDef( ... ) -> hb_FNameExtSetDef( ... )
hbmk2_FNameExtSet( ... ) -> hb_FNameExtSet( ... )
* contrib/hbide/idesaveload.prg
! Missed to change one function to core version in
2011-02-10 13:33 UTC+0100.
1928 lines
79 KiB
Plaintext
1928 lines
79 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
*
|
|
* Copyright 2009 Pritpal Bedi <pritpal@vouchcac.com>
|
|
* www - http://harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this software; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
/*----------------------------------------------------------------------*/
|
|
/*----------------------------------------------------------------------*/
|
|
/*----------------------------------------------------------------------*/
|
|
/*
|
|
* EkOnkar
|
|
* ( The LORD is ONE )
|
|
*
|
|
* Harbour-Qt IDE
|
|
*
|
|
* Pritpal Bedi <pritpal@vouchcac.com>
|
|
* 28Dec2009
|
|
*/
|
|
/*----------------------------------------------------------------------*/
|
|
/*----------------------------------------------------------------------*/
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
#include "hbide.ch"
|
|
#include "common.ch"
|
|
#include "hbclass.ch"
|
|
#include "hbqtgui.ch"
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
#define INI_SECTIONS_COUNT 14
|
|
#define INI_HBIDE_VRBLS 30
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
//
|
|
// Class IdeINI
|
|
//
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
CLASS IdeINI INHERIT IdeObject
|
|
|
|
DATA aINI INIT {}
|
|
|
|
DATA cMainWindowGeometry INIT ""
|
|
DATA cGotoDialogGeometry INIT ""
|
|
DATA cFindDialogGeometry INIT ""
|
|
DATA cToolsDialogGeometry INIT ""
|
|
DATA cSetupDialogGeometry INIT ""
|
|
DATA cShortcutsDialogGeometry INIT ""
|
|
DATA cDbStructDialogGeometry INIT ""
|
|
DATA cTablesDialogGeometry INIT ""
|
|
//
|
|
DATA cRecentTabIndex INIT ""
|
|
//
|
|
DATA cIdeTheme INIT ""
|
|
DATA cIdeAnimated INIT ""
|
|
//
|
|
DATA cPathHrbRoot INIT ""
|
|
DATA cPathHbmk2 INIT ""
|
|
DATA cPathResources INIT ""
|
|
DATA cPathTemp INIT ""
|
|
DATA cPathEnv INIT ""
|
|
DATA cPathShortcuts INIT ""
|
|
DATA cPathSnippets INIT ""
|
|
DATA cPathThemes INIT ""
|
|
|
|
DATA cCurrentProject INIT ""
|
|
DATA cCurrentTheme INIT ""
|
|
DATA cCurrentCodec INIT ""
|
|
DATA cCurrentEnvironment INIT ""
|
|
DATA cCurrentFind INIT ""
|
|
DATA cCurrentFolderFind INIT ""
|
|
DATA cCurrentReplace INIT ""
|
|
DATA cCurrentView INIT ""
|
|
//
|
|
DATA cTextFileExtensions INIT ".c,.cpp,.prg,.h,.ch,.txt,.log,.ini,.env,.ppo,.qtp,.hbs," + ;
|
|
".cc,.hbc,.hbp,.hbm,.xml,.bat,.sh,.rc,.ui,.uic,.bak,.fmg,.qth,.qrc"
|
|
DATA aProjFiles INIT {}
|
|
DATA aFiles INIT {}
|
|
DATA aFind INIT {}
|
|
DATA aReplace INIT {}
|
|
DATA aRecentProjects INIT {}
|
|
DATA aRecentFiles INIT {}
|
|
DATA aFolders INIT {}
|
|
DATA aViews INIT {}
|
|
DATA aTaggedProjects INIT {}
|
|
DATA aTools INIT {}
|
|
DATA aUserToolbars INIT {}
|
|
DATA aKeywords INIT {}
|
|
DATA aDbuPanelNames INIT {}
|
|
DATA aDbuPanelsInfo INIT {}
|
|
DATA aDictionaries INIT {}
|
|
|
|
DATA cFontName INIT "Courier New"
|
|
DATA nPointSize INIT 10
|
|
DATA cLineEndingMode INIT ""
|
|
|
|
DATA lTrimTrailingBlanks INIT .t.
|
|
DATA lSaveSourceWhenComp INIT .t.
|
|
DATA lSupressHbKWordsToUpper INIT .f.
|
|
DATA lReturnAsBeginKeyword INIT .f.
|
|
DATA lConvTabToSpcWhenLoading INIT .f.
|
|
DATA lAutoIndent INIT .t.
|
|
DATA lSmartIndent INIT .t.
|
|
DATA lTabToSpcInEdits INIT .t.
|
|
//DATA nTabSpaces INIT ::oIde:nTabSpaces
|
|
DATA nIndentSpaces INIT 3
|
|
|
|
DATA nTmpBkpPrd INIT 60
|
|
DATA cBkpPath INIT ""
|
|
DATA cBkpSuffix INIT ".bkp"
|
|
|
|
DATA lCompletionWithArgs INIT .t.
|
|
DATA lCompleteArgumented INIT .f.
|
|
|
|
DATA aAppThemes INIT {}
|
|
DATA lEditsMdi INIT .t.
|
|
|
|
METHOD new( oIde )
|
|
METHOD create( oIde )
|
|
METHOD load( cHbideIni )
|
|
METHOD save( cHbideIni )
|
|
|
|
METHOD getIniPath()
|
|
METHOD getResourcesPath()
|
|
METHOD getTempPath()
|
|
METHOD getHarbourPath()
|
|
METHOD getIniFile()
|
|
METHOD getEnvFile()
|
|
METHOD getHbmk2File()
|
|
METHOD getSnippetsFile()
|
|
METHOD getShortcutsFile()
|
|
METHOD getThemesFile()
|
|
|
|
ENDCLASS
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:new( oIde )
|
|
::oIde := oIde
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:create( oIde )
|
|
DEFAULT oIde TO ::oIde
|
|
::oIde := oIde
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:getINIPath()
|
|
LOCAL cPath
|
|
hb_fNameSplit( ::oIde:cProjIni, @cPath )
|
|
RETURN cPath
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:getResourcesPath()
|
|
LOCAL cPath := iif( empty( ::cPathResources ), ::getINIPath(), ::cPathResources )
|
|
RETURN iif( empty( cPath ), cPath, hbide_pathToOSPath( hbide_pathAppendLastSlash( cPath ) ) )
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:getHarbourPath()
|
|
RETURN iif( empty( ::cPathHrbRoot ), ::cPathHrbRoot, hbide_pathToOSPath( hbide_pathAppendLastSlash( ::cPathHrbRoot ) ) )
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:getTempPath()
|
|
RETURN hbide_pathToOSPath( ::cPathTemp )
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:getINIFile()
|
|
RETURN hbide_pathToOSPath( hbide_pathFile( ::getINIPath(), "hbide.ini" ) )
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:getHbmk2File()
|
|
LOCAL cFile
|
|
|
|
IF empty( ::cPathHbmk2 )
|
|
IF empty( cFile := hb_getenv( "HBIDE_DIR_HBMK2" ) )
|
|
cFile := "hbmk2"
|
|
ELSE
|
|
cFile := hbide_pathFile( cFile, "hbmk2" )
|
|
ENDIF
|
|
ELSE
|
|
cFile := ::cPathHbmk2
|
|
ENDIF
|
|
|
|
RETURN hbide_pathToOSPath( cFile )
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:getEnvFile()
|
|
RETURN hbide_pathToOSPath( iif( empty( ::cPathEnv ), hbide_pathFile( ::getINIPath(), "hbide.skl" ), ::cPathEnv ) )
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:getSnippetsFile()
|
|
RETURN hbide_pathToOSPath( iif( empty( ::cPathSnippets ), hbide_pathFile( ::getINIPath(), "hbide.skl" ), ::cPathSnippets ) )
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:getShortcutsFile()
|
|
RETURN hbide_pathToOSPath( iif( empty( ::cPathShortcuts ), hbide_pathFile( ::getINIPath(), "hbide.scu" ), ::cPathShortcuts ) )
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:getThemesFile()
|
|
RETURN hbide_pathToOSPath( iif( empty( ::cPathThemes ), hbide_pathFile( ::getINIPath(), "hbide.hbt" ), ::cPathThemes ) )
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:save( cHbideIni )
|
|
LOCAL j, nTab, pTab, n, txt_, oEdit, nTabs, nn, a_, s
|
|
|
|
DEFAULT cHbideIni TO ::oIde:cProjIni
|
|
|
|
IF ::oIde:nRunMode != HBIDE_RUN_MODE_INI
|
|
RETURN Nil
|
|
ENDIF
|
|
|
|
txt_:= {}
|
|
|
|
aadd( txt_, "[HBIDE]" )
|
|
aadd( txt_, " " )
|
|
//
|
|
aadd( txt_, "MainWindowGeometry" + "=" + hbide_posAndSize( ::oDlg:oWidget ) )
|
|
aadd( txt_, "GotoDialogGeometry" + "=" + ::cGotoDialogGeometry )
|
|
aadd( txt_, "FindDialogGeometry" + "=" + ::cFindDialogGeometry )
|
|
aadd( txt_, "ToolsDialogGeometry" + "=" + ::cToolsDialogGeometry )
|
|
aadd( txt_, "ShortcutsDialogGeometry" + "=" + ::cShortcutsDialogGeometry )
|
|
aadd( txt_, "SetupDialogGeometry" + "=" + ::cSetupDialogGeometry )
|
|
aadd( txt_, "DbStructDialogGeometry" + "=" + ::cDbStructDialogGeometry )
|
|
aadd( txt_, "TablesDialogGeometry" + "=" + ::cTablesDialogGeometry )
|
|
//
|
|
aadd( txt_, "CurrentLineHighlightMode" + "=" + iif( ::lCurrentLineHighlightEnabled, "YES", "NO" ) )
|
|
aadd( txt_, "LineNumbersDisplayMode" + "=" + iif( ::lLineNumbersVisible, "YES", "NO" ) )
|
|
aadd( txt_, "HorzRulerDisplayMode" + "=" + iif( ::lHorzRulerVisible, "YES", "NO" ) )
|
|
//
|
|
aadd( txt_, "RecentTabIndex" + "=" + hb_ntos( ::qTabWidget:currentIndex() ) )
|
|
//
|
|
aadd( txt_, "IdeTheme" + "=" + ::cIdeTheme )
|
|
aadd( txt_, "IdeAnimated" + "=" + ::cIdeAnimated )
|
|
//
|
|
aadd( txt_, "PathHrbRoot" + "=" + ::cPathHrbRoot )
|
|
aadd( txt_, "PathMk2" + "=" + ::cPathHbMk2 )
|
|
aadd( txt_, "PathResources" + "=" + ::cPathResources )
|
|
aadd( txt_, "PathTemp" + "=" + ::cPathTemp )
|
|
aadd( txt_, "PathEnv" + "=" + ::cPathEnv )
|
|
aadd( txt_, "PathShortcuts" + "=" + ::cPathShortcuts )
|
|
aadd( txt_, "PathSnippets" + "=" + ::cPathSnippets )
|
|
aadd( txt_, "PathThemes" + "=" + ::cPathThemes )
|
|
//
|
|
aadd( txt_, "CurrentProject" + "=" + ::oIde:cWrkProject )
|
|
aadd( txt_, "CurrentTheme" + "=" + ::oIde:cWrkTheme )
|
|
aadd( txt_, "CurrentCodec" + "=" + ::oIde:cWrkCodec )
|
|
aadd( txt_, "CurrentEnvironment" + "=" + ::oIde:cWrkEnvironment )
|
|
aadd( txt_, "CurrentFind" + "=" + ::oIde:cWrkFind )
|
|
aadd( txt_, "CurrentFolderFind" + "=" + ::oIde:cWrkFolderFind )
|
|
aadd( txt_, "CurrentReplace" + "=" + ::oIde:cWrkReplace )
|
|
aadd( txt_, "CurrentView" + "=" + ::oIde:cWrkView )
|
|
aadd( txt_, "TextFileExtensions" + "=" + ::oINI:cTextFileExtensions )
|
|
//
|
|
aadd( txt_, "FontName" + "=" + ::cFontName )
|
|
aadd( txt_, "PointSize" + "=" + hb_ntos( ::nPointSize ) )
|
|
aadd( txt_, "LineEndingMode" + "=" + ::cLineEndingMode )
|
|
// aadd( txt_, "" + "=" + ::c )
|
|
//
|
|
aadd( txt_, " " )
|
|
aadd( txt_, "TrimTrailingBlanks" + "=" + iif( ::lTrimTrailingBlanks , "YES", "NO" ) )
|
|
aadd( txt_, "SaveSourceWhenComp" + "=" + iif( ::lSaveSourceWhenComp , "YES", "NO" ) )
|
|
aadd( txt_, "SupressHbKWordsToUpper" + "=" + iif( ::lSupressHbKWordsToUpper , "YES", "NO" ) )
|
|
aadd( txt_, "ReturnAsBeginKeyword" + "=" + iif( ::lReturnAsBeginKeyword , "YES", "NO" ) )
|
|
aadd( txt_, "ConvTabToSpcWhenLoading" + "=" + iif( ::lConvTabToSpcWhenLoading, "YES", "NO" ) )
|
|
aadd( txt_, "AutoIndent" + "=" + iif( ::lAutoIndent , "YES", "NO" ) )
|
|
aadd( txt_, "SmartIndent" + "=" + iif( ::lSmartIndent , "YES", "NO" ) )
|
|
aadd( txt_, "TabToSpcInEdits" + "=" + iif( ::lTabToSpcInEdits , "YES", "NO" ) )
|
|
aadd( txt_, "TabSpaces" + "=" + hb_ntos( ::oIde:nTabSpaces ) )
|
|
aadd( txt_, "IndentSpaces" + "=" + hb_ntos( ::nIndentSpaces ) )
|
|
aadd( txt_, "TmpBkpPrd" + "=" + hb_ntos( ::nTmpBkpPrd ) )
|
|
aadd( txt_, "BkpPath" + "=" + ::cBkpPath )
|
|
aadd( txt_, "BkpSuffix" + "=" + ::cBkpSuffix )
|
|
aadd( txt_, "CodeListWithArgs" + "=" + iif( ::lCompletionWithArgs , "YES", "NO" ) )
|
|
aadd( txt_, "CompletionWithArgs" + "=" + iif( ::lCompleteArgumented , "YES", "NO" ) )
|
|
aadd( txt_, "EditsMdi" + "=" + iif( ::lEditsMdi , "YES", "NO" ) )
|
|
|
|
aadd( txt_, "[PROJECTS]" )
|
|
aadd( txt_, " " )
|
|
FOR n := 1 TO len( ::oIde:aProjects )
|
|
aadd( txt_, "project_" + hb_ntos( n ) + "=" + hbide_pathNormalized( ::oIde:aProjects[ n, 2 ], .f. ) )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
/*------------------- FILES -------------------*/
|
|
aadd( txt_, "[FILES]" )
|
|
aadd( txt_, " " )
|
|
nn := 0
|
|
FOR j := 2 TO len( ::oIde:aViews )
|
|
::oIde:lClosing := .t.
|
|
::oDK:setView( ::oIde:aViews[ j ]:oWidget:objectName() )
|
|
|
|
nTabs := ::oIde:qTabWidget:count()
|
|
FOR n := 1 TO nTabs
|
|
pTab := ::oIde:qTabWidget:widget( n - 1 )
|
|
nTab := ascan( ::oIde:aTabs, {|e_| hbqt_IsEqualGcQtPointer( e_[ 1 ]:oWidget, pTab ) } )
|
|
oEdit := ::oIde:aTabs[ nTab, TAB_OEDITOR ]
|
|
|
|
IF !Empty( oEdit:sourceFile ) .AND. !( ".ppo" == lower( oEdit:cExt ) )
|
|
IF oEdit:lLoaded
|
|
aadd( txt_, "file_" + hb_ntos( ++nn ) + "=" + hbide_getEditInfoAsString( oEdit ) )
|
|
|
|
ELSE
|
|
aadd( txt_, "file_" + hb_ntos( ++nn ) + "=" + hbide_pathNormalized( oEdit:sourceFile, .f. ) + "," + ;
|
|
hb_ntos( oEdit:nPos ) + "," + ;
|
|
hb_ntos( oEdit:nHPos ) + "," + ;
|
|
hb_ntos( oEdit:nVPos ) + "," + ;
|
|
oEdit:cTheme + "," + ;
|
|
oEdit:cView + "," + ;
|
|
hbide_nArray2string( oEdit:oEdit:aBookMarks ) + "," )
|
|
ENDIF
|
|
ENDIF
|
|
NEXT
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[FIND]" )
|
|
aadd( txt_, " " )
|
|
FOR n := 1 TO len( ::aFind )
|
|
aadd( txt_, "find_" + hb_ntos( n ) + "=" + ::aFind[ n ] )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[REPLACE]" )
|
|
aadd( txt_, " " )
|
|
FOR n := 1 TO len( ::aReplace )
|
|
aadd( txt_, "replace_" + hb_ntos( n ) + "=" + ::aReplace[ n ] )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[RECENTFILES]" )
|
|
aadd( txt_, " " )
|
|
FOR n := 1 TO len( ::aRecentFiles )
|
|
aadd( txt_, "recentfile_" + hb_ntos( n ) + "=" + hbide_pathNormalized( ::aRecentFiles[ n ], .f. ) )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[RECENTPROJECTS]" )
|
|
aadd( txt_, " " )
|
|
FOR n := 1 TO len( ::aRecentProjects )
|
|
aadd( txt_, "recentproject_" + hb_ntos( n ) + "=" + hbide_pathNormalized( ::aRecentProjects[ n ], .f. ) )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[FOLDERS]" )
|
|
aadd( txt_, " " )
|
|
FOR n := 1 TO len( ::aFolders )
|
|
aadd( txt_, "folder_" + hb_ntos( n ) + "=" + hbide_pathNormalized( ::aFolders[ n ], .f. ) )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[VIEWS]" )
|
|
aadd( txt_, " " )
|
|
FOR EACH s IN ::oDK:getEditorPanelsInfo()
|
|
aadd( txt_, "view_" + hb_ntos( s:__enumIndex() ) + "=" + s )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[TAGGEDPROJECTS]" )
|
|
aadd( txt_, " " )
|
|
FOR n := 1 TO len( ::aTaggedProjects )
|
|
aadd( txt_, "taggedproject_" + hb_ntos( n ) + "=" + ::aTaggedProjects[ n ] )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[TOOLS]" )
|
|
aadd( txt_, " " )
|
|
FOR EACH a_ IN ::aTools
|
|
aadd( txt_, "tool_" + hb_ntos( a_:__enumIndex() ) + "=" + hbide_array2string( a_, "," ) )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[USERTOOLBARS]" )
|
|
aadd( txt_, " " )
|
|
FOR n := 1 TO len( ::aUserToolbars )
|
|
aadd( txt_, "usertoolbars_" + hb_ntos( n ) + "=" + hbide_array2string( ::aUserToolbars[ n ], "," ) )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[KEYWORDS]" )
|
|
aadd( txt_, " " )
|
|
FOR n := 1 TO len( ::aKeywords )
|
|
aadd( txt_, "keyword_" + hb_ntos( n ) + "=" + hbide_array2string( ::aKeywords[ n ], "~" ) )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[DBUPANELS]" )
|
|
aadd( txt_, " " )
|
|
FOR EACH s IN ::oBM:getPanelNames()
|
|
aadd( txt_, "dbupanel_" + hb_ntos( s:__enumIndex() ) + "=" + s )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[DBUPANELSINFO]" )
|
|
aadd( txt_, " " )
|
|
FOR EACH s IN ::oBM:getPanelsInfo()
|
|
aadd( txt_, "dbupanelinfo_" + hb_ntos( s:__enumIndex() ) + "=" + s )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[APPTHEMES]" )
|
|
aadd( txt_, " " )
|
|
FOR EACH s IN ::aAppThemes
|
|
aadd( txt_, "apptheme_" + hb_ntos( s:__enumIndex() ) + "=" + s )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[DICTIONARIES]" )
|
|
aadd( txt_, " " )
|
|
FOR EACH s IN ::aDictionaries
|
|
aadd( txt_, "dictionary_" + hb_ntos( s:__enumIndex() ) + "=" + s )
|
|
NEXT
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "[General]" )
|
|
aadd( txt_, " " )
|
|
|
|
hbide_createTarget( ::oIde:cProjIni, txt_ )
|
|
|
|
RETURN hbide_saveSettings( ::oIde )
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeINI:load( cHbideIni )
|
|
LOCAL aElem, s, nPart, cKey, cVal, a_
|
|
|
|
::oIde:cProjIni := hbide_getIniPath( cHbideIni )
|
|
|
|
IF hb_FileExists( ::oIde:cProjIni )
|
|
aElem := hbide_readSource( ::oIde:cProjIni )
|
|
|
|
FOR EACH s IN aElem
|
|
|
|
s := alltrim( s )
|
|
IF !empty( s )
|
|
SWITCH Upper( s )
|
|
|
|
CASE "[GENERAL]"
|
|
nPart := "INI_GENERAL"
|
|
EXIT
|
|
CASE "[HBIDE]"
|
|
nPart := "INI_HBIDE"
|
|
EXIT
|
|
CASE "[PROJECTS]"
|
|
nPart := "INI_PROJECTS"
|
|
EXIT
|
|
CASE "[FILES]"
|
|
nPart := "INI_FILES"
|
|
EXIT
|
|
CASE "[FIND]"
|
|
nPart := "INI_FIND"
|
|
EXIT
|
|
CASE "[REPLACE]"
|
|
nPart := "INI_REPLACE"
|
|
EXIT
|
|
CASE "[RECENTFILES]"
|
|
nPart := "INI_RECENTFILES"
|
|
EXIT
|
|
CASE "[RECENTPROJECTS]"
|
|
nPart := "INI_RECENTPROJECTS"
|
|
EXIT
|
|
CASE "[FOLDERS]"
|
|
nPart := "INI_FOLDERS"
|
|
EXIT
|
|
CASE "[VIEWS]"
|
|
nPart := "INI_VIEWS"
|
|
EXIT
|
|
CASE "[TAGGEDPROJECTS]"
|
|
nPart := "INI_TAGGEDPROJECTS"
|
|
EXIT
|
|
CASE "[TOOLS]"
|
|
nPart := "INI_TOOLS"
|
|
EXIT
|
|
CASE "[USERTOOLBARS]"
|
|
nPart := "INI_USERTOOLBARS"
|
|
EXIT
|
|
CASE "[KEYWORDS]"
|
|
nPart := "INI_KEYWORDS"
|
|
EXIT
|
|
CASE "[DBUPANELS]"
|
|
nPart := "INI_DBUPANELS"
|
|
EXIT
|
|
CASE "[DBUPANELSINFO]"
|
|
nPart := "INI_DBUPANELSINFO"
|
|
EXIT
|
|
CASE "[APPTHEMES]"
|
|
nPart := "INI_APPTHEMES"
|
|
EXIT
|
|
CASE "[DICTIONARIES]"
|
|
nPart := "INI_DICTIONARIES"
|
|
EXIT
|
|
OTHERWISE
|
|
DO CASE
|
|
CASE Left( s, 1 ) $ '#['
|
|
* Nothing todo!
|
|
|
|
CASE nPart == "INI_GENERAL"
|
|
* Qt Setttings, do nothing.
|
|
|
|
CASE nPart == "INI_HBIDE"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
|
|
SWITCH cKey
|
|
|
|
CASE "MainWindowGeometry" ; ::cMainWindowGeometry := cVal ; EXIT
|
|
CASE "GotoDialogGeometry" ; ::cGotoDialogGeometry := cVal ; EXIT
|
|
CASE "FindDialogGeometry" ; ::cFindDialogGeometry := cVal ; EXIT
|
|
CASE "ToolsDialogGeometry" ; ::cToolsDialogGeometry := cVal ; EXIT
|
|
CASE "SetupDialogGeometry" ; ::cSetupDialogGeometry := cVal ; EXIT
|
|
CASE "ShortcutsDialogGeometry" ; ::cShortcutsDialogGeometry := cVal ; EXIT
|
|
CASE "DbStructDialogGeometry" ; ::cDbStructDialogGeometry := cVal ; EXIT
|
|
CASE "TablesDialogGeometry" ; ::cTablesDialogGeometry := cVal ; EXIT
|
|
//
|
|
CASE "CurrentLineHighlightMode" ; ::oIde:lCurrentLineHighlightEnabled := ( cVal != "NO" ); EXIT
|
|
CASE "LineNumbersDisplayMode" ; ::oIde:lLineNumbersVisible := ( cVal != "NO" ); EXIT
|
|
CASE "HorzRulerDisplayMode" ; ::oIde:lHorzRulerVisible := ( cVal != "NO" ); EXIT
|
|
//
|
|
CASE "RecentTabIndex" ; ::cRecentTabIndex := cVal ; EXIT
|
|
//
|
|
CASE "IdeTheme" ; ::cIdeTheme := cVal ; EXIT
|
|
CASE "IdeAnimated" ; ::cIdeAnimated := cVal ; EXIT
|
|
//
|
|
CASE "PathHrbRoot" ; ::cPathHrbRoot := cVal ; EXIT
|
|
CASE "PathMk2" ; ::cPathHbMk2 := cVal ; EXIT
|
|
CASE "PathResources" ; ::cPathResources := cVal ; EXIT
|
|
CASE "PathTemp" ; ::cPathTemp := cVal ; EXIT
|
|
CASE "PathEnv" ; ::cPathEnv := cVal ; EXIT
|
|
CASE "PathShortcuts" ; ::cPathShortcuts := cVal ; EXIT
|
|
CASE "PathSnippets" ; ::cPathSnippets := cVal ; EXIT
|
|
CASE "PathThemes" ; ::cPathThemes := cVal ; EXIT
|
|
//
|
|
CASE "CurrentProject" ; ::oIde:cWrkProject := cVal ; EXIT
|
|
CASE "CurrentTheme" ; ::oIde:cWrkTheme := cVal ; EXIT
|
|
CASE "CurrentCodec" ; ::oIde:cWrkCodec := cVal ; EXIT
|
|
CASE "CurrentEnvironment" ; ::oIde:cWrkEnvironment := cVal ; EXIT
|
|
CASE "CurrentFind" ; ::oIde:cWrkFind := cVal ; EXIT
|
|
CASE "CurrentFolderFind" ; ::oIde:cWrkFolderFind := cVal ; EXIT
|
|
CASE "CurrentReplace" ; ::oIde:cWrkReplace := cVal ; EXIT
|
|
CASE "CurrentView" ; ::oIde:cWrkView := cVal ; EXIT
|
|
CASE "TextFileExtensions" ; ::oINI:cTextFileExtensions := cVal ; EXIT
|
|
//
|
|
CASE "FontName" ; ::cFontName := cVal ; EXIT
|
|
CASE "PointSize" ; ::nPointSize := val( cVal ); EXIT
|
|
CASE "LineEndingMode" ; ::cLineEndingMode := cVal ; EXIT
|
|
//
|
|
CASE "TrimTrailingBlanks" ; ::oINI:lTrimTrailingBlanks := cVal != "NO" ; EXIT
|
|
CASE "SaveSourceWhenComp" ; ::oINI:lSaveSourceWhenComp := cVal != "NO" ; EXIT
|
|
CASE "SupressHbKWordsToUpper" ; ::oINI:lSupressHbKWordsToUpper := cVal != "NO" ; EXIT
|
|
CASE "ReturnAsBeginKeyword" ; ::oINI:lReturnAsBeginKeyword := cVal != "NO" ; EXIT
|
|
CASE "ConvTabToSpcWhenLoading" ; ::oINI:lConvTabToSpcWhenLoading := cVal != "NO" ; EXIT
|
|
CASE "AutoIndent" ; ::oINI:lAutoIndent := cVal != "NO" ; EXIT
|
|
CASE "SmartIndent" ; ::oINI:lSmartIndent := cVal != "NO" ; EXIT
|
|
CASE "TabToSpcInEdits" ; ::oINI:lTabToSpcInEdits := cVal != "NO" ; EXIT
|
|
CASE "TabSpaces" ; ::oIde:nTabSpaces := val( cVal ) ; EXIT
|
|
CASE "IndentSpaces" ; ::oINI:nIndentSpaces := val( cVal ) ; EXIT
|
|
CASE "TmpBkpPrd" ; ::oINI:nTmpBkpPrd := val( cVal ) ; EXIT
|
|
CASE "BkpPath" ; ::oINI:cBkpPath := cVal ; EXIT
|
|
CASE "BkpSuffix" ; ::oINI:cBkpSuffix := cVal ; EXIT
|
|
CASE "CodeListWithArgs" ; ::oINI:lCompletionWithArgs := cVal != "NO" ; EXIT
|
|
CASE "CompletionWithArgs" ; ::oINI:lCompleteArgumented := cVal != "NO" ; EXIT
|
|
CASE "EditsMdi" ; ::lEditsMdi := cVal != "NO" ; EXIT
|
|
|
|
ENDSWITCH
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_PROJECTS"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
aadd( ::aProjFiles, cVal )
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_FILES"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
a_:= hbide_parseSourceComponents( cVal )
|
|
IF !Empty( a_[ 1 ] )
|
|
aadd( ::aFiles, a_ )
|
|
ENDIF
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_FIND"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
aadd( ::aFind, cVal )
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_REPLACE"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
aadd( ::aReplace, cVal )
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_RECENTPROJECTS"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
IF Len( ::aRecentProjects ) < 25
|
|
cVal := hbide_pathNormalized( cVal, .f. )
|
|
IF aScan( ::aRecentProjects, {|e| hb_FileMatch( hbide_pathNormalized( e, .f. ), cVal ) } ) == 0
|
|
AAdd( ::aRecentProjects, cVal )
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_RECENTFILES"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
IF Len( ::aRecentFiles ) < 25
|
|
cVal := hbide_pathNormalized( cVal, .f. )
|
|
IF aScan( ::aRecentFiles, {|e| hb_FileMatch( hbide_pathNormalized( e, .f. ), cVal ) } ) == 0
|
|
AAdd( ::aRecentFiles, cVal )
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_FOLDERS"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
aadd( ::aFolders, cVal )
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_VIEWS"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
aadd( ::aViews, cVal )
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_TAGGEDPROJECTS"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
aadd(::aTaggedProjects, cVal )
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_TOOLS"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
aadd( ::aTools, hbide_parseToolComponents( cVal ) )
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_USERTOOLBARS"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
aadd( ::aUserToolbars, hbide_parseUserToolbarComponents( cVal ) )
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_KEYWORDS"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
aadd( ::aKeywords, hbide_parseKeywordsComponents( cVal ) )
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_DBUPANELS"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
aadd( ::aDbuPanelNames, cVal )
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_DBUPANELSINFO"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
aadd( ::aDbuPanelsInfo, cVal )
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_APPTHEMES"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
aadd( ::aAppThemes, cVal )
|
|
ENDIF
|
|
|
|
CASE nPart == "INI_DICTIONARIES"
|
|
IF hbide_parseKeyValPair( s, @cKey, @cVal )
|
|
aadd( ::aDictioaries, cVal )
|
|
ENDIF
|
|
|
|
ENDCASE
|
|
EXIT
|
|
ENDSWITCH
|
|
ENDIF
|
|
NEXT
|
|
ENDIF
|
|
|
|
::oIde:lCurEditsMdi := ::lEditsMdi
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
STATIC FUNCTION hbide_saveSettings( oIde )
|
|
LOCAL cPath
|
|
|
|
hb_fNameSplit( oIde:cProjIni, @cPath )
|
|
hbqt_QMainWindow_saveSettings( cPath + "settings.ide", "hbidesettings", oIde:oDlg:oWidget )
|
|
|
|
RETURN nil
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
FUNCTION hbide_restSettings( oIde )
|
|
LOCAL cPath
|
|
|
|
hb_fNameSplit( oIde:cProjIni, @cPath )
|
|
hbqt_QMainWindow_restSettings( cPath + "settings.ide", "hbidesettings", oIde:oDlg:oWidget )
|
|
|
|
RETURN nil
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
FUNCTION hbide_getEditInfoAsString( oEdit )
|
|
LOCAL qHScr := oEdit:qEdit:horizontalScrollBar()
|
|
LOCAL qVScr := oEdit:qEdit:verticalScrollBar()
|
|
LOCAL qCursor := oEdit:qEdit:textCursor()
|
|
LOCAL cBMarks := hbide_nArray2string( oEdit:oEdit:aBookMarks )
|
|
|
|
RETURN hbide_pathNormalized( oEdit:sourceFile, .f. ) + "," + ;
|
|
hb_ntos( qCursor:position() ) + "," + ;
|
|
hb_ntos( qHScr:value() ) + "," + ;
|
|
hb_ntos( qVScr:value() ) + "," + ;
|
|
oEdit:cTheme + "," + ;
|
|
oEdit:cView + "," + ;
|
|
cBMarks + ","
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
FUNCTION hbide_getIniPath( cHbideIni )
|
|
LOCAL cPath, cIni
|
|
|
|
IF empty( cHbideIni )
|
|
IF ! hb_FileExists( cIni := hb_dirBase() + "hbide.ini" )
|
|
#if defined( __PLATFORM__WINDOWS )
|
|
cPath := hb_DirSepAdd( GetEnv( "APPDATA" ) ) + "hbide\"
|
|
#elif defined( __PLATFORM__UNIX )
|
|
cPath := hb_DirSepAdd( GetEnv( "HOME" ) ) + ".hbide/"
|
|
#elif defined( __PLATFORM__OS2 )
|
|
cPath := hb_DirSepAdd( GetEnv( "HOME" ) ) + ".hbide/"
|
|
#endif
|
|
IF ! hb_dirExists( cPath )
|
|
hb_DirCreate( cPath )
|
|
ENDIF
|
|
cIni := cPath + "hbide.ini"
|
|
ENDIF
|
|
ELSE
|
|
cIni := cHbideIni
|
|
ENDIF
|
|
|
|
RETURN cIni
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
FUNCTION hbide_loadSkltns( oIde, cPathSkltns )
|
|
LOCAL s, n, cSkltn, cCode
|
|
|
|
IF empty( cPathSkltns )
|
|
cPathSkltns := oIde:oINI:getSnippetsFile()
|
|
ENDIF
|
|
|
|
IF hb_fileExists( cPathSkltns )
|
|
s := hb_memoread( cPathSkltns )
|
|
|
|
DO WHILE .t.
|
|
IF ( n := at( "<", s ) ) == 0
|
|
EXIT
|
|
ENDIF
|
|
s := substr( s, n + 1 )
|
|
IF ( n := at( ">", s ) ) == 0
|
|
EXIT
|
|
ENDIF
|
|
cSkltn := substr( s, 1, n - 1 )
|
|
s := substr( s, n + 1 )
|
|
IF ( n := at( "</" + cSkltn + ">", s ) ) > 0
|
|
cCode := substr( s, 1, n - 1 )
|
|
cCode := alltrim( cCode )
|
|
IF left( cCode, 1 ) $ chr( 13 ) + chr( 10 )
|
|
cCode := substr( cCode, 2 )
|
|
ENDIF
|
|
IF left( cCode, 1 ) $ chr( 13 ) + chr( 10 )
|
|
cCode := substr( cCode, 2 )
|
|
ENDIF
|
|
IF right( cCode, 1 ) $ chr( 13 ) + chr( 10 )
|
|
cCode := substr( cCode, 1, len( cCode ) - 1 )
|
|
ENDIF
|
|
IF right( cCode, 1 ) $ chr( 13 ) + chr( 10 )
|
|
cCode := substr( cCode, 1, len( cCode ) - 1 )
|
|
ENDIF
|
|
|
|
aadd( oIde:aSkltns, { cSkltn, cCode } )
|
|
s := substr( s, n + len( "</" + cSkltn + ">" ) )
|
|
ELSE
|
|
EXIT
|
|
ENDIF
|
|
ENDDO
|
|
ENDIF
|
|
|
|
RETURN NIL
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
FUNCTION hbide_saveSkltns( oIde )
|
|
LOCAL a_, txt_:= {}
|
|
|
|
FOR EACH a_ IN oIde:aSkltns
|
|
aadd( txt_, "<" + a_[ 1 ] + ">" )
|
|
aeval( hbide_memoToArray( a_[ 2 ] ), {|e| aadd( txt_, e ) } )
|
|
aadd( txt_, "</" + a_[ 1 ] + ">" )
|
|
aadd( txt_, "" )
|
|
NEXT
|
|
|
|
RETURN hbide_createTarget( oIde:oINI:getSnippetsFile(), txt_ )
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
FUNCTION hbide_loadShortcuts( oIde, cFileShortcuts )
|
|
LOCAL a_:= {}
|
|
|
|
IF empty( cFileShortcuts )
|
|
cFileShortcuts := oIde:oINI:getShortcutsFile()
|
|
ENDIF
|
|
IF hb_fileExists( cFileShortcuts )
|
|
a_:= hb_deSerialize( hb_memoread( cFileShortcuts ) )
|
|
ENDIF
|
|
|
|
RETURN a_
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
FUNCTION hbide_saveShortcuts( oIde, a_, cFileShortcuts )
|
|
|
|
IF empty( cFileShortcuts )
|
|
cFileShortcuts := oIde:oINI:getShortcutsFile()
|
|
ENDIF
|
|
hb_memowrit( cFileShortcuts, hb_serialize( a_ ) )
|
|
|
|
RETURN hb_fileExists( cFileShortcuts )
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
FUNCTION hbide_loadHarbourProtos( oIde )
|
|
|
|
HB_SYMBOL_UNUSED( oIde )
|
|
|
|
RETURN NIL //hbide_harbourProtos()
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
FUNCTION hbide_saveHarbourProtos( oIde, aProto )
|
|
LOCAL cFile := hb_dirBase() + "idehbprotos.prg"
|
|
LOCAL txt_ := {}
|
|
LOCAL cTxt := ""
|
|
|
|
HB_SYMBOL_UNUSED( oIde )
|
|
|
|
aadd( txt_, "/*" )
|
|
aadd( txt_, " * $Id$" )
|
|
aadd( txt_, " */" )
|
|
aadd( txt_, "" )
|
|
aadd( txt_, "/* -------------------------------------------------------------------- */" )
|
|
aadd( txt_, "/* WARNING: Automatically generated source file. DO NOT EDIT! */" )
|
|
aadd( txt_, "/* Instead, edit corresponding .qth file, */" )
|
|
aadd( txt_, "/* or the generator tool itself, and run regenarate. */" )
|
|
aadd( txt_, "/* -------------------------------------------------------------------- */" )
|
|
aadd( txt_, " " )
|
|
|
|
aadd( txt_, "" )
|
|
aadd( txt_, "FUNCTION hbide_harbourProtos()" )
|
|
aadd( txt_, " LOCAL aProto := {}" )
|
|
aadd( txt_, "" )
|
|
aeval( aProto, {|e| aadd( txt_, ' aadd( aProto, "' + strtran( e, '"', "'" ) + '" )' ) } )
|
|
aadd( txt_, "" )
|
|
aadd( txt_, " RETURN aProto" )
|
|
aadd( txt_, "" )
|
|
|
|
|
|
aeval( txt_, {|e| cTxt += e + chr( 13 ) + chr( 10 ) } )
|
|
|
|
hb_memoWrit( cFile, cTxt )
|
|
|
|
RETURN hb_fileExists( cFile )
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
//
|
|
// Class IdeSetup
|
|
//
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
CLASS IdeSetup INHERIT IdeObject
|
|
|
|
DATA oINI
|
|
DATA qOrgPalette
|
|
DATA aItems INIT {}
|
|
DATA aTree INIT { "General", "Selections", "Font", "Paths", "Variables", "Dictionaries", "Themes", "Formatting" }
|
|
DATA aStyles INIT { "cleanlooks", "windows", "windowsxp", ;
|
|
"windowsvista", "cde", "motif", "plastique", "macintosh" }
|
|
DATA aKeyItems INIT {}
|
|
DATA aDictionaries INIT {}
|
|
|
|
DATA nCurThemeSlot INIT 0
|
|
DATA aHilighters INIT {}
|
|
|
|
METHOD new( oIde )
|
|
METHOD create( oIde )
|
|
METHOD destroy()
|
|
METHOD show()
|
|
METHOD execEvent( cEvent, p, p1 )
|
|
METHOD buildTree()
|
|
METHOD setSystemStyle( cStyle )
|
|
METHOD setBaseColor()
|
|
METHOD connectSlots()
|
|
METHOD disConnectSlots()
|
|
METHOD setIcons()
|
|
METHOD populate()
|
|
METHOD retrieve()
|
|
METHOD eol()
|
|
METHOD buildKeywords()
|
|
METHOD populateKeyTableRow( nRow, cTxtCol1, cTxtCol2 )
|
|
METHOD populateThemeColors( nSlot, aRGB )
|
|
METHOD pullThemeColors( nSlot )
|
|
METHOD fetchThemeColorsString( nSlot )
|
|
METHOD pushThemeColors( nTheme )
|
|
METHOD pushThemesData()
|
|
METHOD getThemeData( nTheme )
|
|
METHOD viewIt( cFileName, lSaveAs, lSave, lReadOnly, lApplyHiliter )
|
|
|
|
ENDCLASS
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:new( oIde )
|
|
::oIde := oIde
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:create( oIde )
|
|
DEFAULT oIde TO ::oIde
|
|
::oIde := oIde
|
|
::oINI := ::oIde:oINI
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:destroy()
|
|
|
|
IF !empty( ::oUI )
|
|
::disConnectSlots()
|
|
::oUI:destroy()
|
|
ENDIF
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:eol()
|
|
RETURN iif( ::oINI:cLineEndingMode == "CRLF", hb_eol(), iif( ::oINI:cLineEndingMode == "CR", chr( 13 ), ;
|
|
iif( ::oINI:cLineEndingMode == "LF", chr( 10 ), hb_eol() ) ) )
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:setIcons()
|
|
|
|
::oUI:q_buttonAddTextExt : setIcon( hbide_image( "dc_plus" ) )
|
|
::oUI:q_buttonDelTextExt : setIcon( hbide_image( "dc_delete" ) )
|
|
|
|
::oUI:q_buttonKeyAdd : setIcon( hbide_image( "dc_plus" ) )
|
|
::oUI:q_buttonKeyDel : setIcon( hbide_image( "dc_delete" ) )
|
|
::oUI:q_buttonKeyUp : setIcon( hbide_image( "dc_up" ) )
|
|
::oUI:q_buttonKeyDown : setIcon( hbide_image( "dc_down" ) )
|
|
|
|
/* Paths */
|
|
::oUI:q_buttonPathHrbRoot : setIcon( hbide_image( "open" ) )
|
|
::oUI:q_buttonPathHbmk2 : setIcon( hbide_image( "open" ) )
|
|
::oUI:q_buttonPathEnv : setIcon( hbide_image( "open" ) )
|
|
::oUI:q_buttonPathResources : setIcon( hbide_image( "open" ) )
|
|
::oUI:q_buttonPathTemp : setIcon( hbide_image( "open" ) )
|
|
::oUI:q_buttonPathShortcuts : setIcon( hbide_image( "open" ) )
|
|
::oUI:q_buttonPathSnippets : setIcon( hbide_image( "open" ) )
|
|
::oUI:q_buttonPathThemes : setIcon( hbide_image( "open" ) )
|
|
|
|
::oUI:q_buttonViewIni : setIcon( hbide_image( "file-open" ) )
|
|
::oUI:q_buttonViewEnv : setIcon( hbide_image( "file-open" ) )
|
|
::oUI:q_buttonViewSnippets : setIcon( hbide_image( "file-open" ) )
|
|
::oUI:q_buttonViewThemes : setIcon( hbide_image( "file-open" ) )
|
|
|
|
::oUI:q_buttonSelFont : setIcon( hbide_image( "font" ) )
|
|
|
|
::oUI:q_buttonThmAdd : setIcon( hbide_image( "dc_plus" ) )
|
|
::oUI:q_buttonThmDel : setIcon( hbide_image( "dc_delete" ) )
|
|
::oUI:q_buttonThmApp : setIcon( hbide_image( "copy" ) )
|
|
::oUI:q_buttonThmSav : setIcon( hbide_image( "save" ) )
|
|
|
|
/* Dictionaries */
|
|
::oUI:q_buttonDictPath : setIcon( hbide_image( "open" ) )
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:disConnectSlots()
|
|
|
|
::oUI:q_buttonAddTextExt :disconnect( "clicked()" )
|
|
::oUI:q_buttonDelTextExt :disconnect( "clicked()" )
|
|
|
|
::oUI:q_buttonKeyAdd :disconnect( "clicked()" )
|
|
::oUI:q_buttonKeyDel :disconnect( "clicked()" )
|
|
::oUI:q_buttonKeyUp :disconnect( "clicked()" )
|
|
::oUI:q_buttonKeyDown :disconnect( "clicked()" )
|
|
|
|
::oUI:q_tableVar :disconnect( "itemActivated(QTableWidgetItem*)" )
|
|
|
|
::oUI:q_buttonSelFont :disconnect( "clicked()" )
|
|
::oUI:q_buttonClose :disConnect( "clicked()" )
|
|
::oUI:q_buttonOK :disConnect( "clicked()" )
|
|
::oUI:q_buttonCancel :disConnect( "clicked()" )
|
|
::oUI:q_treeWidget :disConnect( "itemSelectionChanged()" )
|
|
::oUI:q_comboStyle :disconnect( "currentIndexChanged(int)" )
|
|
|
|
::oUI:q_checkAnimated :disconnect( "stateChanged(int)" )
|
|
|
|
::oUI:q_checkHilightLine :disconnect( "stateChanged(int)" )
|
|
::oUI:q_checkHorzRuler :disconnect( "stateChanged(int)" )
|
|
::oUI:q_checkLineNumbers :disconnect( "stateChanged(int)" )
|
|
|
|
::oUI:q_sliderRed :disconnect( "valueChanged(int)" )
|
|
::oUI:q_sliderGreen :disconnect( "valueChanged(int)" )
|
|
::oUI:q_sliderBlue :disconnect( "valueChanged(int)" )
|
|
|
|
::oUI:q_radioSec1 :disconnect( "clicked()" )
|
|
::oUI:q_radioSec2 :disconnect( "clicked()" )
|
|
::oUI:q_radioSec3 :disconnect( "clicked()" )
|
|
::oUI:q_radioSec4 :disconnect( "clicked()" )
|
|
::oUI:q_radioSec5 :disconnect( "clicked()" )
|
|
|
|
::oUI:q_buttonThmAdd :disconnect( "clicked()" )
|
|
::oUI:q_buttonThmDel :disconnect( "clicked()" )
|
|
::oUI:q_buttonThmApp :disconnect( "clicked()" )
|
|
::oUI:q_buttonThmSav :disconnect( "clicked()" )
|
|
|
|
::oUI:q_listThemes :disconnect( "currentRowChanged(int)" )
|
|
|
|
::oUI:q_buttonPathHrbRoot :disconnect( "clicked()" )
|
|
::oUI:q_buttonPathHbmk2 :disconnect( "clicked()" )
|
|
::oUI:q_buttonPathEnv :disconnect( "clicked()" )
|
|
::oUI:q_buttonPathResources :disconnect( "clicked()" )
|
|
::oUI:q_buttonPathTemp :disconnect( "clicked()" )
|
|
::oUI:q_buttonPathShortcuts :disconnect( "clicked()" )
|
|
::oUI:q_buttonPathSnippets :disconnect( "clicked()" )
|
|
::oUI:q_buttonPathThemes :disconnect( "clicked()" )
|
|
|
|
::oUI:q_buttonViewIni :disconnect( "clicked()" )
|
|
::oUI:q_buttonViewEnv :disconnect( "clicked()" )
|
|
::oUI:q_buttonViewSnippets :disconnect( "clicked()" )
|
|
::oUI:q_buttonViewThemes :disconnect( "clicked()" )
|
|
|
|
/* Dictionaries */
|
|
::oUI:q_buttonDictPath :disconnect( "clicked()" )
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:connectSlots()
|
|
|
|
::oUI:q_buttonAddTextExt :connect( "clicked()" , {| | ::execEvent( "buttonAddTextext_clicked" ) } )
|
|
::oUI:q_buttonDelTextExt :connect( "clicked()" , {| | ::execEvent( "buttonDelTextext_clicked" ) } )
|
|
|
|
::oUI:q_buttonKeyAdd :connect( "clicked()" , {| | ::execEvent( "buttonKeyAdd_clicked" ) } )
|
|
::oUI:q_buttonKeyDel :connect( "clicked()" , {| | ::execEvent( "buttonKeyDel_clicked" ) } )
|
|
::oUI:q_buttonKeyUp :connect( "clicked()" , {| | ::execEvent( "buttonKeyUp_clicked" ) } )
|
|
::oUI:q_buttonKeyDown :connect( "clicked()" , {| | ::execEvent( "buttonKeyDown_clicked" ) } )
|
|
|
|
::oUI:q_tableVar :connect( "itemActivated(QTableWidgetItem*)", {|p| ::execEvent( "tableVar_keyPress", p ) } )
|
|
|
|
::oUI:q_buttonSelFont :connect( "clicked()" , {| | ::execEvent( "buttonSelFont_clicked" ) } )
|
|
::oUI:q_buttonClose :connect( "clicked()" , {| | ::execEvent( "buttonClose_clicked" ) } )
|
|
::oUI:q_buttonOk :connect( "clicked()" , {| | ::execEvent( "buttonOk_clicked" ) } )
|
|
::oUI:q_buttonCancel :connect( "clicked()" , {| | ::execEvent( "buttonCancel_clicked" ) } )
|
|
::oUI:q_treeWidget :connect( "itemSelectionChanged()" , {| | ::execEvent( "treeWidget_itemSelectionChanged" ) } )
|
|
::oUI:q_comboStyle :connect( "currentIndexChanged(int)", {|i| ::execEvent( "comboStyle_currentIndexChanged", i ) } )
|
|
|
|
::oUI:q_checkAnimated :connect( "stateChanged(int)" , {|i| ::execEvent( "checkAnimated_stateChanged", i ) } )
|
|
|
|
::oUI:q_checkHilightLine :connect( "stateChanged(int)" , {|i| ::execEvent( "checkHilightLine_stateChanged", i ) } )
|
|
::oUI:q_checkHorzRuler :connect( "stateChanged(int)" , {|i| ::execEvent( "checkHorzRuler_stateChanged" , i ) } )
|
|
::oUI:q_checkLineNumbers :connect( "stateChanged(int)" , {|i| ::execEvent( "checkLineNumbers_stateChanged", i ) } )
|
|
|
|
::oUI:q_sliderRed :connect( "valueChanged(int)" , {|i| ::execEvent( "sliderValue_changed", i, "R" ) } )
|
|
::oUI:q_sliderGreen :connect( "valueChanged(int)" , {|i| ::execEvent( "sliderValue_changed", i, "G" ) } )
|
|
::oUI:q_sliderBlue :connect( "valueChanged(int)" , {|i| ::execEvent( "sliderValue_changed", i, "B" ) } )
|
|
|
|
::oUI:q_radioSec1 :connect( "clicked()" , {| | ::execEvent( "radioSection_clicked", 1 ) } )
|
|
::oUI:q_radioSec2 :connect( "clicked()" , {| | ::execEvent( "radioSection_clicked", 2 ) } )
|
|
::oUI:q_radioSec3 :connect( "clicked()" , {| | ::execEvent( "radioSection_clicked", 3 ) } )
|
|
::oUI:q_radioSec4 :connect( "clicked()" , {| | ::execEvent( "radioSection_clicked", 4 ) } )
|
|
::oUI:q_radioSec5 :connect( "clicked()" , {| | ::execEvent( "radioSection_clicked", 5 ) } )
|
|
|
|
::oUI:q_buttonThmAdd :connect( "clicked()" , {| | ::execEvent( "buttonThmAdd_clicked" ) } )
|
|
::oUI:q_buttonThmDel :connect( "clicked()" , {| | ::execEvent( "buttonThmDel_clicked" ) } )
|
|
::oUI:q_buttonThmApp :connect( "clicked()" , {| | ::execEvent( "buttonThmApp_clicked" ) } )
|
|
::oUI:q_buttonThmSav :connect( "clicked()" , {| | ::execEvent( "buttonThmSav_clicked" ) } )
|
|
|
|
::oUI:q_listThemes :connect( "currentRowChanged(int)" , {|i| ::execEvent( "listThemes_currentRowChanged", i ) } )
|
|
|
|
::oUI:q_buttonPathHrbRoot :connect( "clicked()" , {| | ::execEvent( "buttonHrbRoot_clicked" ) } )
|
|
::oUI:q_buttonPathHbmk2 :connect( "clicked()" , {| | ::execEvent( "buttonHbmk2_clicked" ) } )
|
|
::oUI:q_buttonPathEnv :connect( "clicked()" , {| | ::execEvent( "buttonEnv_clicked" ) } )
|
|
::oUI:q_buttonPathResources :connect( "clicked()" , {| | ::execEvent( "buttonResources_clicked" ) } )
|
|
::oUI:q_buttonPathTemp :connect( "clicked()" , {| | ::execEvent( "buttonTemp_clicked" ) } )
|
|
::oUI:q_buttonPathShortcuts :connect( "clicked()" , {| | ::execEvent( "buttonShortcuts_clicked" ) } )
|
|
::oUI:q_buttonPathSnippets :connect( "clicked()" , {| | ::execEvent( "buttonSnippets_clicked" ) } )
|
|
::oUI:q_buttonPathThemes :connect( "clicked()" , {| | ::execEvent( "buttonThemes_clicked" ) } )
|
|
|
|
::oUI:q_buttonViewIni :connect( "clicked()" , {| | ::execEvent( "buttonViewIni_clicked" ) } )
|
|
::oUI:q_buttonViewEnv :connect( "clicked()" , {| | ::execEvent( "buttonViewEnv_clicked" ) } )
|
|
::oUI:q_buttonViewSnippets :connect( "clicked()" , {| | ::execEvent( "buttonViewSnippets_clicked" ) } )
|
|
::oUI:q_buttonViewThemes :connect( "clicked()" , {| | ::execEvent( "buttonViewThemes_clicked" ) } )
|
|
|
|
::oUI:q_buttonDictPath :connect( "clicked()" , {| | ::execEvent( "buttonDictPath_clicked" ) } )
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:retrieve()
|
|
LOCAL a_, i, s, qItm
|
|
|
|
::oINI:cLineEndingMode := iif( ::oUI:q_radioLineEndCRLF : isChecked(), "CRLF", ;
|
|
iif( ::oUI:q_radioLineEndCR : isChecked(), "CR" , ;
|
|
iif( ::oUI:q_radioLineEndLF : isChecked(), "LF" , ;
|
|
iif( ::oUI:q_radioLineEndOS : isChecked(), "OS" , ;
|
|
iif( ::oUI:q_radioLineEndAuto : isChecked(), "AUTO", "CRLF" ) ) ) ) )
|
|
|
|
::oINI:lTrimTrailingBlanks := ::oUI:q_checkTrimTrailingBlanks : isChecked()
|
|
::oINI:lSaveSourceWhenComp := ::oUI:q_checkSaveSourceWhenComp : isChecked()
|
|
::oINI:lSupressHbKWordsToUpper := ::oUI:q_checkSupressHbKWordsToUpper : isChecked()
|
|
::oINI:lReturnAsBeginKeyword := ::oUI:q_checkReturnAsBeginKeyword : isChecked()
|
|
::oINI:lConvTabToSpcWhenLoading := ::oUI:q_checkConvTabToSpcWhenLoading : isChecked()
|
|
::oINI:lTabToSpcInEdits := ::oUI:q_checkTabToSpcInEdits : isChecked()
|
|
::oINI:lAutoIndent := ::oUI:q_checkAutoIndent : isChecked()
|
|
::oINI:lSmartIndent := ::oUI:q_checkSmartIndent : isChecked()
|
|
::oIde:nTabSpaces := val( ::oUI:q_editTabSpaces : text() )
|
|
::oINI:nIndentSpaces := val( ::oUI:q_editIndentSpaces : text() )
|
|
::oINI:lEditsMdi := ::oUI:q_checkEditsMdi : isChecked()
|
|
|
|
::oINI:aKeywords := {}
|
|
FOR EACH a_ IN ::aKeyItems
|
|
aadd( ::oINI:aKeywords, { alltrim( ::aKeyItems[ a_:__enumIndex(),1 ]:text() ), alltrim( ::aKeyItems[ a_:__enumIndex(),2 ]:text() ) } )
|
|
NEXT
|
|
|
|
s := ""
|
|
FOR i := 1 TO ::oUI:q_listTextExt:count()
|
|
qItm := ::oUI:q_listTextExt:item( i - 1 )
|
|
s += "." + qItm:text() + ","
|
|
NEXT
|
|
s := substr( s, 1, len( s ) - 1 )
|
|
::oINI:cTextFileExtensions := s
|
|
|
|
::oINI:nTmpBkpPrd := val( ::oUI:q_editTmpBkpPrd : text() )
|
|
::oINI:cBkpPath := ::oUI:q_editBkpPath : text()
|
|
::oINI:cBkpSuffix := ::oUI:q_editBkpSuffix : text()
|
|
::oINI:lCompletionWithArgs := ::oUI:q_checkListlWithArgs : isChecked()
|
|
::oINI:lCompleteArgumented := ::oUI:q_checkCmplInclArgs : isChecked()
|
|
|
|
/* Paths */
|
|
::oINI:cPathHrbRoot := ::oUI:q_editPathHrbRoot : text()
|
|
::oINI:cPathHbMk2 := ::oUI:q_editPathHbMk2 : text()
|
|
::oINI:cPathResources := ::oUI:q_editPathResources : text()
|
|
::oINI:cPathTemp := ::oUI:q_editPathTemp : text()
|
|
::oINI:cPathEnv := ::oUI:q_editPathEnv : text()
|
|
::oINI:cPathShortcuts := ::oUI:q_editPathShortcuts : text()
|
|
::oINI:cPathSnippets := ::oUI:q_editPathSnippets : text()
|
|
::oINI:cPathThemes := ::oUI:q_editPathThemes : text()
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:populate()
|
|
LOCAL s, a_
|
|
|
|
::disconnectSlots()
|
|
|
|
::oUI:q_checkAnimated : setChecked( val( ::oINI:cIdeAnimated ) > 0 )
|
|
|
|
::oUI:q_checkHilightLine : setChecked( ::oIde:lCurrentLineHighlightEnabled )
|
|
::oUI:q_checkHorzRuler : setChecked( ::oIde:lHorzRulerVisible )
|
|
::oUI:q_checkLineNumbers : setChecked( ::oIde:lLineNumbersVisible )
|
|
|
|
/* Line Ending Mode */
|
|
s := ::oINI:cLineEndingMode
|
|
//
|
|
::oUI:q_radioLineEndCRLF : setChecked( s == "CRLF" .OR. empty( s ) )
|
|
::oUI:q_radioLineEndCR : setChecked( s == "CR" )
|
|
::oUI:q_radioLineEndLF : setChecked( s == "LF" )
|
|
::oUI:q_radioLineEndOS : setChecked( s == "OS" )
|
|
::oUI:q_radioLineEndAuto : setChecked( s == "AUTO" )
|
|
|
|
::oUI:q_checkTrimTrailingBlanks : setChecked( ::oINI:lTrimTrailingBlanks )
|
|
::oUI:q_checkSaveSourceWhenComp : setChecked( ::oINI:lSaveSourceWhenComp )
|
|
::oUI:q_checkSupressHbKWordsToUpper : setChecked( ::oINI:lSupressHbKWordsToUpper )
|
|
::oUI:q_checkReturnAsBeginKeyword : setChecked( ::oINI:lReturnAsBeginKeyword )
|
|
::oUI:q_checkConvTabToSpcWhenLoading : setChecked( ::oINI:lConvTabToSpcWhenLoading )
|
|
::oUI:q_checkTabToSpcInEdits : setChecked( ::oINI:lTabToSpcInEdits )
|
|
::oUI:q_checkAutoIndent : setChecked( ::oINI:lAutoIndent )
|
|
::oUI:q_checkSmartIndent : setChecked( ::oINI:lSmartIndent )
|
|
::oUI:q_editTabSpaces : setText( hb_ntos( ::oIde:nTabSpaces ) )
|
|
::oUI:q_editIndentSpaces : setText( hb_ntos( ::oINI:nIndentSpaces ) )
|
|
::oUI:q_checkEditsMdi : setChecked( ::oINI:lEditsMdi )
|
|
|
|
/* Paths */
|
|
::oUI:q_editPathIni : setText( ::oIde:cProjIni )
|
|
//
|
|
::oUI:q_editPathHrbRoot : setText( ::oINI:cPathHrbRoot )
|
|
::oUI:q_editPathHbMk2 : setText( ::oINI:cPathHbMk2 )
|
|
::oUI:q_editPathResources : setText( ::oINI:cPathResources )
|
|
::oUI:q_editPathTemp : setText( ::oINI:cPathTemp )
|
|
::oUI:q_editPathEnv : setText( ::oINI:cPathEnv )
|
|
::oUI:q_editPathShortcuts : setText( ::oINI:cPathShortcuts )
|
|
::oUI:q_editPathSnippets : setText( ::oINI:cPathSnippets )
|
|
::oUI:q_editPathThemes : setText( ::oINI:cPathThemes )
|
|
|
|
/* Variables */
|
|
::oUI:q_tableVar:clearContents()
|
|
::aKeyItems := {}
|
|
FOR EACH a_ IN ::oINI:aKeywords
|
|
::populateKeyTableRow( a_:__enumIndex(), a_[ 1 ], a_[ 2 ] )
|
|
NEXT
|
|
|
|
::oUI:q_listTextExt:clear()
|
|
a_:= hb_atokens( ::oINI:cTextFileExtensions, ",." )
|
|
FOR EACH s IN a_
|
|
::oUI:q_listTextExt:addItem( strtran( s, "." ) )
|
|
NEXT
|
|
::oUI:q_listTextExt:setSortingEnabled( .t. )
|
|
::oUI:q_listTextExt:sortItems()
|
|
|
|
::oUI:q_editTmpBkpPrd : setText( hb_ntos( ::oINI:nTmpBkpPrd ) )
|
|
::oUI:q_editBkpPath : setText( ::oINI:cBkpPath )
|
|
::oUI:q_editBkpSuffix : setText( ::oINI:cBkpSuffix )
|
|
|
|
/* Selections - Code Completion */
|
|
::oUI:q_checkListlWithArgs : setChecked( ::oINI:lCompletionWithArgs )
|
|
::oUI:q_checkCmplInclArgs : setChecked( ::oINI:lCompleteArgumented )
|
|
|
|
/* Themes */
|
|
::oUI:q_sliderRed:setMinimum( 0 )
|
|
::oUI:q_sliderRed:setMaximum( 255 )
|
|
|
|
::oUI:q_sliderGreen:setMinimum( 0 )
|
|
::oUI:q_sliderGreen:setMaximum( 255 )
|
|
|
|
::oUI:q_sliderBlue:setMinimum( 0 )
|
|
::oUI:q_sliderBlue:setMaximum( 255 )
|
|
|
|
::oUI:q_editSec1:setText( "0" )
|
|
::oUI:q_editSec5:setText( "1" )
|
|
|
|
::oUI:q_editSec1:setReadOnly( .t. )
|
|
::oUI:q_editSec5:setReadOnly( .t. )
|
|
|
|
::connectSlots()
|
|
|
|
::pushThemesData()
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:show()
|
|
LOCAL cStyle
|
|
|
|
IF empty( ::oUI )
|
|
|
|
::oUI := hbide_getUI( "setup", ::oDlg:oWidget )
|
|
|
|
::oUI:setWindowFlags( Qt_Sheet )
|
|
|
|
::oUI:setMaximumWidth( ::oUI:width() )
|
|
::oUI:setMinimumWidth( ::oUI:width() )
|
|
::oUI:setMaximumHeight( ::oUI:height() )
|
|
::oUI:setMinimumHeight( ::oUI:height() )
|
|
|
|
::buildTree()
|
|
::buildKeywords()
|
|
|
|
::oUI:q_editFontName:setText( ::oINI:cFontName )
|
|
::oUI:q_editPointSize:setText( hb_ntos( ::oINI:nPointSize ) )
|
|
|
|
FOR EACH cStyle IN ::aStyles
|
|
::oUI:q_comboStyle:addItem( cStyle )
|
|
NEXT
|
|
::oUI:q_comboStyle:setCurrentIndex( ascan( ::aStyles, {|e| e == ::oINI:cIdeTheme } ) - 1 )
|
|
|
|
::setIcons()
|
|
::connectSlots()
|
|
|
|
::oUI:hide()
|
|
ENDIF
|
|
|
|
::populate()
|
|
::oIde:setPosByIniEx( ::oUI:oWidget, ::oINI:cSetupDialogGeometry )
|
|
//::oUI:exec()
|
|
::oUI:show()
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:execEvent( cEvent, p, p1 )
|
|
LOCAL qItem, nIndex, qFontDlg, qFont, nOK, nRow, b_, q0, q1, nCol, w0, w1
|
|
LOCAL aRGB, nSlot, qFrame, aGrad, n, cCSS, cTheme, cPath, cBuffer
|
|
|
|
HB_SYMBOL_UNUSED( p1 )
|
|
|
|
SWITCH cEvent
|
|
|
|
CASE "buttonSelFont_clicked"
|
|
qFont := QFont( ::oINI:cFontName, ::oINI:nPointSize )
|
|
qFont:setFixedPitch( .t. )
|
|
qFontDlg := QFontDialog( ::oUI )
|
|
qFontDlg:setCurrentFont( qFont )
|
|
nOK := qFontDlg:exec()
|
|
IF nOK == 1
|
|
qFont := qFontDlg:currentFont()
|
|
|
|
::oUI:q_editFontName:setText( qFont:family() )
|
|
::oUI:q_editPointSize:setText( hb_ntos( qFont:pointSize() ) )
|
|
|
|
::oINI:cFontName := ::oUI:q_editFontName:text()
|
|
::oINI:nPointSize := val( ::oUI:q_editPointSize:text() )
|
|
ENDIF
|
|
EXIT
|
|
|
|
CASE "checkAnimated_stateChanged"
|
|
::oDK:animateComponents( iif( p == 0, 0, 1 ) )
|
|
EXIT
|
|
|
|
CASE "checkHilightLine_stateChanged"
|
|
::oEM:toggleCurrentLineHighlightMode()
|
|
EXIT
|
|
|
|
CASE "checkHorzRuler_stateChanged"
|
|
::oEM:toggleHorzRuler()
|
|
EXIT
|
|
|
|
CASE "checkLineNumbers_stateChanged"
|
|
::oEM:toggleLineNumbers()
|
|
EXIT
|
|
|
|
CASE "treeWidget_itemSelectionChanged"
|
|
qItem := ::oUI:q_treeWidget:currentItem()
|
|
IF ( nIndex := ascan( ::aTree, qItem:text( 0 ) ) ) > 0
|
|
::oUI:q_stackedWidget:setCurrentIndex( nIndex - 1 )
|
|
ENDIF
|
|
EXIT
|
|
|
|
CASE "buttonCancel_clicked"
|
|
::oIde:oINI:cSetupDialogGeometry := hbide_posAndSize( ::oUI:oWidget )
|
|
::oUI:done( 0 )
|
|
EXIT
|
|
|
|
CASE "buttonClose_clicked"
|
|
CASE "buttonOk_clicked"
|
|
::oIde:oINI:cSetupDialogGeometry := hbide_posAndSize( ::oUI:oWidget )
|
|
::retrieve()
|
|
::oUI:done( 1 )
|
|
EXIT
|
|
|
|
CASE "comboStyle_currentIndexChanged"
|
|
IF ( nIndex := ::oUI:q_comboStyle:currentIndex() ) > -1
|
|
::oINI:cIdeTheme := ::aStyles[ nIndex + 1 ]
|
|
::setSystemStyle( ::aStyles[ nIndex + 1 ] )
|
|
ENDIF
|
|
EXIT
|
|
|
|
CASE "buttonAddTextext_clicked"
|
|
q0 := hbide_fetchAString( ::oUI, "", "Text File Extension" )
|
|
IF !empty( q0 )
|
|
::oUI:q_listTextExt:addItem( lower( strtran( q0, "." ) ) )
|
|
ENDIF
|
|
EXIT
|
|
|
|
CASE "buttonDelTextext_clicked"
|
|
IF ::oUI:q_listTextExt:currentRow() >= 0
|
|
::oUI:q_listTextExt:takeItem( ::oUI:q_listTextExt:currentRow() )
|
|
ENDIF
|
|
EXIT
|
|
|
|
CASE "buttonKeyAdd_clicked"
|
|
::populateKeyTableRow( len( ::aKeyItems ) + 1, "", "" )
|
|
::oUI:q_tableVar:setCurrentItem( ::aKeyItems[ len( ::aKeyItems ), 1 ] )
|
|
EXIT
|
|
|
|
CASE "buttonKeyDel_clicked"
|
|
IF ( nRow := ::oUI:q_tableVar:currentRow() ) >= 0
|
|
::oUI:q_tableVar:removeRow( nRow )
|
|
hb_adel( ::aKeyItems , nRow + 1, .t. )
|
|
hb_adel( ::oINI:aKeywords, nRow + 1, .t. )
|
|
ENDIF
|
|
EXIT
|
|
|
|
CASE "buttonKeyUp_clicked"
|
|
IF ( nRow := ::oUI:q_tableVar:currentRow() ) >= 1
|
|
nCol := ::oUI:q_tableVar:currentColumn()
|
|
|
|
b_ := ::aKeyItems[ nRow+1 ]
|
|
q0 := QTableWidgetItem(); q0:setText( b_[ 1 ]:text() )
|
|
q1 := QTableWidgetItem(); q1:setText( b_[ 2 ]:text() )
|
|
|
|
b_ := ::aKeyItems[ nRow+0 ]
|
|
w0 := QTableWidgetItem(); w0:setText( b_[ 1 ]:text() )
|
|
w1 := QTableWidgetItem(); w1:setText( b_[ 2 ]:text() )
|
|
|
|
::oUI:q_tableVar:setItem( nRow-0, 0, w0 )
|
|
::oUI:q_tableVar:setItem( nRow-0, 1, w1 )
|
|
|
|
::oUI:q_tableVar:setItem( nRow-1, 0, q0 )
|
|
::oUI:q_tableVar:setItem( nRow-1, 1, q1 )
|
|
|
|
::aKeyItems[ nRow+1 ] := { w0,w1 }
|
|
::aKeyItems[ nRow+0 ] := { q0,q1 }
|
|
|
|
::oUI:q_tableVar:setCurrentItem( iif( nCol == 0, q0, q1 ) )
|
|
ENDIF
|
|
EXIT
|
|
|
|
CASE "buttonKeyDown_clicked"
|
|
nRow := ::oUI:q_tableVar:currentRow()
|
|
IF nRow >= 0 .AND. nRow + 1 < len( ::aKeyItems )
|
|
|
|
nCol := ::oUI:q_tableVar:currentColumn()
|
|
|
|
b_ := ::aKeyItems[ nRow + 1 ]
|
|
q0 := QTableWidgetItem(); q0:setText( b_[ 1 ]:text() )
|
|
q1 := QTableWidgetItem(); q1:setText( b_[ 2 ]:text() )
|
|
|
|
b_ := ::aKeyItems[ nRow + 2 ]
|
|
w0 := QTableWidgetItem(); w0:setText( b_[ 1 ]:text() )
|
|
w1 := QTableWidgetItem(); w1:setText( b_[ 2 ]:text() )
|
|
|
|
::oUI:q_tableVar:setItem( nRow, 0, w0 )
|
|
::oUI:q_tableVar:setItem( nRow, 1, w1 )
|
|
|
|
::oUI:q_tableVar:setItem( nRow+1, 0, q0 )
|
|
::oUI:q_tableVar:setItem( nRow+1, 1, q1 )
|
|
|
|
::aKeyItems[ nRow + 1 ] := { w0,w1 }
|
|
::aKeyItems[ nRow + 2 ] := { q0,q1 }
|
|
|
|
::oUI:q_tableVar:setCurrentItem( iif( nCol == 0, q0, q1 ) )
|
|
ENDIF
|
|
EXIT
|
|
|
|
CASE "tableVar_keyPress"
|
|
IF ( nRow := ::oUI:q_tableVar:currentRow() ) >= 0
|
|
HB_TRACE( HB_TR_DEBUG, "RECEIVING ENTER KEY" )
|
|
::oUI:q_tableVar:editItem( p )
|
|
HB_SYMBOL_UNUSED( nRow )
|
|
#if 0
|
|
IF ::oUI:q_tableVar:currentColumn() == 0
|
|
::oUI:q_tableVar:setCurrentCell( ::oUI:q_tableVar:currentRow(), 1 )
|
|
ENDIF
|
|
#endif
|
|
ENDIF
|
|
|
|
CASE "radioSection_clicked"
|
|
::nCurThemeSlot := p
|
|
IF empty( aRGB := ::pullThemeColors( p ) )
|
|
aRGB := { 0,0,0 }
|
|
ENDIF
|
|
::oUI:q_sliderRed : setValue( aRGB[ 1 ] )
|
|
::oUI:q_sliderGreen : setValue( aRGB[ 2 ] )
|
|
::oUI:q_sliderBlue : setValue( aRGB[ 3 ] )
|
|
EXIT
|
|
|
|
CASE "sliderValue_changed"
|
|
nSlot := ::nCurThemeSlot
|
|
|
|
IF nSlot > 0
|
|
qFrame := { ::oUI:q_frameSec1, ::oUI:q_frameSec2, ::oUI:q_frameSec3, ::oUI:q_frameSec4, ::oUI:q_frameSec5 }[ nSlot ]
|
|
aRGB := { ::oUI:q_sliderRed:value(), ::oUI:q_sliderGreen:value(), ::oUI:q_sliderBlue:value() }
|
|
::populateThemeColors( nSlot, aRGB )
|
|
qFrame:setStyleSheet( "background-color: " + hbide_rgbString( aRGB ) + ";" )
|
|
ENDIF
|
|
|
|
aGrad := {}
|
|
FOR nSlot := 1 TO 5
|
|
n := val( { ::oUI:q_editSec1, ::oUI:q_editSec2, ::oUI:q_editSec3, ::oUI:q_editSec4, ::oUI:q_editSec5 }[ nSlot ]:text() )
|
|
|
|
IF !empty( aRGB := ::pullThemeColors( nSlot ) )
|
|
aadd( aGrad, { n, aRGB[ 1 ], aRGB[ 2 ], aRGB[ 3 ] } )
|
|
ENDIF
|
|
NEXT
|
|
IF !empty( aGrad )
|
|
cCSS := 'background-color: qlineargradient(x1:0, y1:0, x2:1, y2:0, ' + hbide_buildGradientString( aGrad ) + ");"
|
|
::oUI:q_frameHorz:setStyleSheet( cCSS )
|
|
cCSS := 'background-color: qlineargradient(x1:0, y1:0, x2:0, y2:1, ' + hbide_buildGradientString( aGrad ) + ");"
|
|
::oUI:q_frameVert:setStyleSheet( cCSS )
|
|
ENDIF
|
|
EXIT
|
|
|
|
CASE "listThemes_currentRowChanged"
|
|
::pushThemeColors( p + 1 )
|
|
EXIT
|
|
CASE "buttonThmAdd_clicked"
|
|
IF !empty( cTheme := hbide_fetchAString( ::oDlg:oWidget, cTheme, "Name the Theme", "New Theme" ) )
|
|
aadd( ::oINI:aAppThemes, cTheme + "," + ::fetchThemeColorsString() )
|
|
qItem := QListWidgetItem()
|
|
qItem:setText( cTheme )
|
|
//::oUI:q_listThemes:addItem_1( qItem )
|
|
::oUI:q_listThemes:addItem( qItem )
|
|
::oUI:q_listThemes:setCurrentRow( len( ::oINI:aAppThemes ) - 1 )
|
|
ENDIF
|
|
EXIT
|
|
CASE "buttonThmApp_clicked"
|
|
IF ( n := ::oUI:q_listThemes:currentRow() ) > -1
|
|
hbide_setAppTheme( ::getThemeData( n + 1 ) )
|
|
::oDK:animateComponents( HBIDE_ANIMATION_GRADIENT )
|
|
ENDIF
|
|
EXIT
|
|
CASE "buttonThmDel_clicked"
|
|
EXIT
|
|
CASE "buttonThmSav_clicked"
|
|
IF ( n := ::oUI:q_listThemes:currentRow() ) > -1
|
|
::oINI:aAppThemes[ n + 1 ] := ::oUI:q_listThemes:currentItem():text() + "," + ;
|
|
::fetchThemeColorsString()
|
|
ENDIF
|
|
EXIT
|
|
|
|
CASE "buttonIni_clicked"
|
|
EXIT
|
|
CASE "buttonHrbRoot_clicked"
|
|
IF ! empty( cPath := hbide_fetchADir( ::oDlg, "Harbour's Root Path", ::oINI:cPathHrbRoot ) )
|
|
::oINI:cPathHrbRoot := cPath
|
|
::oUI:q_editPathHrbRoot:setText( hbide_pathStripLastSlash( cPath ) )
|
|
ENDIF
|
|
EXIT
|
|
CASE "buttonHbmk2_clicked"
|
|
IF !empty( cPath := hbide_fetchAFile( ::oDlg, "Location of hbmk2", ;
|
|
{ { "Harbour Project Builder - hbmk2", "*" } }, ::oINI:cPathHbMk2 ) )
|
|
::oINI:cPathhbMk2 := cPath
|
|
::oUI:q_editPathHbMk2:setText( cPath )
|
|
ENDIF
|
|
EXIT
|
|
CASE "buttonEnv_clicked"
|
|
IF !empty( cPath := hbide_fetchAFile( ::oDlg, "Environment Definitions File ( .env )", ;
|
|
{ { "Environment Files", "*.env" } }, ::oINI:getEnvFile() ) )
|
|
::oINI:cPathEnv := cPath
|
|
::oUI:q_editPathEnv:setText( cPath )
|
|
ENDIF
|
|
EXIT
|
|
CASE "buttonResources_clicked"
|
|
IF ! empty( cPath := hbide_fetchADir( ::oDlg, "Location of Resources ( Plugins, Dialogs, Images, Scripts )", ::oINI:getResourcesPath() ) )
|
|
::oINI:cPathResources := cPath
|
|
::oUI:q_editPathResources:setText( cPath )
|
|
ENDIF
|
|
EXIT
|
|
CASE "buttonTemp_clicked"
|
|
IF ! empty( cPath := hbide_fetchADir( ::oDlg, "Location for Temporary and Transitory Files", ::oINI:getTempPath() ) )
|
|
::oINI:cPathTemp := cPath
|
|
::oUI:q_editPathTemp:setText( cPath )
|
|
ENDIF
|
|
EXIT
|
|
CASE "buttonShortcuts_clicked"
|
|
IF !empty( cPath := hbide_fetchAFile( ::oDlg, "Keyboard Mapping Definitions File ( .scu )", ;
|
|
{ { "Keyboard Mappings", "*.scu" } }, ::oINI:getShortcutsFile() ) )
|
|
::oINI:cPathShortcuts := cPath
|
|
::oUI:q_editPathShortcuts:setText( cPath )
|
|
ENDIF
|
|
EXIT
|
|
CASE "buttonSnippets_clicked"
|
|
IF !empty( cPath := hbide_fetchAFile( ::oDlg, "Code Snippets File ( .skl )", ;
|
|
{ { "Code Snippets", "*.skl" } }, ::oINI:getSnippetsFile() ) )
|
|
::oINI:cPathSnippets := cPath
|
|
::oUI:q_editPathSnippets:setText( cPath )
|
|
ENDIF
|
|
EXIT
|
|
CASE "buttonThemes_clicked"
|
|
IF !empty( cPath := hbide_fetchAFile( ::oDlg, "Syntax Highlighting Theme File ( .hbt )", ;
|
|
{ { "Syntax Theme", "*.hbt" } }, ::oINI:getThemesFile() ) )
|
|
::oINI:cPathThemes := cPath
|
|
::oUI:q_editPathThemes:setText( cPath )
|
|
ENDIF
|
|
EXIT
|
|
CASE "buttonViewIni_clicked"
|
|
::viewIt( ::oINI:getIniFile(), .t., .f., .f., .f. ) /* FileName, shouldSaveAs, shouldSave, shouldReadOnly, applyHiliter */
|
|
EXIT
|
|
CASE "buttonViewEnv_clicked"
|
|
::viewIt( ::oINI:getEnvFile(), .t., .t., .f., .f. )
|
|
EXIT
|
|
CASE "buttonViewSnippets_clicked"
|
|
::viewIt( ::oINI:getSnippetsFile(), .t., .t., .f., .t. )
|
|
EXIT
|
|
CASE "buttonViewThemes_clicked"
|
|
::viewIt( ::oINI:getThemesFile(), .t., .t., .f., .f. )
|
|
EXIT
|
|
|
|
CASE "buttonEditorSaveAs_clicked"
|
|
IF ! empty( cBuffer := p:q_plainText:toPlainText() )
|
|
IF ! empty( cPath := hbide_saveAFile( ::oDlg, "Save: " + p1, NIL, p1 ) )
|
|
hb_memowrit( cPath, cBuffer )
|
|
ENDIF
|
|
ENDIF
|
|
EXIT
|
|
CASE "buttonEditorSave_clicked"
|
|
IF ! empty( cBuffer := p:q_plainText:toPlainText() )
|
|
hb_memowrit( p1, cBuffer )
|
|
ENDIF
|
|
EXIT
|
|
CASE "buttonEditorClose_clicked"
|
|
CASE "buttonEditorX_clicked"
|
|
p:oWidget:disconnect( QEvent_Close )
|
|
p:q_buttonSaveAs:disconnect( "clicked()" )
|
|
p:q_buttonSave:disconnect( "clicked()" )
|
|
p:q_buttonClose:disconnect( "clicked()" )
|
|
|
|
p:close()
|
|
p := NIL /* Must Destroy It */
|
|
EXIT
|
|
ENDSWITCH
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:viewIt( cFileName, lSaveAs, lSave, lReadOnly, lApplyHiliter )
|
|
LOCAL oUI
|
|
|
|
oUI := hbide_getUI( "editor", ::oUI:oWidget )
|
|
oUI:setWindowFlags( Qt_Sheet + Qt_CustomizeWindowHint + Qt_WindowTitleHint + Qt_WindowContextHelpButtonHint )
|
|
|
|
oUI:q_plainText:setReadOnly( lReadOnly )
|
|
oUI:q_buttonSaveAs:setEnabled( lSaveAs )
|
|
oUI:q_buttonSave:setEnabled( lSave )
|
|
|
|
oUI:q_plainText:setLineWrapMode( QPlainTextEdit_NoWrap )
|
|
|
|
oUI:q_plainText:setPlainText( hb_memoRead( cFileName ) )
|
|
oUI:q_plainText:setFont( ::oIde:oFont:oWidget )
|
|
IF lApplyHiliter
|
|
aadd( ::aHilighters, ::oTH:setSyntaxHilighting( oUI:q_plainText, "Bare Minimum" ) )
|
|
ENDIF
|
|
|
|
oUI:oWidget :connect( QEvent_Close, {|| ::execEvent( "buttonEditorX_clicked" , oUI ) } )
|
|
oUI:q_buttonSaveAs:connect( "clicked()" , {|| ::execEvent( "buttonEditorSaveAs_clicked", oUI, cFileName ) } )
|
|
oUI:q_buttonSave :connect( "clicked()" , {|| ::execEvent( "buttonEditorSave_clicked" , oUI, cFileName ) } )
|
|
oUI:q_buttonClose :connect( "clicked()" , {|| ::execEvent( "buttonEditorClose_clicked" , oUI ) } )
|
|
|
|
oUI:show()
|
|
|
|
RETURN Self
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:pushThemesData()
|
|
LOCAL s, a_, qItem
|
|
|
|
IF ::nCurThemeSlot == 0
|
|
FOR EACH s IN ::oINI:aAppThemes
|
|
a_:= hb_aTokens( s, "," )
|
|
qItem := QListWidgetItem()
|
|
qItem:setText( a_[ 1 ] )
|
|
//::oUI:q_listThemes:addItem_1( qItem )
|
|
::oUI:q_listThemes:addItem( qItem )
|
|
::pushThemeColors( s:__enumIndex() )
|
|
NEXT
|
|
ENDIF
|
|
IF !empty( ::oINI:aAppThemes )
|
|
::oUI:q_listThemes:setCurrentRow( -1 )
|
|
::oUI:q_listThemes:setCurrentRow( len( ::oINI:aAppThemes ) - 1 )
|
|
::oUI:q_listThemes:setCurrentRow( 0 )
|
|
ENDIF
|
|
::oUI:q_radioSec1:click()
|
|
|
|
RETURN Self
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:getThemeData( nTheme )
|
|
LOCAL a_, i, aTheme := {}
|
|
|
|
IF nTheme >= 1 .AND. nTheme <= len( ::oINI:aAppThemes )
|
|
a_:= hbide_parseThemeComponent( ::oINI:aAppThemes[ nTheme ] )
|
|
|
|
FOR i := 2 TO 6
|
|
IF !empty( a_[ i ] )
|
|
aadd( aTheme, a_[ i ] )
|
|
ENDIF
|
|
NEXT
|
|
ENDIF
|
|
|
|
RETURN aTheme
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:pushThemeColors( nTheme )
|
|
LOCAL n, a_, i, aRGB, nSlot
|
|
|
|
IF nTheme >= 1 .AND. nTheme <= len( ::oINI:aAppThemes )
|
|
a_:= hb_aTokens( ::oINI:aAppThemes[ nTheme ], "," )
|
|
aSize( a_, 6 )
|
|
DEFAULT a_[ 1 ] TO ""
|
|
DEFAULT a_[ 2 ] TO ""
|
|
DEFAULT a_[ 3 ] TO ""
|
|
DEFAULT a_[ 4 ] TO ""
|
|
DEFAULT a_[ 5 ] TO ""
|
|
DEFAULT a_[ 6 ] TO ""
|
|
|
|
FOR i := 2 TO 6
|
|
nSlot := i - 1
|
|
IF !empty( a_[ i ] )
|
|
aRGB := hb_aTokens( a_[ i ], " " )
|
|
FOR EACH n IN aRGB
|
|
n := val( n )
|
|
NEXT
|
|
{ ::oUI:q_editSec1, ::oUI:q_editSec2, ::oUI:q_editSec3, ::oUI:q_editSec4, ::oUI:q_editSec5 }[ nSlot ]:setText( hb_ntos( aRGB[ 1 ] ) )
|
|
|
|
::populateThemeColors( nSlot, { aRGB[ 2 ], aRGB[ 3 ], aRGB[ 4 ] } )
|
|
ENDIF
|
|
NEXT
|
|
{ ::oUI:q_radioSec1, ::oUI:q_radioSec2, ::oUI:q_radioSec3, ::oUI:q_radioSec4, ::oUI:q_radioSec5 }[ nSlot ]:click()
|
|
ENDIF
|
|
|
|
RETURN Self
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:populateThemeColors( nSlot, aRGB )
|
|
LOCAL qFrame
|
|
|
|
{ ::oUI:q_editR1, ::oUI:q_editR2, ::oUI:q_editR3, ::oUI:q_editR4, ::oUI:q_editR5 }[ nSlot ]:setText( hb_ntos( aRGB[ 1 ] ) )
|
|
{ ::oUI:q_editG1, ::oUI:q_editG2, ::oUI:q_editG3, ::oUI:q_editG4, ::oUI:q_editG5 }[ nSlot ]:setText( hb_ntos( aRGB[ 2 ] ) )
|
|
{ ::oUI:q_editB1, ::oUI:q_editB2, ::oUI:q_editB3, ::oUI:q_editB4, ::oUI:q_editB5 }[ nSlot ]:setText( hb_ntos( aRGB[ 3 ] ) )
|
|
|
|
qFrame := { ::oUI:q_frameSec1, ::oUI:q_frameSec2, ::oUI:q_frameSec3, ::oUI:q_frameSec4, ::oUI:q_frameSec5 }[ nSlot ]
|
|
qFrame:setStyleSheet( "background-color: " + hbide_rgbString( aRGB ) + ";" )
|
|
|
|
RETURN Self
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:fetchThemeColorsString( nSlot )
|
|
LOCAL s := ""
|
|
|
|
IF empty( nSlot )
|
|
FOR nSlot := 1 TO 5
|
|
s += { ::oUI:q_editSec1, ::oUI:q_editSec2, ::oUI:q_editSec3, ::oUI:q_editSec4, ::oUI:q_editSec5 }[ nSlot ]:text() + " "
|
|
|
|
s += { ::oUI:q_editR1, ::oUI:q_editR2, ::oUI:q_editR3, ::oUI:q_editR4, ::oUI:q_editR5 }[ nSlot ]:text() + " "
|
|
s += { ::oUI:q_editG1, ::oUI:q_editG2, ::oUI:q_editG3, ::oUI:q_editG4, ::oUI:q_editG5 }[ nSlot ]:text() + " "
|
|
s += { ::oUI:q_editB1, ::oUI:q_editB2, ::oUI:q_editB3, ::oUI:q_editB4, ::oUI:q_editB5 }[ nSlot ]:text()
|
|
|
|
s += ","
|
|
NEXT
|
|
ELSE
|
|
|
|
ENDIF
|
|
|
|
RETURN s
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:pullThemeColors( nSlot )
|
|
LOCAL aRGB := {}
|
|
|
|
IF !empty( { ::oUI:q_editSec1, ::oUI:q_editSec2, ::oUI:q_editSec3, ::oUI:q_editSec4, ::oUI:q_editSec5 }[ nSlot ]:text() )
|
|
aadd( aRGB, val( { ::oUI:q_editR1, ::oUI:q_editR2, ::oUI:q_editR3, ::oUI:q_editR4, ::oUI:q_editR5 }[ nSlot ]:text() ) )
|
|
aadd( aRGB, val( { ::oUI:q_editG1, ::oUI:q_editG2, ::oUI:q_editG3, ::oUI:q_editG4, ::oUI:q_editG5 }[ nSlot ]:text() ) )
|
|
aadd( aRGB, val( { ::oUI:q_editB1, ::oUI:q_editB2, ::oUI:q_editB3, ::oUI:q_editB4, ::oUI:q_editB5 }[ nSlot ]:text() ) )
|
|
ENDIF
|
|
|
|
RETURN aRGB
|
|
|
|
/*------------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:populateKeyTableRow( nRow, cTxtCol1, cTxtCol2 )
|
|
LOCAL lAppend := len( ::aKeyItems ) < nRow
|
|
LOCAL q0, q1
|
|
|
|
IF lAppend
|
|
::oUI:q_tableVar:setRowCount( nRow )
|
|
|
|
q0 := QTableWidgetItem()
|
|
q0:setText( cTxtCol1 )
|
|
::oUI:q_tableVar:setItem( nRow-1, 0, q0 )
|
|
|
|
q1 := QTableWidgetItem()
|
|
q1:setText( cTxtCol2 )
|
|
::oUI:q_tableVar:setItem( nRow-1, 1, q1 )
|
|
|
|
aadd( ::aKeyItems, { q0, q1 } )
|
|
|
|
::oUI:q_tableVar:setRowHeight( nRow-1, 16 )
|
|
|
|
ELSE
|
|
::aKeyItems[ nRow, 1 ]:setText( cTxtCol1 )
|
|
::aKeyItems[ nRow, 2 ]:setText( cTxtCol2 )
|
|
|
|
ENDIF
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:buildKeywords()
|
|
LOCAL hdr_:= { { "Keyword", 100 }, { "Value", 230 } }
|
|
LOCAL oTbl, n, qItm
|
|
|
|
oTbl := ::oUI:q_tableVar
|
|
|
|
oTbl:verticalHeader():hide()
|
|
oTbl:horizontalHeader():setStretchLastSection( .t. )
|
|
|
|
oTbl:setAlternatingRowColors( .t. )
|
|
oTbl:setColumnCount( len( hdr_ ) )
|
|
oTbl:setShowGrid( .t. )
|
|
FOR n := 1 TO len( hdr_ )
|
|
qItm := QTableWidgetItem()
|
|
qItm:setText( hdr_[ n,1 ] )
|
|
oTbl:setHorizontalHeaderItem( n-1, qItm )
|
|
oTbl:setColumnWidth( n-1, hdr_[ n,2 ] )
|
|
NEXT
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:buildTree()
|
|
LOCAL oRoot, oChild, s
|
|
|
|
::oUI:q_treeWidget:setHeaderHidden( .t. )
|
|
::oUI:q_treeWidget:setIconSize( QSize( 12,12 ) )
|
|
::oUI:q_treeWidget:setIndentation( 12 )
|
|
|
|
oRoot := QTreeWidgetItem()
|
|
oRoot:setText( 0, "Parts" )
|
|
oRoot:setToolTip( 0, "Parts" )
|
|
|
|
::oUI:q_treeWidget:addTopLevelItem( oRoot )
|
|
|
|
aadd( ::aItems, oRoot )
|
|
|
|
FOR EACH s IN ::aTree
|
|
oChild := QTreeWidgetItem()
|
|
oChild:setText( 0, s )
|
|
oChild:setToolTip( 0, s )
|
|
oRoot:addChild( oChild )
|
|
aadd( ::aItems, oChild )
|
|
NEXT
|
|
|
|
oRoot:setExpanded( .t. )
|
|
::oUI:q_treeWidget:setCurrentItem( ::aItems[ 2 ] ) /* General */
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:setSystemStyle( cStyle )
|
|
LOCAL oApp, qFactory
|
|
|
|
IF !empty( cStyle )
|
|
oApp := QApplication()
|
|
qFactory := QStyleFactory()
|
|
oApp:setStyle( qFactory:create( cStyle ) )
|
|
ENDIF
|
|
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|
|
|
|
METHOD IdeSetup:setBaseColor()
|
|
#if 0
|
|
LOCAL qPalette, oApp, qBrush, qColor
|
|
|
|
oApp := QApplication()
|
|
|
|
::qOrgPalette := oApp:palette()
|
|
|
|
qColor := QColor( Qt_red )
|
|
qBrush := QBrush( qColor )
|
|
|
|
qPalette := oApp:palette()
|
|
qPalette:setBrush( QPalette_Window, qBrush )
|
|
qPalette:setColor( QPalette_Window, qColor )
|
|
qPalette:setColor( QPalette_Base, qColor )
|
|
|
|
oApp:setPalette( qPalette )
|
|
#endif
|
|
RETURN Self
|
|
|
|
/*----------------------------------------------------------------------*/
|