FiveTech Support Forums

#include "FiveWin.ch"

static oWnd

function Main()

   local oBar, oPopup, oBtn


   DEFINE WINDOW oWnd TITLE "Test TTabs in dialogs"

   DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60 2007

   DEFINE BUTTON OF oBar ACTION attach() ;
      RESOURCE "attach" PROMPT "Attach" TOOLTIP "Attach"

   DEFINE BUTTON OF oBar ACTION oWnd:end() ;
      RESOURCE "quit" PROMPT "Exit"


   ACTIVATE WINDOW oWnd

return nil
//----------------------------------------------------------------------------//
function attach()
 local oDlg, oTabs

   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE TABS oTabs PROMPTS "One", "Two", "Three" ID 100 OF oDlg

   oDlg:oTop = oTabs

   ACTIVATE DIALOG oDlg CENTERED
return nil
//----------------------------------------------------------------------------//

#ifdef __FLAT__
   1 24 "WinXP/WindowsXP.Manifest"
#endif

attach BITMAP "../bitmaps/32x32/attach.bmp"
quit   BITMAP "../bitmaps/32x32/quit.bmp"

test DIALOG 78, 72, 194, 119
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 8, "MS Sans Serif"
{
  CONTROL "", 100, "TTabs", 0 | WS_CHILD | WS_VISIBLE, 0, 1, 193, 17
  DEFPUSHBUTTON "OK", IDOK, 12, 96, 50, 14
  PUSHBUTTON "Cancel", IDCANCEL, 72, 96, 50, 14
}

Application
===========
Path and name: J:\harbour\fwh\samples\testtab.EXE (32 bits)
Size: 1,387,520 bytes
Time from start: 0 hours 0 mins 9 secs
Error occurred at: 09/15/08, 11:33:52
Error description: Error BASE/1075 Argument error: >
Args:
[ 1] = U
[ 2] = N 0

Stack Calls
===========
Called from: TABS.PRG => TTABS:MOUSELEAVE(0)
Called from: TABS.PRG => TTABS:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: testtab.prg => ATTACH(34)
Called from: testtab.prg => (b)MAIN(15)
Called from: BTNBMP.PRG => TBTNBMP:CLICK(0)
Called from: BTNBMP.PRG => TBTNBMP:LBUTTONUP(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: BTNBMP.PRG => TBTNBMP:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: testtab.prg => MAIN(21)

Thanks Antonio! That solved the problem.

Hi,

Should it be compiled the FWH after modifying any classes.?

How is it effect the my projects?.

Thanks,

Hakan,

Instead of modifying the FWH libraries, you can modify the class PRG, compile it and link it as another OBJ of your application.

You mean I should copy the class prg from FWH\classes to my class directory and compile it with my projects. my same named class is overloads the FWh class.

Hakan,

Yes

Anyhow, we have just published the new FWH 8.09, with all the changes, fixes and enhancements.