topic-29288

Posts: 144

Joined: Thu Jan 02, 2014 01:49 PM

Controles TSay y TCheckBok en TBar
Posted: Fri Sep 19, 2014 06:03 PM

Hola a todos

Cuando hago una declaración como esta :

 @ 6,400 SAY ::oSay PROMPT "Buscar :" OF oBar;
           FONT ::oWnd:oFont TRANSPARENT PIXEL
           ::oSay:nWidth := 45
           ::oSay:nHeight := 16
       @ 4,445 GET ::oBusca VAR ::cBusca OF oBar;
           READONLY FONT ::oWnd:oFont;
           PIXEL

El control Say aparece con un contorno gris por encima de la Tbar.

Alguna sugerencia para resolverlo ?

Saludos

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Controles TSay y TCheckBok en TBar
Posted: Sat Sep 20, 2014 01:24 AM

Mira si esto es de alguna ayuda;

Code (fw): Select all Collapse

   DEFINE BUTTONBAR oBar 3D SIZE 40,40 OF oWnd 2007
   oBar:bPainted = { ||;
        DrawText2(oBar:hDC, oFont1:hFont, 1, "TEXTO TRANSPARENTE EN oBAR" ,;
        10, 420, 500, 500, CLR_BLACK ) }

//-----------------------------------------------------------------------------------------------------------//
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 )

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion