ribbonbar

[kajot]

when I linking my sources where I using Ribbon i get error:
my source

DEFINE RIBBONBAR oRib Window oWnd;
HEIGHT 130;
TOPMARGIN 25 ;
PROMPT "Dokumenty", "Ewidencja", "Kontrahenci","Raporty","Administrator","Koniec"

oRib:nLeftMargin = 85
oRib:CalcPos()
oRib:SetSize( oWnd:nWidth )

ADD GROUP oGr1 RIBBONBAR oRib;
WIDTH 80;
TO OPTION 1;

@ 4, 4 ADD BUTTON GROUP oGr1;
SIZE oGr1:nWidth - 9, oGr1:nHeight - 7;
PROMPT "Dokumenty";
BITMAP "OPEN.BMP";
ACTION MSGINFO( "Test 1" );
POPUP MENU oMenu


Application
===========
Path and name: P:\wSETOW6\wsetow6.exe (32 bits)
Size: 3,356,672 bytes
Compiler version: xHarbour build 1.2.2 Intl. (SimpLex) (Rev. 9719)
FiveWin Version: FWHX 12.06
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 0 secs
Error occurred at: 2013.07.03, 19:38:53
Error description: Error BASE/1004 Class: 'NIL' has no exported method: HWND
Args:
[ 1] = U

Stack Calls
===========
Called from: => HWND( 0 )
Called from: source\classes\tribbon.prg => TRIBBONBAR:NEW( 325 )
Called from: wSETOW6.PRG => BUILDMENU( 109 )
Called from: wSETOW6.PRG => MAIN( 41 )

[Antonio Linares]

Kajot,

It does not fail with FWH 13.05 (13.06), so surely it has been fixed since the version that you are using.

Could you please run this test and let me know if it also fails there ? thanks

Code: Select all  Expand view

#include "FiveWin.ch"
#include "ribbon.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWNd

   DEFINE RIBBONBAR oRib Window oWnd;
      HEIGHT 130;
      TOPMARGIN 25 ;
      PROMPT "Dokumenty", "Ewidencja", "Kontrahenci","Raporty","Administrator","Koniec"

   ACTIVATE WINDOW oWnd

return nil