topic-26211

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Aspecto de GET
Posted: Wed May 01, 2013 07:27 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

fgondi

Posts: 694

Joined: Fri Oct 07, 2005 06:58 AM

Re: Aspecto de GET
Posted: Wed May 01, 2013 07:32 PM

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

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Aspecto de GET
Posted: Wed May 01, 2013 07:39 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Aspecto de GET
Posted: Wed May 01, 2013 08:10 PM

Cristobal,

Usas el fichero de manifiesto desde el RC ?

1 24 "WindowsXP.Manifest"

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Aspecto de GET
Posted: Wed May 01, 2013 08:13 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Aspecto de GET
Posted: Wed May 01, 2013 08:43 PM

Solucionado, gracias

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

Un saludo

&&&

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Aspecto de GET (Solucionado)
Posted: Thu May 30, 2013 09:07 AM

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 (fw): Select all Collapse

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 (fw): Select all Collapse

 #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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion