Newsgroup: it.comp.lang.vo-clipper
Titolo: [VO] Duplicare un menù

Buonasera e scusate ma se ne sono già andati tutti a casa per il week
end e sono costretto a chiedere a voi.
Se qualcuno gentilmente mi risponde prima di  domani lo ringrazio molto.
Vorrei sapere quale sistema usare per duplicare un menù.
Ho infatti fatto un menù di base con menù editor e devo duplicarlo con
nomi diversi e a d ognuno devo aggiungere o togliere alcune voci a
seconda del bisogno.
grazie
Andreas

Io sinceramente non ho avuto questa necessità
xò mi è capitato di dover aggiungere dei pezzi
a menu esistenti da prendere da altri menu e con
un drag & drop risolvevo velocemente il tutto.
Apri il menu originale e uno nuovo vuoto,
affianca le finestre verticalmente, copia con
un drag & drop tutti i popup menu oppure
i singoli items da quello originale a quello nuovo.
Alla fine salva quello nuovo e modificalo a tuo
piacimento.
Forse esiste un metodo + veloce di questo,
spero possa serviti lo stesso...
Ciao e buon week-end

 ha scritto nel messaggio
news:3937CEB8...@eurotime.it...


seconda del bisogno.
Non duplicarlo. Usa sempre lo stesso ed elimina le voci che non ti
servono col metodo DeleteItem().
Ciao
-----------------------------
Fabio Cresta
EDP Consultant & VO/Jasmine developer ITALY
President of Clipper/Visual Objects/Jasmine User Group Italy
e-mail: 
fcr...@tin.it
 
fcr...@windevs.com
web: 
http://www.windevs.com
------------------------------

 seconda del bisogno.
Ha ragione Fabio (Cresta) anche io mi definisco un menu standard e poi
aggiungo o elimino gli items che in quel momento non mi servono. Ad esempio
io di solito mi creo un menù standard di editing con le voci
"inserimento","modifica","cancella" e "stampa" (anche altri, a seconda della
necessità), associo ad ognuno di essi un metodo omonimo. Così ad esempio
quando io associo questo menu alla finestra A i miei metodi vengono scritti
appartenenti alla classe A. quando invece associo il menu ad un'altra
finestra B scriverò i metodi con lo stesso nome ma appartenenti alla classe
B. Cavolo ! non siamo mica in VB eh.... qui si può sfruttare la OOP.
Ciao
Enio

ciao Andreas
io faccio solo un menu generale (senza toolbar) e dopo cancello questo che
non mi server
per esempio:
CLASS SDMenuShell INHERIT SDMenuGesamt
METHOD init( o ) CLASS SDMenuShell
LOCAL oTB AS ToolBar
LOCAL nID AS DWORD
 SUPER:init( o )
 #IFNDEF FAKU
 DeleteMenu( SELF:Handle(), 2, MF_BYPOSITION )
 DeleteMenu( SELF:Handle(), 2, MF_BYPOSITION )
 DeleteMenu( SELF:Handle(), 2, MF_BYPOSITION )
 #ELSE
 DeleteMenu( SELF:Handle(), 3, MF_BYPOSITION )
 DeleteMenu( SELF:Handle(), 3, MF_BYPOSITION )
 DeleteMenu( SELF:Handle(), 3, MF_BYPOSITION )
 #ENDIF
 oTB := ToolBar{ }
 oTB:ButtonStyle := TB_ICONONLY
 oTB:AppendItem(IDT_SEPARATOR)
 nID := MenuGetID( SELF, #zeig_win_kunden )
 oTB:AppendItem(55,nID)
 oTB:AddTipText(55,nID,"Kunden")
 oTB:AppendItem(IDT_SEPARATOR)
 nID := MenuGetID( SELF, #zeig_win_lager )
 oTB:AppendItem(63,nID)
 oTB:AddTipText(63,nID,"Lager")
 #IFDEF FAKU
  oTB:AppendItem(IDT_SEPARATOR)
  nID := MenuGetID( SELF, #zeig_win_Schein_Eingabe )
  oTB:AppendItem(81,nID)
  oTB:AddTipText(81,nID,"Lieferschein Neu")
  nID := MenuGetID( SELF, #zeig_win_Schein )
  oTB:AppendItem(80,nID)
  oTB:AddTipText(80,nID,"Lieferschein Archiv")
 #ENDIF
 oTB:Bitmap := SDToolbar{}
 oTB:ButtonSize := Dimension{16, 16}
 oTB:Flat := TRUE
 SELF:ToolBar := oTB
RETURN SELF