Help Mister Andres Reyes

[Silvio]

Dear andres,
I use a dialog NO WAIT modified ( my class) into main window
and a grid on the right
I want creare a explorer bar control at left

oApp():oDlg := TMIA():New(oApp():oWndMain)
oApp():oDlg:SetColor(0,RGB(143,172,230))
oApp():oDlg:cTitle := i18n('Gestión de clientes')
oApp():oWndMain:oClient := oApp():oDlg
oApp():oDlg:NewGrid( nSplit )
oApp():oGrid:cAlias := "CU"

aBrowse := { { { || CU->FIRST }, i18n("First"), 150, 0 },;
{ { || CU->LAST }, i18n("Last"), 150, 0 },;
{ { || CU->STREET}, i18n("Street"), 150, 0 },;
{ { || CU->CITY } , i18n("City"), 150, 0 } }

FOR i := 1 TO Len(aBrowse)
oCol := oApp():oGrid:AddCol()
oCol:bStrData := aBrowse[ i, 1 ]
oCol:cHeader := aBrowse[ i, 2 ]
oCol:nWidth := aBrowse[ i, 3 ]
oCol:nDataStrAlign := aBrowse[ i, 4 ]
oCol:nHeadStrAlign := aBrowse[ i, 4 ]
NEXT
oApp():oGrid:SetRDD()
oApp():oGrid:CreateFromCode()
oApp():oGrid:bChange := { || RefreshCont(oCont,"CU") }
oApp():oGrid:nRowHeight := 21
oApp():oGrid:RestoreState( cState )
CU->(DbSetOrder(nOrder))
CU->(DbGoTo(nRecno))

oBar := TExplorerBar():New(oApp:oDlg)
oPanel := oBar:AddPanel("Tareas de Imágenes" )
oPanel:AddLink("Ver como una presentación", bClick ,"presentacion")

ACTIVATE DIALOG oApp():oDlg NOWAIT


when I run it make an error

Application
===========
Path and name: C:\work\errori\fsdi\Test.Exe (32 bits)
Size: 1,975,808 bytes
Time from start: 0 hours 0 mins 1 secs
Error occurred at: 31-12-2008, 03:14:26
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = N 0
Stack Calls
===========
Called from: Source\ttaskpanel.prg => TTASKPANEL:NEW(120)
Called from: Source\texplorerbar.prg => TEXPLORERBAR:ADDPANEL(118)
Called from: pcustomer.prg => CUSTOMER(78)
Called from: main.prg => (b)TAPPLICATION:BUILDBTNBAR(188)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(0)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: main.prg => TAPPLICATION:ACTIVATE(148)
Called from: main.prg => MAIN(37)

can you help me please


because on window run but on a dialog NOT RUN

[wmormar]

Silvio,

coloca la creación de la explorerBar en el on init del dialogo

Saludos

William Morales

[Silvio]

HOW ?
I try many test and it make error

[Silvio]

I made this test :

Code: Select all  Expand view


#include "FiveWin.ch"

Function main
Local oDlg,obar,oPanel
define Dialog oDlg

        oBar := TExplorerBar():New(oDlg)
        oPanel := oBar:AddPanel("Tareas de Imágenes" )
        oPanel:lSpecial := .T.
        oPanel:AddLink("Ver como una presentación", bClick ,"presentacion")

        activate dialog  oDlg
        return nil

it not run and make this error
Application
===========
Path and name: C:\work\LIB_32\explorerbar\testdlg.Exe (32 bits)
Size: 1,693,696 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 12/31/08, 18:06:23
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = N 0

Stack Calls
===========
Called from: Source\ttaskpanel.prg => TTASKPANEL:NEW(120)
Called from: Source\texplorerbar.prg => TEXPLORERBAR:ADDPANEL(118)
Called from: testdlg.prg => MAIN(8)