Dear Anotonio,
as subject.
Regards,
Dutch
I am also eagerly waiting for that
Hello NageswaraRao,
is there a disadvantage if you use TAB and Panels instead of Folders?
Regards,
Otto
Mr Otto
Both have different purposes. Please see this topic.
We would like to deliver it in next FWH build
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
nageswaragunupudi wrote:I am also eagerly waiting for that
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 ?
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 ?
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
)))
Mr. Fernando Mancera
> 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 ?
Fernando Mancera 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.viaopen.com for detailed info.
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 ?
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)
*------------------*
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())