2011-06-06 15:37 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

* contrib/hbide/idechangelog.prg
  * contrib/hbide/idesaveload.prg
    + Implemented: to remember the position and size of 
      ChangeLog(s) dialog.
This commit is contained in:
Pritpal Bedi
2011-06-06 22:39:38 +00:00
parent 5cffe4c42f
commit ea238417a7
3 changed files with 12 additions and 0 deletions

View File

@@ -16,6 +16,12 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-06-06 15:37 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/idechangelog.prg
* contrib/hbide/idesaveload.prg
+ Implemented: to remember the position and size of
ChangeLog(s) dialog.
2011-06-06 14:47 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/changelog.ui
* contrib/hbide/idechangelog.prg

View File

@@ -189,8 +189,11 @@ METHOD IdeChangeLog:show()
::qHiliter:hbSetType( 1 )
::oUI:q_editChangelog :setText( ::oINI:cChangeLog )
::oUI:oWidget:connect( QEvent_Close, {|| ::oIde:oINI:cChangelogDialogGeometry := hbide_posAndSize( ::oUI:oWidget ) } )
ENDIF
::oIde:setPosAndSizeByIniEx( ::oUI:oWidget, ::oINI:cChangelogDialogGeometry )
::oUI:show()
RETURN Self

View File

@@ -92,6 +92,7 @@ CLASS IdeINI INHERIT IdeObject
DATA cShortcutsDialogGeometry INIT ""
DATA cDbStructDialogGeometry INIT ""
DATA cTablesDialogGeometry INIT ""
DATA cChangelogDialogGeometry INIT ""
//
DATA cRecentTabIndex INIT ""
//
@@ -339,6 +340,7 @@ METHOD IdeINI:save( cHbideIni )
aadd( txt_, "SetupDialogGeometry" + "=" + ::cSetupDialogGeometry )
aadd( txt_, "DbStructDialogGeometry" + "=" + ::cDbStructDialogGeometry )
aadd( txt_, "TablesDialogGeometry" + "=" + ::cTablesDialogGeometry )
aadd( txt_, "ChangelogDialogGeometry" + "=" + ::cChangelogDialogGeometry )
//
aadd( txt_, "CurrentLineHighlightMode" + "=" + iif( ::lCurrentLineHighlightEnabled, "YES", "NO" ) )
aadd( txt_, "LineNumbersDisplayMode" + "=" + iif( ::lLineNumbersVisible, "YES", "NO" ) )
@@ -637,6 +639,7 @@ METHOD IdeINI:load( cHbideIni )
CASE "ShortcutsDialogGeometry" ; ::cShortcutsDialogGeometry := cVal ; EXIT
CASE "DbStructDialogGeometry" ; ::cDbStructDialogGeometry := cVal ; EXIT
CASE "TablesDialogGeometry" ; ::cTablesDialogGeometry := cVal ; EXIT
CASE "ChangelogDialogGeometry" ; ::cChangelogDialogGeometry := cVal ; EXIT
//
CASE "CurrentLineHighlightMode" ; ::oIde:lCurrentLineHighlightEnabled := !( cVal == "NO" ); EXIT
CASE "LineNumbersDisplayMode" ; ::oIde:lLineNumbersVisible := !( cVal == "NO" ); EXIT