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

2009-11-23 18:09 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbide/hbide.prg
    ! Few more additions.
This commit is contained in:
Pritpal Bedi
2009-11-24 02:08:19 +00:00
parent f429a739b4
commit baca1c614a
2 changed files with 22 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -17,6 +17,10 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-11-23 18:09 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbide/hbide.prg
! Few more additions.
2009-11-24 02:51 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/vm/dlmalloc.c
* harbour/src/vm/hvmall.c

20
harbour/contrib/hbide/hbide.prg
View File

@@ -955,12 +955,28 @@ METHOD HbIde:CreateTags()
//----------------------------------------------------------------------//
METHOD HbIde:fetchNewProject()
#if 1 // In Development
LOCAL oBtnOK, oBtnCancel, qLayout
::oNewDlg := XbpWindow():new( ::oDlg )
::oNewDlg:oWidget := QDialog():new( QT_PTROFXBP( ::oDlg ) )
oBtnCancel := XbpPushButton():new( ::oNewDlg, , {0,0}, {100,30}, , .t. ):create()
oBtnCancel:setCaption( "Cancel" )
oBtnOK := XbpPushButton():new( ::oNewDlg, , {0,100}, {100,30}, , .t. ):create()
oBtnOK:setCaption( "Ok" )
qLayout := QGridLayout():new()
//qLayout:setColumnStretch( 1,1 )
qLayout:setColumnMinimumWidth( 1,250 )
qLayout:addWidget_1( QT_PTROFXBP( oBtnOK ), 0, 0 )
qLayout:addWidget_1( QT_PTROFXBP( oBtnCancel ), 1, 0 )
::oNewDlg:oWidget:setLayout( QT_PTROF( qLayout ) )
::oNewDlg:oWidget:exec()
#endif
RETURN self
/*----------------------------------------------------------------------*/