topic-14608

xVar

Posts: 35

Joined: Mon Jan 19, 2009 09:14 AM

TABCONTROL ANY FUNCIONALITY ?
Posted: Tue Feb 17, 2009 02:31 PM

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 08:02 AM

Re: TABCONTROL ANY FUNCIONALITY ?
Posted: Tue Feb 17, 2009 05:50 PM

Hi,
i use FOLDER, this works like expected.

Code (fw): Select all Collapse

@ 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 09:14 AM

Thanks. I will try.
Posted: Wed Feb 18, 2009 02:05 PM

FWPPC documentation is not for beginers
Regards
Andrej

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: TABCONTROL ANY FUNCIONALITY ?
Posted: Wed Feb 18, 2009 11:06 PM

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 09:14 AM

Well its work, but I can refresh get object :(
Posted: Fri Feb 20, 2009 12:06 PM

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: TABCONTROL ANY FUNCIONALITY ?
Posted: Fri Feb 20, 2009 06:40 PM

Andrej,

Code (fw): Select all Collapse

@ 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 09:14 AM

Re: TABCONTROL ANY FUNCIONALITY ?
Posted: Mon Feb 23, 2009 02:55 PM

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

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: TABCONTROL ANY FUNCIONALITY ?
Posted: Mon Feb 23, 2009 04:32 PM

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

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

xVar

Posts: 35

Joined: Mon Jan 19, 2009 09:14 AM

Re: TABCONTROL ANY FUNCIONALITY ?
Posted: Tue Feb 24, 2009 09:02 AM

Thanks.
Regards.
Andrej-

FiveTech Support Forums

I try next:

Continue the discussion