FiveTech Software tech support forums

... of a UrlLnk control? I tried but it showed the menu far from url lnk On TexplorerBar I insert a link local bClick := { | o | addMenu() } oPanel4:AddLink( "testlink", bClick, ".\bitmaps\mail.bmp",oFontSmall,CLR_BLACK,CLR_WHITE ) tried with Function AddMenu() local aPoint := ...

... oExBar:nBottomColor :=FONDODIAL2 oPanel1 = oExBar:AddPanel( "Informes", "MALETIN" ) opanel1:SetColor(letras,fondo) oPanel1:AddLink("Vistas_I",bClick, ) oPanel1:AddLink("Imprimir_I",bclick, ) oPanel1:AddLink("Listados_I",bclick, ) oPanel1:AddLink("Seguimiento",bclick, ...

... )   Called from: .\source\classes\URLLINK.PRG => TURLLINK:NEW( 82 )   Called from: .\source\classes\TEXPLBAR.PRG => TTASKPANEL:ADDLINK( 472 )   Called from: source\SDS500N.PRG => BUILDPANEL( 142 ) than I saw someonechanged the the method METHOD AddLink( cPrompt, ...

+1
a) and change oUrlLink := TUrlLink() on a type of normal say no subtext

b) and add movement effect when the panel is opened or closed

c) add the possibility to call submenu type this

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

must be a data type " oPopup" on CLASS TTaskPanel my advise and insert here METHOD AddLink( cPrompt, bAction, cBitmap, oFnt, nClrT, nClrP, nClrO , oPopup,lpopup ) wheh the lpopup is true it must drwar an arrow at left if ::oPopup != nil ->>>>>>>>>>>>>>draw ...

explorerbar accept resources bitmap and How ?

I made
oPanel1:AddLink( "Print Report", bClickReport, "IMPRIMIR_16 " )

but not show the image

Look in

METHOD AddLink( cPrompt, bAction, cBitmap, oFnt, nClrT, nClrP, nClrO ) CLASS TTaskPanel

from TExplBar.prg

... 2", "C:\Fwh\bitmaps\pngs\image2.png", , 40, 0, aGrad, oFont, CLR_WHITE ) - News paramter font and others for items link METHOD AddLink( cPrompt, bAction, cBitmap, oFnt, nClrT, nClrP, nClrO ) nClrT: nClrText nClrP: nClrPane nClrO nClrOver - New DATA nOffSetX: left spaces title ...

... ::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( ::aLinks[y,1], ::aLinks[y,2], ::aLinks[y,3] ) ENDIF NEXT NEXT probe con el ON RESIZE ( oTabs:nLeft := ::oBrw:nLeft ) y no me dibuja la explorer ...

... & Wireless,S.A." MDI oBar := TExplorerBar():New() oPanel := oBar:AddPanel("Procesos diarios" ) oPanel:lSpecial := .T. oPanel:AddLink("Registro de movimientos" ,{|| MENU01()},"X_ADD") oPanel := oBar:AddPanel("Balistica" ) oPanel:AddLink("Ingresar ...

... = 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() }, ; c_path + "\Images\additem.bmp") oPanel1:AddLink( "Second ...

... = oExBar1:AddPanel( "One", ".\bitmaps\32x32\notes.bmp", 80 ) // Height oPanel1:lSpecial = .T. oPanel1:oFont := oFont2 oPanel1:AddLink( "First", bClick, ".\bitmaps\32x32\fax.bmp", 10, 40 , oFont2 ) // Added from Silvio oPanel1:AddLink( "Second", ...

... oPanel1 = oExBar:AddPanel( "One", c_path + "\bitmaps\32x32\people.bmp", 100 ) oPanel1:lSpecial = .T. oPanel1:AddLink( "First item", bClick, c_path + "\bitmaps\32x32\check.bmp", 30, 50 , oFont ) oPanel1:AddLink( "Second item", bClick, ...

Uwe, use this modify please it is compatible with old source AddLink( cPrompt,bAction, cBitmap,nHeight,nLeft,oFontItem ) METHOD AddLink( cPrompt,bAction, cBitmap,nHeight,nLeft,oFontItem ) CLASS TTaskPanel local nTop := ::nTitleHeight + 10, n, oUrlLink ...