FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour WndBox2007 en btnbmp
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
WndBox2007 en btnbmp
Posted: Thu Jan 22, 2015 06:57 PM
Antonio, en btnbmp cuando los estilos 2007 y 2010 est谩n activo, y el bot贸n tiene foco, este usa la funci贸n WndBox2007 para pintar un marco alrededor del bot贸n cuando el cursor del rat贸n esta encima, el caso es que el marco (caja) se pinta de forma incorrecta, esto no se nota dado que el color del borde es casi similar al color del bot贸n, quedado oculto el problema, yo por lo general uso un color de borde mas oscuro y ah铆 si que se nota el fallo
he tratado de corregir el problema, ajustando los parametros, pero no logro auq ande al 100%, ya que se da que bien funciona en un boton, pero en otro no, ademas de que el boton con menu adjunto se pinta de forma independiente.



podr铆as darle una mirada a esto por favor?
aca un video:http://castillolawyers.no-ip.info/owncloud/public.php?service=files&t=5a4193e1d2559d7b07efa2d5eeb32e5f
Code (fw): Select all Collapse
聽 聽if ::lMOver .and. ::lBoxSelect
聽 聽 聽 if ! ::lRound .and. ! ::lEllipse
聽 聽 聽 聽 聽if ::l2007 .or. ::l2010
聽 聽 聽 聽 聽 聽 WndBox2007( ::hDC, nAdjustBorder, nAdjustBorder,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ::nHeight - nAdjustBorder - 1, ::nWidth - nAdjustBorder - 1,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 nRGB( 136, 000, 021 ) ) //nRGB( 221, 207, 155 )


otra cosa es que ese color de borde podria ser una data de la clase, y de forma global, algo asi como

Code (fw): Select all Collapse
聽 聽 聽 聽 聽 聽CLASSDATA nClrBoxSelect INIT nRGB( 221, 207, 155 )
...
聽 聽 聽 聽 聽 聽WndBox2007( ::hDC, nAdjustBorder, nAdjustBorder,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ::nHeight - nAdjustBorder - 1, ::nWidth - nAdjustBorder - 1,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ::nClrBoxSelect 聽)

y usarla asi
Code (fw): Select all Collapse
 聽 TBtnBmp():nClrBoxSelect := nRGB( 136, 000, 021 )

para que quede asi

salu2
carlos vargas
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: WndBox2007 en btnbmp
Posted: Fri Jan 23, 2015 08:19 AM
Carlos,

Asi parece estar bien:

Code (fw): Select all Collapse
   if ::lMOver .and. ::lBoxSelect
      if ! ::lRound .and. ! ::lEllipse
         if ! ::oWnd:IsKindof( "TBAR" )   // Nuevo !!!
            if ::l2007 .or. ::l2010 
               WndBox2007( ::hDC, nAdjustBorder, nAdjustBorder,;
                           ::nHeight - nAdjustBorder - 1, ::nWidth - nAdjustBorder - 1,;
                           ::nClrBorder )
            elseif ::lBorder
               if ! ::lPressed
                  WndRaised( ::hWnd, ::hDC )
               else
                  WndInset( ::hWnd, ::hDC )
               endif
            endif
         endif    // Nuevo !!!  
      else


He a帽adido la nueva DATA que sugieres como:

DATA nClrBorder INIT nRGB( 221, 207, 155 )

Muchas gracias! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions