fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2011-04-12 00:37 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbxbp/xbpgeneric.prg
    ! Fix( try ) to calculate desktop width for primary monitor.

  * contrib/hbxbp/xbpparthandler.prg
    ! Fixed: RTE while moving a window with owned windows.

  * contrib/hbxbp/xbpwindow.prg
    ! Fix( try ) to have width exactly that of Xbase++ size.
This commit is contained in:
Pritpal Bedi
2011-04-12 07:45:27 +00:00
parent a9b86aa222
commit c08ec51391
4 changed files with 18 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -16,6 +16,16 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-04-12 00:37 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbxbp/xbpgeneric.prg
! Fix( try ) to calculate desktop width for primary monitor.
* contrib/hbxbp/xbpparthandler.prg
! Fixed: RTE while moving a window with owned windows.
* contrib/hbxbp/xbpwindow.prg
! Fix( try ) to have width exactly that of Xbase++ size.
2011-04-11 22:45 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
+ contrib/hbqt/gtqtc.hbc
+ contrib/hbqt/gtqtc/gtqtc.hbc

3
harbour/contrib/hbxbp/xbpgeneric.prg
View File

@@ -293,7 +293,8 @@ FUNCTION SetAppFocus( oXbp )
FUNCTION AppDesktop()
IF s_oDeskTop == NIL
s_oDeskTop := HbpAppDesktop():new():create()
s_oDeskTop := XbpWindow():new()
s_oDeskTop:oWidget := HbpAppDesktop():new():create()
ENDIF
RETURN s_oDeskTop

2
harbour/contrib/hbxbp/xbpparthandler.prg
View File

@@ -317,7 +317,7 @@ METHOD moveOwned( nOffSetX, nOffSetY ) CLASS XbpPartHandler
LOCAL oXbp, oPos
FOR EACH oXbp IN ::aOwned
IF oXbp:moveWithOwner
IF oXbp:className() == "XBPDIALOG" .AND. oXbp:moveWithOwner
oPos := oXbp:oWidget:pos()
oXbp:oWidget:move( oPos:x() + nOffSetX, oPos:y() + nOffSetY )
ENDIF

6
harbour/contrib/hbxbp/xbpwindow.prg
View File

@@ -1160,6 +1160,7 @@ METHOD XbpWindow:setPos( aPos, lPaint )
/*----------------------------------------------------------------------*/
METHOD XbpWindow:setPosAndSize( aPos, aSize, lPaint )
LOCAL oSize, oSizeF
IF empty( ::qtObject )
DEFAULT aPos TO ::aPos
@@ -1168,8 +1169,11 @@ METHOD XbpWindow:setPosAndSize( aPos, aSize, lPaint )
IF hb_isArray( aPos ) .and. hb_isArray( aSize )
DEFAULT lPaint TO .T.
::oWidget:resize( aSize[ 1 ], aSize[ 2 ] )
oSize := ::oWidget:size()
oSizeF := ::oWidget:frameSize()
::oWidget:move( aPos[ 1 ], aPos[ 2 ] )
::oWidget:resize( aSize[ 1 ] - ( oSizeF:width()-oSize:width() ), aSize[ 2 ] )
ENDIF
ENDIF