FiveTech Software tech support forums

... from 0 row I not found the exact variable perhaps ::nTop ? as i can say it is 1st Position of "Body" from TExplorerBar() where i oExBar:AddPanel() yes but the first position of First TaskPanelPanel is never 0 Please try fwh\samples\explbar.prg and see it the first taskpanel not is on ...

hi Silvio,

Silvio.Falconi wrote:a question

yPos := 0

this is no good because the first panel can init from 18 and not from 0 row

I not found the exact variable perhaps ::nTop ?

as i can say it is 1st Position of "Body" from TExplorerBar() where i oExBar:AddPanel()

I tried oPanel := ::oExBar:AddPanel( Upper( "Jump To Date" ), "d:\fwh\bitmaps\32x32\calendar.bmp", 480 ) // @ 40, 15 CALENDAR ::oDtPick VAR ::dDateStart OF oPanel PIXEL SIZE 220, 157 WEEKNUMBER DAYSTATE ::oDtPick := ...

... la forma más práctica de resolverlo y me ha quedado muy bien. Consiste solo en meterle espacios por la izquierda a los bitmaps: oPanel1 = oExBar:AddPanel( "Informes", "CASE" ) El bitmap "CASE" por ejemplo lo he desplazado a la derecha, dejando más espacio transparente ...

... PRG ejemplo pequeño y autocontenido de como lo estás haciendo ? oExBar:nTopColor := FONDODIAL2 oExBar:nBottomColor :=FONDODIAL2 oPanel1 = oExBar:AddPanel( "Informes", "MALETIN" ) opanel1:SetColor(letras,fondo) oPanel1:AddLink("Vistas_I",bClick, ) oPanel1:AddLink("Imprimir_I",bclick, ...

HI
We know TExplorerBar AddPanel() support PNG file.
How about enhance TExplorerBar AddLink() support PNG file or resource PNG.

... <nHeight> ] ; [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ; [ BRUSH <oBrush> ]; - New parameters in method AddPanel nTitleh: height of title nRound: round box of panel aGrad: Gradient array oFnt: Font for panel ( title and items, if not defined it ) METHOD ...

... := TExplorerBar():New( 0, 0,oApp():oPanelExplorer:nwidth-15,; oApp():oPanelExplorer:nbottom, oApp():oPanelExplorer ) oPanel := oApp():oExBar:AddPanel( "Calendario", ".\bitmaps\CALEX.bmp", 480 ) @ 30, 5 CALENDAR oApp():oDtPick VAR oApp():dDateStart OF oPanel PIXEL SIZE ...

... ", 2 } } y los construyo aqui oExBar := TExplorerBar():New( 0, 0, ::nExBarH, nil, ::oWndChild ) FOR x := 1 TO nPanel oPanel[x] := oExBar:AddPanel( ::aPanel[x,1], ::aPanel[x,2], ::aPanel[x,3] ) oPanel[x]:lSpecial = if( x == 1, .T., .F. ) FOR y := 1 TO nLinks IF ::aLinks[y,4] == x oPanel[x]:AddLink( ...

... en una window, en un panel de una explorer bar tengo un combobox quiero aplicar eso mismo, pero no encuentro como hacerlo oPanel := ::oExBar:AddPanel( "Seleccione Cabina", "cabina32", 100 ) @ 40, 15 COMBOBOX ::oCbx VAR ::cCabina ITEMS ::aCabina[2] OF oPanel PIXEL ; SIZE ...

... WINDOW oWnd1 FROM 0, 0 TO 600, 800 PIXEL TITLE "APEIRON-Cable & Wireless,S.A." MDI oBar := TExplorerBar():New() oPanel := oBar:AddPanel("Procesos diarios" ) oPanel:lSpecial := .T. oPanel:AddLink("Registro de movimientos" ,{|| MENU01()},"X_ADD") ...

... ( Mainwindow ) ( The Buttons oBtnA.., oBtnB..., defined as STATIC ) oExBar = TExplorerBar():New(150, 0, 150, 830, oWndMain) oPanel1 = oExBar:AddPanel( "One", c_path + "\Images\people.bmp" ) oPanel1:AddLink( "First item", { |o| oBtnA:SetColor( 65535, ), oBtnA:Refresh() ...

... Called from: .\source\classes\TEXPLBAR.PRG => TEXPLORERBAR:CHECKSCROLL(147) Called from: .\source\classes\TEXPLBAR.PRG => TEXPLORERBAR:ADDPANEL(133) Called from: explbar2.prg => EXPLBARINIT(25) Called from: explbar2.prg => (b)MAIN(14) Called from: .\source\classes\DIALOG.PRG => ...

... oBar1 := TExplorerBar():New( 0, aRect4 - nFACTOR1, aRect4 + nFACTOR2, aRect3 - 75, oWnd ) oPanel1 := oBar1:AddPanel("System", , 410 ) oPanel1:lSpecial := .T. // aktive Kopfleiste oPanel1:SetFont ( oFont1 ) @ 25, -20 TITLE oTitle1 SIZE 120, 500 of ...

... tPanel(...) activate dialog NOWAIT On INIT BuildEplorer(oBar,oCont) ... Function BuildEplorer(oBar,oCont) oBar : texplorer(...) oCont:= oBar:AddPanel(...) return nil I hope you understood me