Centralizar Hyperlink

[asimoes]

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.

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