Wherei can download dsay and sayref trasparent :
i want use it on a dialog ...brush obrush...trasparent
Regards
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
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 66 guests