Aspecto de GET

[cnavarro]

Buenas tardes
No consigo que los GETS Redefinidos desde una DLL tengan un aspecto "plano"
Adjunto imagen en la que aparece en primer lugar como me aparecen y en segundo lugar cómo me gustarían que apareciesen sin tener en cuenta lo del boton de accion.
Uso PellesC como editor de recursos y la DLL la importé en su momento desde un RC ya que estaba en 16 bits
Si los GETS los creo mediante comando sin Redefinir si adquieren ese aspecto


Uploaded with ImageShack.us
Gracias

[fgondi]

Prueba a quitar a la definición del campo en PellesC, el estilo de windows "border"
WS_BORDER

[cnavarro]

Gracias Fernando, efectivamente sale "plano", pero no me sale el borde "azul" que aparece en la imagen que he puesto como ejemplo y no se distingue bien
Saludos

[Antonio Linares]

Cristobal,

Usas el fichero de manifiesto desde el RC ?

1 24 "WindowsXP.Manifest"

El fichero lo tienes en FWH/samples/winxp/WindowsXP.Manifest

[cnavarro]

No lo uso Antonio
¿Como lo puedo incorporar ahora a la DLL?
Gracias

[cnavarro]

Solucionado, gracias

viewtopic.php?f=6&t=23620&p=126983&hilit=1+24+windowsxp+manifest+en+DLL#p126943

Un saludo

[cnavarro]

Buenos dias
Tengo el mismo problema con los GETS que incluyo en un TPanel por codigo, su apariencia no es la correcta
Lo he "solucionado" incluyendo en mi PRG:

Code: Select all  Expand view

Function IsAppThemed() ; Return .F.
 

Pero los bordes los sigue pintando en negro, sin aceptar el color que se define.
El problema, quiero pensar, esta en el NEW de la clase TGET

Code: Select all  Expand view

 #ifdef __CLIPPER__
      if ! lNoBorder
         ::nStyle = nOr( ::nStyle, WS_BORDER )
      endif
   #else
      if ! IsAppThemed()
         if ! lNoBorder
            ::nStyle = nOr( ::nStyle, WS_BORDER )
         endif
      else
         if ! lNoBorder
            ::nStyle = nOr( ::nStyle, If( oWnd:IsKindOf( "TDIALOG" ), WS_BORDER, 0 ) )    --> Aqui, solo incluye TDIALOG
            ::nExStyle = WS_EX_CLIENTEDGE
         endif
      endif
   #endif

   ::nStyle    = If( lNoBorder, nAnd( ::nStyle, nNot( WS_BORDER ) ), ::nStyle )
 

Es asi?
Esta solucionado en versiones posteriores a la mia?
Gracias