I'm testing new version of fwh (2008.02)

I've just found part of my code which doesn't work.
Error code BASE/1132

@oWNDR:nHeight() - 180, 195 TABS oTabs2 ;
PROMPTS "","Dodaj pacjenta","Zlecenia","Edytuj pacjenta","Wydrukuj wynik","Ksero kodu kreskowego","Karta stałego klienta","Wpisz błąd" ;
OF oWndR SIZE oWNDR:nWidth() - 140,20 PIXEL COLORS GET_LAB_KOL(61),GET_LAB_KOL(60);
ACTION (ACT_TAB2(oTabs2:nOption),oTabs2:nOption:=1)

When I remove "PIXEL" my code works.

I've never notice this error with FWH 2008.01.

Any suggestion?

Robert,

> Error code BASE/1132

Please post the calls stack

Here we have added the PIXEL clause to samples\TestTabs.prg and it works fine

I got curious when I saw your post. I normally do not use pixel clause.

Just now I tested both with and without pixel clause. It is working for me without any problem. ( 8.02 version )

But after the Tabs Statement I also use oWnd:oBottom := oTabs. May be without this there may be problem, but I think it is necessary to put the tabs at the bottom or top or left or right of the container.

Can you please post the error.log please?

I confirm that it is necessary to use oWnd:oBottom := oTabs.
( bottom, top, left or rght). Without that we are getting this error

Antonio

Application

Path and name: C:\FWH_MYAP\Maraboot\F_MAIN.exe (32 bits)
Size: 3,570,688 bytes
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 11.02.2008, 09:50:24
Error description: Error BASE/1132 BˆĄd zakresu tablicy: Nieprawidˆowa liczba argument˘w
Args:
[ 1] = A { ... }
[ 2] = N 0

Stack Calls

Called from: TABS.PRG => TTABS:PAINT(0)
Called from: TABS.PRG => TTABS:DISPLAY(0)
Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: TABS.PRG => TTABS:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => UPDATEWINDOW(0)
Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: MDICHILD.PRG => TMDICHILD:ACTIVATE(0)
Called from: f_dzien1.prg => LISTA_OSOB(293)
Called from: F_MENU.prg => (b)BUILDMENU(166)
Called from: MENU.PRG => TMENU:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:COMMAND(0)
Called from: MDIFRAME.PRG => TMDIFRAME:COMMAND(0)
Called from: => TMDIFRAME:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: F_MENU.prg => MENU_GLOWNE(158)
Called from: F_MAIN.prg => MYAPP(134)

nageswaragunupudi wrote:I confirm that it is necessary to use oWnd:oBottom := oTabs.
( bottom, top, left or rght). Without that we are getting this error

Robert,

We are reviewing the Method Paint() to see where the error comes from,

thanks for your feedback

Robert,

You have to do oWnd:oBottom := oTabs

Antonio Linares wrote:Robert,

You have to do oWnd:oBottom := oTabs

We can not say oWnd:oBottom := oTabs, if we have a message bar, because already oWnd:oBottom is omsgbar.

Likewise we can not say oWnd:oTop := oTabs if we have a buttonbar because ownd:oTop is already TBar object.

To have all of them what I do is this:

Define buttonbar and message bar of oWnd,
Then I create a panel

oPanel := TPanel():new()
oWnd:oClient := oPanel

Now we can define all other controls as "OF oPanel" instead of oWnd. oPanel now acts as an invisible Container within the client area of the oWnd.
oPanel:oBottom := oTabs
Or
oPanel:oTop := oTabs

oPanel:oClient := oBrw
and so on

We can now have ButtonBar, MessageBar, Tabs on bottom, top, right or left and all other controls in the client area

Robert,

Please download FWH 8.02 again and try your original code, thanks

Robert,

> What about national signs?

Were they properly shown with the previous class version ?

Antonio Linares wrote:Robert,

> What about national signs?

Were they properly shown with the previous class version ?

Mr Robert

If you are going to use TPanel, a few advices from my experience.

Panel does not automatically inherit font from the parent window. So please set oPanel's font same as oWnd's font.

Then all the controls you define later as "OF oPanel" will automatically inherit that font. This makes your life easy