https://foro.gambas-es.org/viewtopic.php?f=5&t=7920
-----------------------------------
v3ctor
Jueves, 19 Marzo 2020, 21:21

Un Truco Peligroso Con Menu!!!
-----------------------------------
buenas

Resulta que en el formulario principal de visor se me lleno de botones y todo tipo de clases, tanto que ya es muy complicado añadir nuevos botones o clases, entonces decidí (después de aprender a cargar un formulario en un panel de otro formulario) crear un formulario nuevo y así resolver el problema de espacio.

con la vista video ya lo hice era la mas fácil, ahora toca la vista capitulo algo mas difícil,(una cirujia complicada, despues viene la cirujia de la vista busqueda eso si que sera un dolor de cabeza posiblemente varias semanas de trabajo ) y me tope que tengo que sacar un menú contextual del fmain principal y ponerlo en el nuevo formulario, la historia es que gambas que yo sepa no tiene como mover de un formulario a otro un menú o un submenu, en mi caso es un submenu y me daba mucha fiaca hacerlo todo manual.... y pensando como ahorarme trabajo hice algo peligroso, copie el submenu del fmain principal y lo inserte en el archivo Fcapitulo.form que es donde esta la estructura del nuevo formulario, para mi sorpresa quedo impecable. pero lo hice con un poquito de miedito jajjaja



# Gambas Form File 3.0

{ Form Form
  MoveScaled(0,0,60,27)
  Expand = True
  Arrangement = Arrange.Vertical

[b]de aqui[/b]
  { mnuOpcionesComentCap Menu
    Text = ("OpcionesComentariosCaps")
    { mnuOpcComentCapsGuardar Menu comentarioCap
      Name = "mnuOpcComentCapsGuardar"
      Action = "guardar"
      Text = ("Guardar")
      Picture = Picture["MiIcon/22/guardar22.png"]
    }
    { Menu41 Menu
    }
    { mnuOpcComentCapsBorrarGuardar Menu comentarioCap
      Name = "mnuOpcComentCapsBorrarGuardar"
      Action = "borrarGuardar"
      Text = ("Borrar y guardar")
      Picture = Picture["MiIcon/22/borrar22.png"]
    }
    { Menu42 Menu
    }
    { mnuOpcComentCapsBorrar Menu comentarioCap
      Name = "mnuOpcComentCapsBorrar"
      Action = "borrarTexto"
      Text = ("Borrar")
      Picture = Picture["MiIcon/22/borrar22.png"]
    }
    { Menu10 Menu
    }
    { mnuOpcComentCapsExplorador Menu comentarioCap
      Name = "mnuOpcComentCapsExplorador"
      Action = "explorar"
      Text = ("Explorar comentarios de capítulos")
      Picture = Picture["icon:/16/find"]
    }
    { mnuInsertarEtqLargaComentCap Menu
      Text = ("Insertar etiqueta larga")
      Picture = Picture["MiIcon/24/etqLarga.png"]
    }
  }

[b]hasta aqui[/b]


  { !txtEcapitulo1 TextEdit
    MoveScaled(10,2,26,9)
    #Public = True
    Background = &HD2DFC3&
    Expand = True
    Wrap = True
  }
  { !txtAComentarioCap TextArea
    MoveScaled(10,12,26,9)
    #Public = True
    Visible = False
    Background = &H606060&
    Foreground = &HFFFFFF&
    Expand = True
    Wrap = True
  }
  { PanOpcComentCap Panel
    MoveScaled(43,2,12,4)
    Background = &HE0000000&
    Ignore = True
    Arrangement = Arrange.Horizontal
    AutoResize = True
    { btnOptCap2 Button
      MoveScaled(1,0,3.625,3.625)
      Visible = False
      Picture = Picture["MiIcon/opcion.png"]
      Border = False
    }
    { btnAcciones Button
      MoveScaled(5,0,3.625,3.625)
      Visible = False
      ToolTip = ("Acciones")
      PopupMenu = "mnuOpcionesComentCap"
      Picture = Picture["MiIcon/22/selecion22.png"]
      Border = False
    }
    { !tBtnVerComentarioCap ToggleButton
      MoveScaled(8,0,3.625,3.625)
      #Public = True
      Picture = Picture["MiIcon/32/solnull.png"]
      Border = False
    }
  }
}
{ Actions
  { Action borrarGuardar
    Text = "Borrar y guardar"
    Shortcut = ""
    Picture = "MiIcon/22/borrar22.png"
  }
  { Action borrarTexto
    Text = "Borrar"
    Shortcut = ""
    Picture = "MiIcon/22/borrar22.png"
  }
  { Action explorar
    Text = "Explorar comentarios de capítulos"
    Shortcut = ""
    Picture = "icon:/16/find"
  }
  { Action guardar
    Text = "Guardar"
    Shortcut = ""
    Picture = "MiIcon/22/guardar22.png"
  }
}

saludos, y que piensan de esta locura?


-----------------------------------
Shell
Viernes, 20 Marzo 2020, 10:18

Re: Un Truco Peligroso Con Menu!!!
-----------------------------------
v3ctor:

[quote]
saludos, y que piensan de esta locura?
[/quote]

Pues es que nunca he pensado en esta situación.  :roll: 
Aun no he probado a mostrar un formulario dentro de un panel. Tendría que ver el motivo, situación, su uso.

¿ Y no será cuestión de que representes lo que quieres de otra forma ?.

Al principio creía que la aplicación se te había "amotinado" y se había creado una función recursiva llenado el formulario con menuses y botones
por aquí y por allá.  

Saludos


