Has it TFolder 2007 look?

dutch · Post by **dutch** » Mon Mar 17, 2008 5:16 am

Dear Anotonio,

as subject.

Regards,
Dutch

Post by **nageswaragunupudi** » Mon Mar 17, 2008 6:22 am

I am also eagerly waiting for that

Otto · Post by **Otto** » Mon Mar 17, 2008 7:10 am

Hello NageswaraRao,

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

Post by **nageswaragunupudi** » Mon Mar 17, 2008 9:01 am

Mr Otto

Both have different purposes. Please see this topic.

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

Post by **Antonio Linares** » Mon Mar 17, 2008 9:07 am

We would like to deliver it in next FWH build

Silvio · Post by **Silvio** » Tue Mar 18, 2008 1:12 pm

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 · Post by **jose_murugosa** » Tue Mar 18, 2008 1:37 pm

nageswaragunupudi wrote: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.

Post by **nageswaragunupudi** » Tue Mar 18, 2008 2:26 pm

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 · Post by **jose_murugosa** » Tue Mar 18, 2008 2:32 pm

nageswaragunupudi wrote: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 · Post by **Silvio** » Tue Mar 18, 2008 3:00 pm

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

)))

Post by **nageswaragunupudi** » Tue Mar 18, 2008 5:10 pm

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 · Post by **dutch** » Wed Mar 19, 2008 1:39 am

Dear Fernando,

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

Regards,
Dutch

Fernando Sanchez wrote: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.

Post by **nageswaragunupudi** » Wed Mar 19, 2008 3:37 am

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 · Post by **richard-service** » Wed Mar 19, 2008 3:51 am

Hi

How about use Codejock?

Regards,

Richard

dutch · Post by **dutch** » Wed Mar 19, 2008 4:46 am

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

*------------------*
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