TABCONTROL ANY FUNCIONALITY ?

Post Reply
xVar
Posts: 35
Joined: Mon Jan 19, 2009 9:14 am

TABCONTROL ANY FUNCIONALITY ?

Post by 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
Posts: 37
Joined: Sun Aug 03, 2008 8:02 am
Location: Germany, Berlin

Re: TABCONTROL ANY FUNCIONALITY ?

Post by Wolfgang Ciriack »

Hi,
i use FOLDER, this works like expected.

Code: Select all

@ 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)), )
...
 
Best regards
Wolfgang Ciriack
xVar
Posts: 35
Joined: Mon Jan 19, 2009 9:14 am

Thanks. I will try.

Post by xVar »

FWPPC documentation is not for beginers :)
Regards
Andrej
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: TABCONTROL ANY FUNCIONALITY ?

Post by Antonio Linares »

Andrej,

Please review FWPPC\samples\TestFld.prg, TestFld2.prg, TestFld3.prg, testfldb.prg and testfldw.prg :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
xVar
Posts: 35
Joined: Mon Jan 19, 2009 9:14 am

Well its work, but I can refresh get object :(

Post by 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.
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: TABCONTROL ANY FUNCIONALITY ?

Post by Antonio Linares »

Andrej,

Code: Select all

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

...

oGet:Refresh()
 
regards, saludos

Antonio Linares
www.fivetechsoft.com
xVar
Posts: 35
Joined: Mon Jan 19, 2009 9:14 am

Re: TABCONTROL ANY FUNCIONALITY ?

Post by 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
User avatar
Enrico Maria Giordano
Posts: 7355
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:

Re: TABCONTROL ANY FUNCIONALITY ?

Post by 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
Posts: 35
Joined: Mon Jan 19, 2009 9:14 am

Re: TABCONTROL ANY FUNCIONALITY ?

Post by xVar »

Thanks.
Regards.
Andrej-
Post Reply