FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Say Transparent na Tbar ??
Posts: 248
Joined: Wed Jan 11, 2006 11:30 AM
Say Transparent na Tbar ??
Posted: Thu Jun 05, 2008 02:26 AM
Como y posso ter uno Say transparent em el Tbar ?

DEFINE BUTTONBAR oBar SIZE 70, 60 _3D OF oWnd 2007
     
@ 009, 100 SAY oSay PROMPT "No estas Transparente " OF oBar PIXEL 
                       oSay:lTransparent = .T.


Saluds
aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Say Transparent na Tbar ??
Posted: Thu Jun 05, 2008 07:25 AM

Ale,

No puedes usar un objeto SAY transparente sobre un objeto TBar con estilo 2007 aún.

De momento tienes que usar oBar:bPainted:

oBar:bPainted = { || oBar:Say( 7, 285, "Factor:",,, oFont, .T., .T. ) }

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 248
Joined: Wed Jan 11, 2006 11:30 AM
Say Transparent na Tbar ??
Posted: Thu Jun 05, 2008 01:59 PM

Gracias, Maestro.

Saluds, Ale

aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
Posts: 144
Joined: Thu Jan 02, 2014 01:49 PM
Re: Say Transparent na Tbar ??
Posted: Sat Feb 07, 2015 09:40 PM

Hola , ya es posible usar objeto TSay transparente en un TBar ?

Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Say Transparent na Tbar ??
Posted: Sun Feb 08, 2015 12:51 AM
Hola. No se si ya lo habrás hecho del modo siguiente.
Actualmente lo hago así:
Code (fw): Select all Collapse
local cTextoBar := "Texto en ButtonBar (oBar) Centrado"

DEFINE BUTTONBAR oBar 3D SIZE 32,32 OF oDlg 2007
   nTp := 4
   nLf := ( (oBar:nWidth()/2) - ((Len(cTextoBar)/2)*10) )
   nWd := 500 
   nHt := 500 

   oBar:bPainted = { ||;
        DrawText2(oBar:hDC, oFont:hFont, 1, cTextoBar ,;
        nTp, nLf, nWd, nHt, CLR_BLUE ) }
...
...
//-----------------------------------
FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color )
LOCAL hFontOld:= SelectObject( hDC, hFont )
LOCAL nBkOld := SetBkMode( hDC, nBkMode )
SetTextColor( hDC, color )
DrawText( hDC, cText, { nTop, nLeft, nTop+nWidth, nLeft+nHeight } )
SelectObject( hDC, hFontOld )
SetBkMode( hDC, nBkOld )
RETURN( NIL )

Espero te sirva de algo.
Saludos.
Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql

Continue the discussion