FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Error with TexplorerBar
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Error with TexplorerBar
Posted: Wed Nov 17, 2010 07:54 AM
I made this on code

nMod :=1

ACTIVATE DIALOG oApp():oDlg NOWAIT;
ON PAINT (oApp():AdjClient() ,oApp():AdjRight());
ON INIT ( BuildPanel(nMod) ,;
.....





Function BuildPanel(nMod)


oApp():oTaskPanel := TExplorerBar():New( 0, 0,oApp():oPanelLeft:nwidth-5, oApp():oPanelLeft:nbottom, oApp():oPanelLeft )
oApp():oCont = oApp():oTaskPanel:AddPanel( "Customer", "c:\work\fwh\bitmaps\32x32\people.bmp",1 )
oApp():lSpecial = .T.

oApp():oCont2 = oApp():oTaskPanel:AddPanel(oApp():cTitle,"c:\work\fwh\bitmaps\32x32\people.bmp" )
oApp():AddLink( "Nuovo utente", Sol_Datos(.t.), "c:\work\fwh\bitmaps\16x16\additem.bmp" )





Before to create the dialog it run Sol_Datos(.t.) Function ....WHY ?
Best Regards, Saludos



Falconi Silvio
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Error with TexplorerBar
Posted: Wed Nov 17, 2010 10:10 AM
Silvio

from class
Code (fw): Select all Collapse
METHOD AddLink( cPrompt, bAction, cBitmap )


second parameter should be a codeblock you're using a function
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Re: Error with TexplorerBar
Posted: Wed Nov 17, 2010 10:18 AM

oopps

Best Regards, Saludos



Falconi Silvio

Continue the discussion