FiveTech Support Forums

FUNCTION Info()
   local oDlg, aGet[9], cPrompt, oTmr,obr
   local oMs10Under := TFont():New("Ms Sans Serif",0,-12,,.f.,,,,,.t.)

   DEFINE BRUSH oBr FILE "d48.BMP"

   define dialog oDlg title 'Authors ' BRUSH oBr TRANSPARENT   ;
      FROM  0, 0 TO 240, 330 PIXEL

   @ 00,08 BITMAP aGet[1] FILE 'ACERCADE2.BMP' ;
      SIZE 34, 54 OF oDlg PIXEL NOBORDER  TRANSPAREN

   @ 10,44 BITMAP aGet[2] FILE 'ACERCADE1.BMP' ;
      SIZE 94, 20 OF oDlg PIXEL NOBORDER  TRANSPAREN
   @ 32,10 SAYREF aGet[4] PROMPT "http://www." ;
      SIZE 142,10 PIXEL CENTERED OF oDlg                 ;
      HREF "http://www."                         ;
     FONT oMs10Under
   aGet[4]:cTooltip  := xxxxxxxxx

   @ 54,10 DYNAMIC SAY oSay ;
      PROMPT CRLF+CRLF+CRLF+;
             " This application is distribuited on  "+CRLF+;
             "Creative Commons 2.0 Licence "+CRLF+;
             "http://creativecommons.org/licenses/by-nc-nd/"+CRLF+CRLF+;
             "This software is created with the cooperation with "+CRLF+"xxxxxxxx"+CRLF+;
             "Made in xharbour and fivewin"+CRLF+CRLF+CRLF+CRLF;
      SIZE 140, 46 PIXEL CENTERED   ;
      VERTICAL SCROLL SPEED 40;
      WRAP

   activate dialog oDlg CENTERED
   oMs10Under:End()
return nil