Centralizar Hyperlink
Enviado: 21 Jun 2010 15:04
Olá a todos,
Quero compartilhar um exemplo para centralizar um hiperlink na tela do sistema, uma vez que o comando não tem a propriedade CENTERALIGN que existe no LABEL.
Quero compartilhar um exemplo para centralizar um hiperlink na tela do sistema, uma vez que o comando não tem a propriedade CENTERALIGN que existe no LABEL.
Código: Selecionar todos
FUNCTION MAIN
DEFINE WINDOW fApresenta;
AT 0,0 ;
WIDTH 640;
HEIGHT 440 ;
TITLE '';
TOPMOST NOCAPTION ;
NOSIZE;
ON Release Fecha()
@030,000 LABEL Label_1 ;
WIDTH 640 HEIGHT 40 ;
VALUE "Teste";
FONT "Arial" SIZE 24;
BOLD;
CENTERALIGN;
FONTCOLOR BLUE;
TRANSPARENT
@290,000 HYPERLINK hl;
VALUE "Desenvolvido Por: Alexandre Simões, e-Mail: asimoesluz@gmail.com";
ADDRESS 'asimoesluz@gmail.com';
FONT "Arial";
SIZE 12;
AUTOSIZE;
TRANSPARENT;
TOOLTIP 'Clique aqui para enviar um email para Alexandre Simões'
END WINDOWS
fApresenta.hl.Col:=(fApresenta.Width-fApresenta.hl.Width)/2 //Aqui centraliza o hiperlink na tela
CENTER WINDOW fApresenta
ACTIVATE WINDOW fApresental
RETURN Nil