Description
Este é um conjunto(básico) de Users Controls(UCS) em JAVASCRIPT , agradeço a ajuda nas críticas , melhorias e sugestões. Contêm os seguintes recursos:
- RCO Link Color, define os padrões dos links dos Hyperlinks, cor, tamanho , fonte, etc..
- RCO Advanced Hyperlink, abre janelas com os browsers, com mais opções, através de um HyperLink, podendo maximizar, centralizar, posicionar, com hyperlink ou com um botão, etc;
- RCO Print This page, abre o comando de impressão do Browser, via método de dentro do GX, para a página atual, alterando o caption do print page; NEW!
- RCO WindowOpen, abre janelas dimensionadas ou não via métodos de dentro do GX; NEW!
- RCO WindowOpenConsole, abre janelas centralizadas com conteúdo HTML dinâmicamente, incluindo link FECHAR; NEW!
- RCO Prompt, Pede um prompt em javascript retornando seu conteúdo ao genexus; NEW!
- RCO Login UC, formulário de login e senha para ser validada no banco de dados; NEW!
- RCO Alert, mostra mensagens ao estilo da função alert do Javascript; NEW!
- RCO Confirm, mostra janela pedindo confirmação de determinada ação, NEW!
- Confirm by K2BTools(®), agrega a um botão ou link uma tela com as perguntas de confirmação (que podem serem trocadas); NEW!
Muito útil e prático estes recursos, colocarei mais recursos assim que aprender e dominar bem os comandos JAVASCRIPT.
Estes são nossos primeiros UC com o EVL1, peço desculpas se ainda não estiver 100%, mas farei as alterações/sugestões conforme a lista abaixo.
Installation
- RCO UC Library can now be downloaded directly from GeneXus marketplace
- Copie a pasta dos UC para a pasta C:\Program Files\ARTech\GeneXus\GeneXusXEv1\UserControls;
- Com permissão de administrador (WIN VISTA) , digite no prompt do DOS (CMD) , cd C:\Program Files\ARTech\GeneXus\GeneXusXEv1
- Digite Genexus /Install
- Abra o Genexus e uma KB (.net ou java) e verifique na Toolbar dos WEBPANELS e das TRNS, se estão aparecendo.
Sample runtime image
 |
|
Exemplo Evento GX:
RCOOpenWindow1.LinkOpen = RelatorioGX.Link(50598, 1, 0)
RCOOpenWindow1.OpenWindow(True, 500, 500, False, 0, 0, True)
|
 |
|
RCOOpenWindow2.LinkOpen = RelatorioGX.Link(50598, 1)
RCOOpenWindow2.OpenWindow(False, 30,30, False)
|
 |
|
Event 'Janela c/ Conteudo'
&vrTextoHTML = 'Conteudo a meu dipor de texto conforme eu quero!<BR>' +
'<BR>' +
'Poderá ser colocado qualquer texto HTML aqui!<BR><BR>' +
'Será criado em tempo de execução!'
RCOOpenWindowConsole1.OpenWindowConsole('TITULO DINÂMICO by RCO', &vrTextoHTML , 250, 250, False)
EndEvent
|
 |
|
Event 'Prompt de Dados'
RCOPrompt1.PromptData('Por favor informe o seu NOME', '')
If (RCOPrompt1.Resposta <> '') And Len(RCOPrompt1.Resposta) > 0
Msg( 'Informado o conteúdo:' + RCOPrompt1.Resposta)
Else
Msg('NENHUM NOME INFORMADO!')
Endif
EndEvent
|
 |
|
Event 'Imprimir esta Página'
RCOPrintThisPage1.PrintPage()
EndEvent
|
 |
|
Event Start
Confirm1.AttachedControl = Button3.InternalName
Confirm1.Message = 'Deseja realmente Processar tal ação?'
Confirm1.OkLabel = 'Processar'
Confirm1.CancelLabel = 'Cancelar'
Confirm1.Width = '300'
Confirm1.Height = '80'
EndEvent
|
 |
| Background e Tamanhos das fontes alteráveis no UC |
 |
| Tabela e Etiquetas dos labels e botões configuráveis via Classe do GX |
 |
|
// Sample Code for RCO Login UC
Event RCOLogin1.LoginInformado()
&vrLogin = RCOLogin1.LoginDigitado
&vrSenha = RCOLogin1.SenhaDigitada
// LOGIN e SENHA ABAIXO, pegar(pesquisar) do Banco de Dados
If ((&vrLogin <> 'LOGIN') And (&vrSenha <> 'SENHA'))
RCOLogin1.MensagemRetorno('LOGIN e Senha INVÁLIDO! Tente Novamente')
Else
RCOLogin1.MensagemRetorno('Parabéns.. vc será redirecionado em breve...')
WebPanel1.Link()
Endif
EndEvent
|
 |
 |
 |
 |
 |
Todo List / Sugestions
Funciona no IE , FIREFOX e Chrome 4.0;
Thanks and Collaboration
Gonzallo Cuiñas
Javier Larosa
Armando Cardoso
Gonzalo Gallotti
K2bTools Team
Change Log
Mar 5th, 2009: v0.1 BETA released;
Sep 17th, 2009: v0.5 BETA release;
Sep 20th, 2009? v0.5 BETA release, login horizontal, uc confirm e prompt modificado;
Contact
Ricardo Oliveira - ricardo@rcop.com.br