From ae5848cf247117e97e8e2269b388124575306fc0 Mon Sep 17 00:00:00 2001
From: Pritpal Bedi <bedipritpal@hotmail.com>
Date: Tue, 24 Jan 2012 23:24:05 +0000
Subject: [PATCH] 2012-01-24 15:19 UTC-0800 Pritpal Bedi
 (bedipritpal@hotmail.com)   * contrib/hbide/idedocks.prg   *
 contrib/hbide/idemain.prg   * contrib/hbide/idesaveload.prg     ! Optimized:
 to display the user interface as fast as possible.        The only feature
 compromized is the Window Theme set via        <Setup><General><Style>.      
  Now it appears to be lightening fast, let me know your experiences.

---
 harbour/ChangeLog                     |  9 +++++++++
 harbour/contrib/hbide/idedocks.prg    |  2 ++
 harbour/contrib/hbide/idemain.prg     | 12 ++++++++----
 harbour/contrib/hbide/idesaveload.prg |  5 ++---
 4 files changed, 21 insertions(+), 7 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 4858af23ef..022f4c5cb5 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,15 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-01-24 15:19 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
+  * contrib/hbide/idedocks.prg
+  * contrib/hbide/idemain.prg
+  * contrib/hbide/idesaveload.prg
+    ! Optimized: to display the user interface as fast as possible.
+       The only feature compromized is the Window Theme set via 
+       <Setup><General><Style>.
+       Now it appears to be lightening fast, let me know your experiences.
+
 2012-01-24 23:50 UTC+0100 Viktor Szakats (harbour syenar.net)
   * ChangeLog
     ! typo
diff --git a/harbour/contrib/hbide/idedocks.prg b/harbour/contrib/hbide/idedocks.prg
index ddac21be87..36bd8e7bd1 100644
--- a/harbour/contrib/hbide/idedocks.prg
+++ b/harbour/contrib/hbide/idedocks.prg
@@ -1049,9 +1049,11 @@ METHOD IdeDocks:setViewInitials()
       IF ::qTabWidget:count() == 1
          ::oEM:setSourceVisibleByIndex( 0 )
       ELSE
+#if 0         
          ::qTabWidget:setCurrentIndex( 0 )
          ::qTabWidget:setCurrentIndex( ::qTabWidget:count() - 1 )
          ::qTabWidget:setCurrentIndex( 0 )
+#endif          
       ENDIF
    NEXT
 
diff --git a/harbour/contrib/hbide/idemain.prg b/harbour/contrib/hbide/idemain.prg
index c015f0e7a2..5296ee1f1a 100644
--- a/harbour/contrib/hbide/idemain.prg
+++ b/harbour/contrib/hbide/idemain.prg
@@ -541,7 +541,7 @@ METHOD HbIde:create( aParams )
 
    qPixmap := QPixmap( ":/resources" + hb_ps() + "hbidesplash.png" )
    qSplash := QSplashScreen()
- * qSplash:setWindowFlags( hb_bitOr( Qt_WindowStaysOnTopHint, qSplash:windowFlags() ) )
+   qSplash:setWindowFlags( hb_bitOr( Qt_WindowStaysOnTopHint, qSplash:windowFlags() ) )
    qSplash:setPixmap( qPixmap )
    qSplash:show()
    ::showApplicationCursor( Qt_BusyCursor )
@@ -626,7 +626,7 @@ METHOD HbIde:create( aParams )
    ::oDK:buildToolBarPanels()
    /* Main Menu */
    ::oAC:buildMainMenu()
-
+//::oDlg:show()
    /* Initialize ChangeLog Manager */
    ::oCL := IdeChangeLog():new():create( Self )
 
@@ -664,6 +664,8 @@ METHOD HbIde:create( aParams )
 
    /* Console Editor */
    ::oCUI := IdeConsole():new():create( Self )
+   
+   ::oDlg:show()     /* Shifted here - it gives the effect that time opening hbIDE is much less */
 
    /* Fill various elements of the IDE */
    ::oPM:populate()
@@ -698,7 +700,8 @@ METHOD HbIde:create( aParams )
    ::oHM:refresh()
 
    ::oDK:animateComponents( val( ::oINI:cIdeAnimated ) )
-   ::oSetup:setSystemStyle( ::oINI:cIdeTheme )
+
+   // ::oSetup:setSystemStyle( ::oINI:cIdeTheme )  /* This causes 2.5 seconds delay */
 
    ::oDK:setViewInitials()
 
@@ -713,8 +716,8 @@ METHOD HbIde:create( aParams )
    ENDIF
 
    ::oDockB2:hide() /* This widget never contains anything so must be forced to hide */
-
    ::oDlg:Show()
+
    IF ::nRunMode == HBIDE_RUN_MODE_PRG
       ::oDockPT:hide()
       ::oDockED:hide()
@@ -726,6 +729,7 @@ METHOD HbIde:create( aParams )
       ::oDK:setView( "Main" )
       ::oDK:setView( cView )
    ENDIF
+
    ::qTabWidget:setCurrentIndex( -1 )
    ::qTabWidget:setCurrentIndex( 0 )
    ::qTabWidget:setCurrentIndex( ::qTabWidget:count() - 1 )
diff --git a/harbour/contrib/hbide/idesaveload.prg b/harbour/contrib/hbide/idesaveload.prg
index 81a1bf5a26..2909e59eaa 100644
--- a/harbour/contrib/hbide/idesaveload.prg
+++ b/harbour/contrib/hbide/idesaveload.prg
@@ -2166,12 +2166,11 @@ METHOD IdeSetup:buildTree()
 /*----------------------------------------------------------------------*/
 
 METHOD IdeSetup:setSystemStyle( cStyle )
-   LOCAL oApp, qFactory
+   LOCAL qFactory
 
    IF !empty( cStyle )
-      oApp     := QApplication()
       qFactory := QStyleFactory()
-      oApp:setStyle( qFactory:create( cStyle ) )
+      QApplication():setStyle( qFactory:create( cStyle ) )
    ENDIF
 
    RETURN Self