Newsgroup: it.comp.lang.vo-clipper
Titolo: CombBox e ClearIndex perchè non funzionate ?

Salve,
       Il grande '' Visual Object '' e tanto grande quanto sono grandi i
suoi misteri, e c'è ne sono tanti.
       Piccolo e chi lo utilizza, uno dei tanti sono muuuuàààààà.
       Sporadico se non abitudinario, ore 04,00 sveglia quotidiana,
accensione pc( ps, ds, dc, grande berlusconi) caffè ( napoletano ) sui
fornelli, collegamento, mentre aspetto il caffè che sale,  internet
It.comp.lang.vo.clipper e mi leggo i messaggini fortunatamente in italiano.
        Oggi voglio provarci anco io.
        A) La mia Shell window ha un ToolBar con un CombBox in cui vengono
per ragione sociale elencati
             gli utenti disponibili e fin qua tutto bene.
             ho il mio metodo listboxselect(ocontrolevent) che ha dei
compiti nel momento in cui seleziono un          utente che non sia quello
visualizzato, funziona perfettamente .
             Lancio un finestra figlia della shell, nel momento in cui do il
focus con il mouse il  combbox e seleziono un utente diverso il metodo
listboxselect( ocontrolevent )  della shell non viene invocato.
             ho bisogno di individuare questo evento.
             ho pensato di subclassare il mio combbox .
                  method dispatch(oevent) class My combbox
// Innanzitutto penso che il messaggio possa
                                //
// essere molto generico, ho provato con
                                if  (oEvent:Message == WM_COMMAND)    //
messaggi diretti CB_etcc ma niente di
// nuovo
                                    // in questo modo ho risolto il problema
                                    SELF:OWNER:OWNER:ResetUtente()
                                endif
                                //
                  return   ( super:dispatch( oEvent ) )
              Anche se in questo modo ho risolto il problema, non penso che
sia quello giusto.
          B) il Metodo o la funziona db//clearindex in qualsiasi modo
utilizzata o con parametri o senza
               non rilascia  gli indici.
              local oSrv as dbSerVer
              oSrv := dbSerVer{ 'My_Dbf' }
              oSrv:SetIndex('My_Index')
              if ( oSrv:EvaluteIndexCreateOrReindex() )
//
                   oSrv:ClearIndex() .or. oSrv:ClearIndex('My_Index')   //
Ordina il database per ordine naturale '0'
// ma non rilascia il file per la cancellazione
                   if ( Cancello('My_Index) )  // non lo cancella per errore
di condivisione
                      CreoIndex()
                   endif
             endif
             Qual'è la solution ?
             non ritengo giusto chiudere il database riaprirlo e prima di
associare l'indice, ricreare l'indice, che
             sembra essere l'unica soluzione.
             Non sono intervenuto prima, anche se ho votato 'anco io' per
questo NG( la sete e tanta), perchè mi è nata la mia Mariangela e sono stato
un pochino troppino indaffaratino.
             prometto di scambiare abbracci e baci, fraterni..............

             prometto di scambiare abbracci e baci, fraterni..............
Immagino che sarai stato costretto a fare dei beta test di pannolini e
pappine e avrai avuto poco tempo per fae beta test su VO!!!!
Auguri

Salve.
         Mi associo completamente con quanto detto su Fabio Crestra, anzi,
         penso di più cio che dico non voglia essere alcuna offessa per la
persona ma io lo potrei paragonare al fabrice foray ITALIANO.
Okey per la ToolBar
          METHOD Dispatch( oEvent ) CLASS   MyToolBar
                            //
                            LOCAL iReturn  AS LONGINT
                            LOCAL oObj     AS OBJECT
                            //
                            iReturn  := SUPER:Dispatch( oEvent )
                            IF  (oEvent:Message == WM_COMMAND)
                                  oObj  :=
etObjectByHandle( PTR(_CAST,oEvent:lParam ) )
                                  IF !(oObj == NULL_OBJECT) .and.
(oObj:NameSym == #Utenti)
                                       IF (HiWord(oEvent:wParam) ==
CBN_SELCHANGE)
                                           SELF:OWNER:UtSelect()
                                       ENDIF
                                  ENDIF
                            ENDIF
                            //
                           RETURN ( iReturn  )
              Anche se:
                          A)Ogni Volta che modifico qualche Item nel Menu mi
resetta la mia toolbar percui devo andare nel init del menu  e cambiare
toolbar in mytoolbar, non ho capito come fare nel editore del menu  per
inidicargli un classe diversa dalla toolbar normale.
                               Come Ovviare a questo....... ????????????
                           B)Per l'indicizzazione del database volendo lo si
può fare anche, se funzionasse il clearindex, bloccando il database, senza
aprirlo in exclusive mode ma utilizzando il metodo:FLoCk(), come faccio
attualmente.
                           C)Un'altra cosa che non riesco a capire il metodo
draw della classe printer che mi funziona su una stamante Epsno lX 100 9
Aghi, mentre su la Epson Stilus Color 740 non mi funziona epppure le
utilizzo per stampare delle piccole immagini di 16 o 256 colori che in
questo caso sono dei logo.
                           A proposito  quando il debugger non funziona, per
farlo rifunzionare non c'è bisogno di far ripartire il Vo basta chiudere e
riaprire il reposity esplorer.
                          Di nuovo grazie.........
                          La mia Mariangela piange devo lasciarvi...........
Luigi De Palma...........

                          La mia Mariangela piange devo lasciarvi...........
Vai pure  a goderti le gioie della paternita'!!!!!!
Ciao