TABCONTROL ANY FUNCIONALITY ?

[xVar]

Hi everebody.

I think Tabs is very good way for make good PPC application (small scree , no task bar etc.)

I try use TABCONTROL , good example is in "testtab.prg". It's OK.

But now I can't make some controls on Tabs.

My code is like this :

//-------------------------------------------------------------------------//
Function MakeTabs(oWnd)
//-------------------------------------------------------------------------//

@ 2, 0 TABCONTROL oTabs PROMPTS { "Browse Data", "Current Data","Default Data"} ;
OPTION 1 ACTION MsgInfo( oTabs:nOption ) ;
SIZE 240, 124 OF oWnd

@ 3, 3 SAY "Name 1:" SIZE 70, 20 OF oTabs:aPrompts[ 1 ]

Return Nil

It is not work.

How is possible define design elements on every tab page?

Regards Andrej.

[Wolfgang Ciriack]

Hi,
i use FOLDER, this works like expected.

Code: Select all  Expand view  RUN

@ 1, 1 FOLDER oFld PROMPTS "Auftrag", "Eingaben", "Zusatz", "Abschluß" ;
    SIZE 240,290 PIXEL
pagenr:=1
...
@ 70,10 SAY v[F_NAME1] OF oFld:aDialogs[pagenr] SIZE 230, 19 FONT OSayFont2 PIXEL
...
pagenr:=2
zl:=15
...
@zl,40 BUTTON oBtZ PROMPT "Zusatzzeiten" OF oFld:aDialogs[pagenr] SIZE 155, 30  FONT oSayFont3 PIXEL ACTION GetZusatzZeiten(o, v)
...
pagenr:=3
zl:=15
...
@235,  5 BUTTON oBtW PROMPT "<- zurück" OF oFld:aDialogs[pagenr] SIZE 80, 28 FONT oSayFont3 PIXEL ACTION iif(oFld<>NIL, (pagenr:=2, oFld:SetOption(2)), )
@235,150 BUTTON oBtW PROMPT "weiter ->" OF oFld:aDialogs[pagenr] SIZE 80, 28 FONT oSayFont3 PIXEL ACTION iif(oFld<>NIL, (pagenr:=4, oFld:SetOption(4)), )
...
 

[xVar]

FWPPC documentation is not for beginers
Regards
Andrej

[Antonio Linares]

Andrej,

Please review FWPPC\samples\TestFld.prg, TestFld2.prg, TestFld3.prg, testfldb.prg and testfldw.prg

[xVar]

I try next:
-------
......
DEFINE WINDOW oWnd TITLE "Folders"
@ 0.5, 1 FOLDER oFld PROMPTS "Personal", "Job", "Observations" ;
SIZE 225, 245
@ 0.5, 1 SAY "First:" OF oFld:aDialogs[ 1 ] SIZE 30, 15

@ 0.5, 5 GET cFirst OF oFld:aDialogs[ 1 ] SIZE 150, 20
@ 2, 3 BUTTON oBtn PROMPT "Ok" OF oFld:aDialogs[ 1 ] ACTION (cFirst:="cFirst",oFld:Refresh())

ACTIVATE WINDOW oWnd

......

The GET object cFirst is not updated, only if I click to get field get object data is setting to string "cFirst"
.

I try with cFirst:Refresh() is don't work.

Question, how I can set , and refresh my get objects and folders , from code ? ( I need navigate in dbf and refresh get objects i )


Regards. Andrej.

[Antonio Linares]

Andrej,

Code: Select all  Expand view  RUN

@ 0.5, 5 GET oGet VAR cFirst OF oFld:aDialogs[ 1 ] SIZE 150, 20

...

oGet:Refresh()
 

[xVar]

Thanks Antonio!
It's work.

One questions about oObj:End()

In example programs I look some like :
//
oBmp:End()
oFont:End()
oFld:End()
//

Need I destroy all my objects (oWnd etc.) before exit application, or it be automatically, if I ending main window.
(for example oWnd:End() )

Regards
Andrej

[Enrico Maria Giordano]

Generally speaking, you have to only release the object that you explicitly create and not assign to a FWH control.

EMG

[xVar]

Thanks.
Regards.
Andrej-