B4A Library RoldanWindowChoice

Esta biblioteca foi desenvolvida em b4a.
Biblioteca, que mostra uma janela de opções.

Fácil de usar, fácil de configurar e muito flexível.
com linhas linhas vc abre uma janela com um simples Array ou List ou até mesmo um Map.

RoldanWindowChoice
Autor:
Eduardo Roldan
Versão: 1.22

RoldanWindowChoice
  • Funções:
    • Class_Globals As String
    • Initialize (ME_CallBack As Object, TitleBar As String, Itens_Choice As Object)
      Objetivo: Inicializa o objeto.
      '-> ME_CallBack = onde você retornará a ligação
      ' -> TitleBar = Título da janela
      '-> Itens_Choice = Mapa / Matriz / Lista com uma escolha de gráfico, Nota: As opções não podem ser repetidas
      [CODE lang = "b4x" destaque = "Este exemplo abre uma janela com 3 opções com um Mapa e inconsistências nos botões"] Dim Map As Map: Map.InitializeMap.put ("Escolha 1", "Balanca.Png")
      Map.put ("Escolha 2", "Carga.Png")
      Map.put ("Escolha 3", "Chegou.Png")
      Dim RoldanWindowChoice As RoldanWindowChoice
      RoldanWindowChoice.Initialize (Me, "Choose a Map",

      Aguarde Close_RoldanWindowChoice (Return As String) [/ CODE]

    • Set_TransparentEdgeWidth (New_WidthEdge As Double)
      Objetivo: Informar a largura da borda transparente da janela (quanto maior essa borda, menor a janela)
      [CODE = b4x] RoldanWindowChoice.Set_TransparentEdgeWidth [/ CODE]

    • isVisible As Boolean
      Testa se o objeto é visível
      [CODE = b4x] se RoldanWindowChoice.isVisible então [/ CODE]

    • Mostrar
      objetivo: este comando mostra a janela após configurar
      [CODE = b4x] RoldanWindowChoice.Show [/ CODE]

    • Set_HeightBar (New_Height_Bar As Double)
      Objetivo: Informar a Altura da barra de título da janela.
      NOTA: Não é obrigatório, caso não informe mostra que o padrão é 7% x
      [CODE = b4x] RoldanWindowChoice.Set_TransparentEdgeWidth (10% x) [/ CODE]

    • ColorFontTitleBar
      Objetivo: Obter ou definir cores da barra de fontes das janelas.
      NOTA: Não é obrigatório, se você não inserir, a cor padrão será preto
      [CODE = b4x] 'Get ColorsxColor = RoldanWindowChoice.getColorFontTitleBar

      ' Definir cores
      RoldanWindowChoice.getColorFontTitleBar = Colors.Red
      [/ CODE]

    • Set_ColorOrImageNameBar (Color_Or_Image_Name_Bar As String)
      Objetivo: Definir a cor ou o nome de uma imagem para a barra da janela.
      NOTA: Não é obrigatório, se você não inserir, a cor padrão será verde claro
      [CODE = b4x] RoldanWindowChoice.Set_ColorOrImageNameBar (Colors.Blue)
      'ou
      RoldanWindowChoice.Set_ColorOrImageNameBar ("fundo.png")
      [/ CODE]

    • Set_ColorOrNameOfImageBackground (New_Color_or_Name_Of_Image_For_The_Window_Background As String)
      Objetivo: Definir a cor ou o nome da imagem para o fundo da janela
      NOTA: Não obrigatório, se você não entrar, a cor padrão será branco
      [CODE = b4x] RoldanWindowChoice.Set_ColorOrNameOfImageBackground (colors.Blue)
      'ou
      RoldanWindowChoice.Set_ColorOrNameOfImageBackground ("fundo.png")
      [/ CODE]

    • Set_ColorOrNameOfImageBackgroundButton (New_Color_Or_Name_Of_Image_Background_Button As String)
      Objetivo: Definir a cor ou o nome da imagem do botão de fundo da imagem
      NOTA: Não obrigatório, se você não inserir, a cor padrão será verde
      [CODE = b4x] RoldanWindowChoice.Set_ColorOrNameBlueBack) (colors)
      RoldanWindowChoice.Set_ColorOrNameOfImageBackgroundButton ("fundo.png")
      [/ CODE]

    • ColorFontButtons
      Obter ou definir a cor da fonte dos botões
      NOTA: Não é obrigatório, se você não inserir, a cor padrão será verde
      [CODE = b4x] 'o Get
      xColor = RoldanWindowChoice.ColorFontButtons

      ' o Definir
      RoldanWindowChoice.ColorFontButtons = colors.Blue
      [/ CÓDIGO]

    • ColorEdge
      Get or Set Edge Color
      NOTA: Não é obrigatório, se não informar mostra que o default é Blue
      [CODE = b4x] 'Get Colors
      xColor = RoldanWindowChoice.ColorEdge

      ' Set Colors
      RoldanWindowChoice.ColorEdge = Colors.Magenta
      [/ CODE]

    • TitleBarTextSize
      Obtém ou define o tamanho do texto da Barra de Título
      NOTA: Não é obrigatório, se não informar mostra o padrão
      [CODE = b4x] 'Get
      xtextSize = RoldanWindowChoice.TitleBarTextSize
      ' Set
      RoldanWindowChoice.TitleBarTextSize = 10
      [/ CODE]

    • ButtonTextSize
      Get ou Set Button Text Size
      NOTA: Não é obrigatório, se você não informar mostra o default
      [CODE = b4x] 'the Get
      xtextSize = RoldanWindowChoice.ButtonTextSize
      ' the Set
      RoldanWindowChoice.ButtonTextSize = 10
      [/ CODE]

    • Ocultar
      Ocultar a janela RoldanWindowChoice
      [CODE = b4x] RoldanWindowChoice.Hide [/ CODE]
  • Eventos
    • Btn_Click (ViewTag As Object) As String
      Ocorre quando é clicado um botão
      Nota: Não precisa pois da pra tratar tudo com o Wait For Close_RoldanWindowChoice (Retorno As String)

    • Btn_Cancel_RoldanWindowChoice_Click
      Ocorre quando RoldanWindowChoice é cancelado o Retorno = "Quit"
      Nota: Não precisa pois da pra tratar tudo com o Wait For Close_RoldanWindowChoice (Retorno As String)

    • Close_RoldanWindowChoice
      Ocorre quando RoldanWindowChoice é fechado Retorno = "Quit"
      Nota: Não precisa pois da pra tratar tudo com o Wait For Close_RoldanWindowChoice (Retorno As String)

    • RoldanWindowChoice_Show Ocorre quando RoldanWindowChoice é precioso

      https://www.paypal.com/donate/?business=9V3YT8MKKXV9C&no_recurring=0¤cy_code=BRL&Z3JncnB0=
 

Attachments

  • Screenshot_2021-07-13-12-52-26.png
    Screenshot_2021-07-13-12-52-26.png
    85.1 KB · Views: 94
  • Screenshot_2021-07-13-12-52-36.png
    Screenshot_2021-07-13-12-52-36.png
    50.1 KB · Views: 92
  • Screenshot_2021-07-13-12-52-45.png
    Screenshot_2021-07-13-12-52-45.png
    157.3 KB · Views: 93
  • Screenshot_2021-07-13-12-52-53.png
    Screenshot_2021-07-13-12-52-53.png
    141.7 KB · Views: 84
  • Screenshot_2021-07-13-12-53-05.png
    Screenshot_2021-07-13-12-53-05.png
    133.7 KB · Views: 79
Last edited:
Top