hi Enrico,
please use Sample "as it is" without "modification" to get "Problem" which i got.
what i have "comment out" are (working) Solution i found
greeting,
Jimmy
Jimmy
hi Enrico,
please use Sample "as it is" without "modification" to get "Problem" which i got.
what i have "comment out" are (working) Solution i found
hi Marc,
thx for Answer.
i got a working Solution
c:\fwh\source\classes\folder.prgbut i can´t "see" that TFolder() or TPages() use CLASS TTabControl()
c:\fwh\source\classes\tpages.prg
c:\fwh\source\classes\ttabctrl.prg
c:\fwh\source\classes\window.prg
::Create( "SysTabControl32" )Question : what is the Difference "oTabs OF oMain" vs. "oMain:oClient = oTabs" :?:
@ r,c TABS oTabs OF oWnd <otherClause>oWnd:oClient := oBrwnageswaragunupudi wrote:aah, now i understand :idea: , thxoBrw occupies the entire client area of oWnd. When oWnd is resized, oBrw also is resized to fit inside the Parent window's client area.oWnd:oClient := oBrw
Jimmy wrote:hi Enrico,You are right. There has to be a bug in folder.prg. This is a workaroud:
please use Sample "as it is" without "modification" to get "Problem" which i got.
what i have "comment out" are (working) Solution i found
#include "FiveWin.ch"
MEMVAR oMain, oTabs, oStatusBar
PROCEDURE Main()
LOCAL nHeight := 1024
LOCAL nWidth := 1280
PRIVATE oMain, oTabs, oStatusBar
DEFINE WINDOW oMain FROM 0,0 TO nWidth, nHeight PIXEL TITLE "FiveWin TGrid Listview Demo "
* #define working
#IFDEF working
oTabs := TFolder():New( 3, 3,{"no_1"} , , oMain, 1, , , .t.,;
.f., oMain:nRight - oMain:nLeft, oMain:nBottom - oMain:nTop )
#ELSE
oTabs := TFolder():New( 3, 3,{""} , , oMain, 1, , , .t.,;
.f., oMain:nRight - oMain:nLeft, oMain:nBottom - oMain:nTop )
oTabs:DelItemPos( 1 )
oTabs:AddItem("Grid_1")
* oTabs:AddItem("Grid_2")
#ENDIF
oTabs:SetOption( 1 )
@ 20, 10 BUTTON "blabla" SIZE 300,200 OF oTabs:aDialogs[ 1 ] PIXEL ACTION MsgInfo("blabla")
DEFINE STATUSBAR oStatusBar PROMPT "Hello World " OF oMain SIZES nWidth - 100 CLOCK
ACTIVATE WINDOW oMain CENTER
RETURN oTabs:DelItemPos( 1 )