karinha wrote:No puede ser asi?
// C:\FWH\SAMPLES\SILVTIT.PRG
#include "fivewin.ch"
#include "ttitle.ch"
#define CLR_MSPURPLE RGB( 128, 57, 123 )
#define CLR_MSRED RGB( 232, 17, 35 )
#define CLR_MSGRAY RGB( 229, 229, 229 )
FUNCTION Main()
LOCAL oDlg, oFont, cTitle, oTitle, cTextTl, oIcon, aGrad, oTitle1
cTiTle := "Configurazione"
cTextTl := "PRUEBA DE TITLE DE FIVEWIN"
DEFINE ICON oIcon FILENAME "..\icons\customer.ico"
DEFINE FONT oFont NAME "Blackoak Std" SIZE 12, 30
aGrad := { { 0.30, CLR_WHITE, CLR_MSPURPLE },{ 0.50, CLR_MSPURPLE, CLR_WHITE } }
DEFINE DIALOG oDlg SIZE 420, 200 PIXEL TRUEPIXEL FONT oFont TITLE cTitle ;
GRADIENT aGrad ICON oIcon
oDlg:lHelpIcon := .F.
@ 05, 00 TITLE oTitle SIZE 416, 50 OF oDlg SHADOW BOTTOMLEFT SHADOWSIZE 6
// SHADOW TOPRIGHT // SHADOW NOSHADOW // NOBORDER
@ 10, 09 TITLETEXT OF oTitle TEXT cTextTl FONT oFont 3d COLOR CLR_MSGRAY
oTitle:lBorder :=.T.
oTitle:aGrdBack = { { 1, nRGB( 129, 130, 138 ), nRGB( 59, 60, 62 ) } }
oTitle:nShadowIntensity = 70
@ 060, 150 TITLE oTitle1 SIZE 225, 60 OF oDlg SHADOW TOPRIGHT
oTitle1:lBorder :=.T.
oTitle1:aGrdBack = { { 1, nRGB( 129, 130, 138 ), nRGB( 59, 60, 62 ) } }
oTitle1:nShadowIntensity = 70
@ 30, 10 TITLETEXT OF oTitle1 TEXT FWVERSION FONT oFont 3d COLOR CLR_MSRED
ACTIVATE DIALOG oDlg CENTERED
oFont:End()
RETURN NIL
// FIN / END
Once again I can't understand your attitude. if I asked for a specific thing, i.e. the title class on a dialog with transparent mode, does it mean that I found a Bug
you have already written heresies to me other times together with your snack friend.
#include "FiveWin.ch"
#include "Constant.ch"
#include "ttitle.ch"
Function Test()
local oDlg,oFont,oBold
local oBar
local oTitle,oFontTitle,oBoldTitle
local aBtnBar[2]
local nRow:= 0,nCol:= 10
local nInterlinea := 30
local nBottom:= 41
local nRight := 94.6
local nHt := nBottom * DLG_CHARPIX_H
local nWd := Max( nRight * DLG_CHARPIX_W, 180 )
oFont := TFont():New( "TAHOMA", 0, 18,, )
oBold := TFont():New( "TAHOMA", 0, 14,,.t. )
oFontTitle := TFont():New( "TAHOMA", 0, 18,, )
oBoldTitle := TFont():New( "TAHOMA", 0, 18,,.t. )
DEFINE DIALOG oDlg SIZE nWd , nHt PIXEL TRUEPIXEL;
FONT oFont TITLE "Configurazione" COLOR CLR_BLACK, RGB( 245,245,235) TRANSPARENT;
STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ;
WS_MINIMIZEBOX)
//-----------------------------------title
@ nRow, 0 TITLE oTitle OF oDlg SIZE 1025, 65 NOBORDER //PIXEL
oTitle:aGrdBack := { { 0.5, Rgb(250,250,245), Rgb(250,250,245) } }
oTitle:nShadow := 0
nRow+=2
@ nRow, nCol TITLEIMG OF oTitle RESNAME "C:\work\fwh\bitmaps\pngs\home.png" SIZE 48, 48 REFLEX TRANSPARENT
nRow+=14
@ nRow, 75 TITLETEXT OF oTitle TEXT "Big Title" FONT oBoldTitle
nRow+=20
@ nRow, 75 TITLETEXT OF oTitle TEXT "Sub Title " FONT oFonttitle
//------------------------------------------------
DEFINE BUTTONBAR oBar OF oDlg SIZE 92,82 BOTTOM NOBORDER 2015
oBar:bClrGrad := { | lPressed | If( ! lPressed,;
{ { 1, RGB( 250,250,245), RGB( 250,250,245)} },;
{ { 1, RGB( 245,245,235), RGB( 245,245,235)} } ) }
DEFINE BUTTON aBtnBar[1] OF oBar PROMPT "Aiuto" RESOURCE "HLP_DLG" ;
ACTION NIL
DEFINE BUTTON aBtnBar[2] OF oBar PROMPT "Chiudi" RESOURCE "DLG_NO" ;
ACTION NIL BTNRIGHT
ACTIVATE DIALOG oDlg CENTER ;
ON INIT (oDlg:resize(),ChangeButtons( oBar ),;
Config_Form(oFont,oBold,oDlg))
return nil
//----------------------------------------------------------------------//
Function Config_Form(oFont,oBold,oDlg)
local aDat[ 1]
local l01:=.t.
@ 150,8 CHECKBOX aDat[ 1] VAR l01 Prompt "testesttestesttestesttestesttestest" SIZE 120, 11 PIXEL OF oDlg ;
COLOR nRgb(233,229,206), nRgb(218,214,179) FONT oBold
return nil
function ChangeButtons( oBar )
AEval( oBar:aControls, { | oCtrl | oCtrl:nTop += 4, oCtrl:nHeight -= 4 } )
return .T.
