To All
Please forgive me is this question has been asked before .. I have a dialog that I want to put multiple tabs in and within those tabs I want a listbox and 3 buttons ..
I have never used tabs .. looked in the examples and in the limited time .. could not find anything close ...
Any help would be appreciated ..
Rick Lipkin
Rick,
Do you mean tabs or folders ?
DEFINE WINDOW oWndChild OF ownd MDICHILD TITLE "Touch"
@ 8, 0 TABS oTabs PROMPTS " Alimentar Mesas "," Outras Op莽玫es " OF oWndChild ;
ACTION ( aDlgs[ nDlg ]:Hide(), nDlg := nOption,;
aDlgs[ nOption ]:Show(), aDlgs[ nOption ]:SetFocus() ) color CLR_BLACK
oWndChild:oBottom = oTabs
oWndChild:Resize()
DEFINE DIALOG oDlg1 RESOURCE if(pVideo1>800,"TOUCHTELA1","TOUCHTELAA800") OF oWndChild
redefine get oprod var vprod of oDlg1 id 4013 PICTURE "9999999999999"
redefine listBox tcobRW1 Fields OF oDlg1 id 4012 COLORS
tcobRW1:lAdjBrowse := .f.
tcobRW1:lAdjLastCol := .t.
tcobRW1:aHJustify := {2,0,1}
tcobRW1:aJustify := {2,0,1}
tcobRW1:nHeaderStyle := 3
tcobRW1:nLineStyle := 2
tcobRW1:nclrbackfocus:= {|| CLR_HBLUE}
tcobRW1:nClrNFBack := {|| CLR_HBBLUE}
tcobRW1:nHeaderHeight:= 19
tcobRW1:nLineHeight := 18
tcobRW1:nFreeze := 3
tcobRW1:aHeaders := {"C贸d.","Descri莽茫o","Qtde"}
tcobRW1:nClrPane := {|| IF(tcobRW1:nat % 2 == 0,CLR_LGRAY,CLR_LGREEN)}
tcobRW1:bLine := {|| If( Len(aProdtch)<1 .or. tcobRW1:nAt>Len(aProdtch),array(3),;
{ trans(aProdtch[tcobRW1:nat,1],'999999'),;
trans(aProdtch[tcobRW1:nat,2],'@!'),;
trans(aProdtch[tcobRW1:nat,4],'9999.999')})}
tcobRW1:setArray(aProdtch)
tcobRW1:Refresh()
***sub-grupos
redefine listBox obRW2 Fields OF oDlg1 id 4016 COLORS CLR_BLACK,CLR_LGREEN SIZES 100
obRW2:lDrawHeaders := .F.
obRW2:lAdjBrowse := .f.
obRW2:lAdjLastCol := .t.
obRW2:aJustify := {2}
obRW2:nHeaderStyle := 3
obRW2:nLineStyle := 2
obRW2:nclrbackfocus:= {|| CLR_HBLUE}
obRW2:nClrNFBack := {|| CLR_HBBLUE}
obRW2:nLineHeight := if(pVideo1>800,52,46)
obRW2:setArray(subgrupos)
obRW2:Refresh()
****imagens
REDEFINE image ToBti[1] ID 4053 OF oDlg1 PIXEL ADJUST ON CLICK (achareg(nPG,1,aprodsubs)) CURSOR ocurfot
REDEFINE image ToBti[2] ID 4054 OF oDlg1 PIXEL ADJUST ON CLICK (achareg(nPG,2,aprodsubs)) CURSOR ocurfot
REDEFINE image ToBti[3] ID 4055 OF oDlg1 PIXEL ADJUST ON CLICK (achareg(nPG,3,aprodsubs)) CURSOR ocurfot
REDEFINE image ToBti[4] ID 4056 OF oDlg1 PIXEL ADJUST ON CLICK (achareg(nPG,4,aprodsubs)) CURSOR ocurfot
REDEFINE BUTTONBMP tchbtn[1] ID 4010 OF oDlg1 ACTION(okenter()) CANCEL
REDEFINE BUTTONBMP tchbtn[2] ID 4019 OF oDlg1 ACTION(calculatch(0)) CANCEL
REDEFINE BUTTONBMP tchbtn[3] ID 4011 OF oDlg1 ACTION(tchclr()) CANCEL
REDEFINE BUTTONBMP tchbtn[4] ID 4007 OF oDlg1 ACTION(calculatch(1)) CANCEL
REDEFINE BUTTONBMP tchbtn[5] ID 4008 OF oDlg1 ACTION(calculatch(2)) CANCEL
REDEFINE BUTTONBMP tchbtn[6] ID 4009 OF oDlg1 ACTION(calculatch(3)) CANCEL
REDEFINE BUTTONBMP tchbtn[7] ID 4004 OF oDlg1 ACTION(calculatch(4)) CANCEL
REDEFINE BUTTONBMP tchbtn[8] ID 4005 OF oDlg1 ACTION(calculatch(5)) CANCEL
REDEFINE BUTTONBMP tchbtn[9] ID 4006 OF oDlg1 ACTION(calculatch(6)) CANCEL
REDEFINE BUTTONBMP tchbtn[10] ID 4001 OF oDlg1 ACTION(calculatch(7)) CANCEL
REDEFINE BUTTONBMP tchbtn[11] ID 4002 OF oDlg1 ACTION(calculatch(8)) CANCEL
REDEFINE BUTTONBMP tchbtn[12] ID 4003 OF oDlg1 ACTION(calculatch(9)) CANCEL
REDEFINE group tchbtn[17] PROMPT "Produtos - P谩gina: 1 de 1" ID 5555 OF oDlg1 transparent
REDEFINE BUTTONBMP tchbtn[13] ID 4020 OF oDlg1 BITMAP "DOWN" ACTION(obRW2:godown(),obRW2:setfocus()) CANCEL
REDEFINE BUTTONBMP tchbtn[14] ID 4021 OF oDlg1 BITMAP "UP" ACTION(obRW2:goup(),obRW2:setfocus()) CANCEL
REDEFINE BUTTONBMP tchbtn[15] ID 4018 OF oDlg1 BITMAP "REGVOLTA" ACTION(mudapagina(@nPG,nTo,.f.,aprodsubs,tchbtn,tipo)) CANCEL
REDEFINE BUTTONBMP tchbtn[16] ID 4022 OF oDlg1 BITMAP "REGAVANCA" ACTION(mudapagina(@nPG,nTo,.t.,aprodsubs,tchbtn,tipo)) CANCEL
REDEFINE BUTTONBMP tchbtn[18] ID 4084 OF oDlg1 BITMAP "QUIT" ACTION(oDlg1:END()) CANCEL TEXTTOP
REDEFINE BUTTONBMP tchbtn[19] ID 4085 OF oDlg1 BITMAP "MAME" ACTION(TECLADOTOUCH(fonte_TCH,@aProdtch)) CANCEL
REDEFINE BUTTONBMP tchbtn[20] ID 4086 OF oDlg1 BITMAP "DOWN" ACTION(tcobRW1:godown(),tcobRW1:setfocus()) CANCEL
ACTIVATE DIALOG oDlg1 NOWAIT ON INIT (oDlg1:Move( 0, 0 ));
VALID( IF(oWndChild#NIL,oWndChild:END(),),.T.)
DEFINE DIALOG oDlg2 RESOURCE "TOUCHTELA" OF oWndChild
redefine listBox pfaobRW Fields OF oDlg2 id 511 SIZES 45,100,400,80,80,80,70,20,80 COLORS CLR_BLACK,CLR_LGREEN
pFaobRW:lAdjBrowse := .t.
pFaobRW:lAdjLastCol := .t.
pFaobRW:aHJustify := {2,2,0,1,1,1,2,2,1}
pFaobRW:aJustify := {2,2,0,1,1,1,2,2,1}
pFaobRW:nHeaderStyle := 3
pFaobRW:nLineStyle := 2
pFaobRW:nclrbackfocus:= {|| CLR_HBLUE}
pFaobRW:nClrNFBack := {|| CLR_HBBLUE}
pFaobRW:nHeaderHeight:= if(pVideo1>800,33,31)
pFaobRW:nLineHeight := 36
pFaobRW:setArray(aProdtch)
pFaobRW:Refresh()
**
REDEFINE BUTTONBMP obtc[1] ID 4017 OF oDlg2 BITMAP "USER"
ACTIVATE DIALOG oDlg2 NOWAIT ON INIT (oDlg2:Move( 0, 0 ));
VALID(IF(oWndChild#NIL,.F.,.T.))
oDlg2:Hide()
oDlg1:SetFocus()
aDlgs:={ oDlg1, oDlg2 }
ACTIVATE WINDOW oWndChild maximized valid( oWndChild:=NIL,oTabs:end(),ocurfot:end(),fonte_TC5:end(),fonte_TC2:end(),fonte_TCH:END())
Espero ter ajudado!
Antonio
It looks like testfld2.prg will get me started .. thanks
Rick
Rick,
FOLDER32 is a define not a string (should not be between "").
Better simply write it as "SysTabControl32"
Antonio
Been a crazy day here .. phone going nuts .. all kinds of problems so I haven't had too much time to concentrate ..
I did see the include statement in the .rc and after bludgening myself silly .. I opened Winapi.ch and found the translation you mentioned ..
I was able to insert it into my .rc and I think I have what I need to make my idea work ..
Thanks so much !!
Rick Lipkin
Rick,
I use folders without any problems. If you need immediate responses feel free to email me at timstone at masterlinksoftware dot com or MLSDG on AIM. I'd be glad to help and I'm at the computer all day today.
Tim
Tim
Thank you for your gracious reply .. I think I have got this thing working the way I want ..
I have multiple tables with listboxes open and instead of navigating away from the main form ( with buttons ) .. I wanted to 'tab' thru them individually.
Actually made for quite a clean(er) dialog box and using SQL recordsets cached locally .. it is very 'smooth'
Rick Lipkin
Been there, done that ... but with independent dialogs on each folder. Its just cleaner in the .rc file.
We sale a new class TTabs Office like 2007 Style with Bitmaps
If you want you can write on private.
How about Folders ?
Tim
No only TTabs now ... We are working on Folder style 2007
If you want We have only folder with bitmaps NO style office 2007 only xp style!!
I'm fine with standard FWH ... I don't need bitmaps on folders at this time.
Tim
standard FWH supports bitmaps on folders already
fwh\samples\TestFold.prg
