Has it TFolder 2007 look?

[dutch]

Dear Anotonio,

as subject.

Regards,
Dutch

[nageswaragunupudi]

I am also eagerly waiting for that

[Otto]

Hello NageswaraRao,

is there a disadvantage if you use TAB and Panels instead of Folders?
Regards,
Otto

[nageswaragunupudi]

Mr Otto

Both have different purposes. Please see this topic.

http://fivetechsoft.com/forums/viewtopic.php?t=10372

[Antonio Linares]

We would like to deliver it in next FWH build

[Silvio]

Antonio, when I create my ttabs I made some tries with folder class
and I create fldpaint function to design each tab
I can found my sources and we can modify it if you want

[jose_murugosa]

I am also eagerly waiting for that

I`m waiting for this too, and specialy I would like to use folders as pages without tabs if It could be posible.

[nageswaragunupudi]

Mr Jose

> specialy I would like to use folders as pages without tabs if It could be posible.

Have you seen TPages class ? Does it serve your purpose for what you have in mind ?

[jose_murugosa]

Mr Jose

> specialy I would like to use folders as pages without tabs if It could be posible.

Have you seen TPages class ? Does it serve your purpose for what you have in mind ?

Thanks for your interest, nageswaragunupudi, yes I actualy use tPages, and It is excelent but is not transparent because it is not a native control of windows.

And It would be nice to use a "folder without tabs" in sustitution of this control.

But I´m not sure that it is possible.

Antonio, Is it?

[Silvio]

FOLDER without TABS ?

HOW ?

Let me see a sample please......

There are many control we can create ...why we stop on old questions ?
LOOk a see to http://www.devcomponents.com/dotnetbar/
before to dead I want work with these control ...in xharbour/fwh
)))

[nageswaragunupudi]

Mr. Fernando Sanchez

> ou can use our TViaRibbonBar class similar to TFolder Class.
> You can redefine folder using your resource editor.

Can we create TViaRibbonBar ( instead of TFolder ) with source code only? Most of my Folders are not from resources. I created most of my Folders with source code only. Any sample to use TViaRibbonBar in the place of TFolder from source code ?

Does TViaRibbonBar now work on 16-bit resolution ?

[dutch]

Dear Fernando,

I bought it but it has some problem with xHb.com. I try to include but not successful.

Regards,
Dutch

Hello Ducth,

You can use our TViaRibbonBar class similar to TFolder Class.
You can redefine folder using your resource editor.



Please visit http://www.noway.com for detailed info.

[nageswaragunupudi]

Mr Fernando

Your example uses resources. Can you please give a simple example without using resources at all ?

When do you propose to make the library work with 16 bit colors too ?

[richard-service]

Hi

How about use Codejock?




Regards,

Richard

[dutch]

Dear Fernando,

I try it again this morning but I've got the error as following;
What's wrong I do?

Error description : Error BASE/1004 Message not found: TVIARIBBON:DEFCONTROL

Stack Calls
===========
Called from : tobject.prg => TVIARIBBON:ERROR(172)
Called from : tobject.prg => TVIARIBBON:MSGNOTFOUND(205)
Called from : tobject.prg => TVIARIBBON:DEFCONTROL(0)
Called from : VCPanel.PRG => TVIAPANEL:NEW(0)
Called from : VRibbonB.PRG => TVIARIBBON:NEW(0)
Called from : EZQUOTE.PRG => QUOTELIST(241)

This is my code

Code: Select all  Expand view

*------------------*
Procedure QuoteList( cHotel, cQuote, cHIntNo )
local oDlg, oBrow, oBtn[5]
local oRibbonBar

OPENFILE('HOTEL','HL',1)
OPENFILE('QHEAD','QHD',iif(!empty(cQuote),3,2))
SET RELATION TO QHD->HED_HINT INTO HL

if !empty(cHotel)
   if QHD->(DbSeek( cHotel ))
      QHD->(cmxSetScope( 0, cHotel ))
      QHD->(cmxSetScope( 1, cHotel ))
   else
      MsgAlert('Quotation not found')   
   end
elseif !empty(cQuote)
   if QHD->(DbSeek( cQuote ))
      QHD->(cmxSetScope( 0, cQuote ))
      QHD->(cmxSetScope( 1, cQuote ))
   else
      MsgAlert('Quotation not found')   
   end
end   
QHD->(DbGoTop())

DEFINE DIALOG oDlg RESOURCE 'MAINLIST' FONT MEMVAR->oFont
* DEFINE DIALOG oDlg RESOURCE 'QLIST' FONT MEMVAR->oFont

DEFINE RIBBONBAR oRibbonBar OF oDlg SIZE 390 TABS " Quotation List ", " Test " PANELS "QLIST" PIXEL TRANSPARENT  // error this line

   REDEFINE LISTBOX oBrow FIELDS QHD->HED_HOTEL, QHD->HED_CNT, QHD->HED_NO+iif(!empty(QHD->HED_REV),'/'+QHD->HED_REV,''), dtoc(QHD->HED_DATE), QHD->HED_PRJ, STR(QHD->HED_ROOM,4), QHD->HED_FORM ;
           HEADERS 'Name', 'Contact Person', 'Quotation#', 'Date', 'Manager', 'Rooms', 'Q.Form' ;
           FIELDSIZES 250, 200, 75, 75, 80, 45, 100 ;
           UPDATE ;
           ID 101 ;
           OF oRibbonBar:aPanels[1] ;
           ON DBLCLICK (Quotation(.F., cHIntNo), oBrow:Refresh(), oBrow:SetFocus())


Regards,
Dutch