Clausulas del SAY

[colthop]

Hola a todos:

Estoy probando cosas nuevas y me he encontrado con este problema:

He puesto la clausula SHADED en un SAY en vez de BORDER y me aparece así:



Cuando lo pongo con BORDER sale así:



Alguien sabe porque y como se puede solucionar.

El código es:

Code: Select all  Expand view  RUN

@ 10*ProporV, 10*ProporH SAY tDlg001 VAR LocaText( 1, 1,175)      OF wGestClie1 PIXEL COLOR escri1, fondo1 FONT oFont SIZE 130*ProporH,xProPorV*ProPorV
@ 10*ProporV,410*ProporH SAY tDlg002 VAR LocaText( 1, 1, 90)      OF wGestClie1 PIXEL COLOR escri1, fondo1 FONT oFont SIZE 130*ProporH,xProPorV*ProPorV
@ 10*ProporV,110*ProporH SAY vDlg001 VAR " " + codigo   OF wGestClie1 PIXEL COLOR escri3, fondo3 FONT oFont SIZE  78*ProporH,xProPorV*ProPorV   SHADED
@ 10*ProporV,530*ProporH SAY vDlg041 VAR " " + clavecif OF wGestClie1 PIXEL COLOR escri3, fondo3 FONT oFont SIZE  14*ProporH,xProPorV*ProPorV   BORDER
 

Gracias y un saludo

Carlos

[Antonio Linares]

Carlos,

En el editor de recursos prueba ambas claúsulas a ver si se ven a la vez

[colthop]

Hola Antonio:

Como se cambia en el editor de recursos (ya sabes soy mu torpe).
No obstante yo h probado a poner las dos a la vez SHADED BORDER y sale igual.

Un saludo

Carlos

[Antonio Linares]

Carlos,

Es esta la apariencia que deseas conseguir ?

[colthop]

Hola Antonio:

Realmente estaba probando para ver como quedaba ya que nunca lo había probado y no se como queda al ver SHADED imagine una cosa parecida a una caja con sombra pero es lo que no he conseguido ver como queda.

Si me haces el favor podrías mandarme una imagen con las tres posibilidades SHADED, RAISED y BOX. Por lo que veo en la imagen que me mandas parece mas RAISED que SHADED.

Un saludo

Carlos

[Antonio Linares]

Carlos,

Que editor de recursos usas ?

Pruébalo desde tu editor de recursos

[colthop]

Hola Antonio:

No utilizo editor de recursos. Dime uno para probar.

Un saludo

Carlos

[Antonio Linares]

Carlos,

Puedes usar PellesC. Yo suelo usar ResEdit.

[colthop]

Hola Antonio:

Vi en tu post que usabas el ResEdit y me lo bajé para intentar usarlo lo instale y todo casi bien ya que cada vez que intentaba crear un dialogo para hacer las pruebas me daba un error y no me dejaba seguir. Probaré con el PellesC

No obstante la instrucción que pongo es correcta o no, ya que simplemente es para ver como queda. Lo que pasa que si me gusta como queda y quiero usarla me encontraría con el problema.

Un saludo

Carlos

[Antonio Linares]

Carlos,

Estos son los estilos que usa la Clase TSay:

Code: Select all  Expand view  RUN

  ::nStyle    = nOR( WS_CHILD, WS_VISIBLE,;
                 If( lDesign, nOr( WS_CLIPSIBLINGS, WS_TABSTOP ), 0 ),;
                 If( lCentered, SS_CENTER, If( lRight, SS_RIGHT, SS_LEFT ) ),;
                 If( lBorder, WS_BORDER, 0 ),;
                 If( lShaded, SS_BLACKRECT, 0 ),;
                 If( lBox,    SS_GRAYRECT,  0 ),;
                 If( lRaised, SS_WHITERECT, 0 ) )

En mis pruebas (la imagen que te puse), los estilos son otros. Por eso no te aparece como quieres.

Y de ahi que te preguntase que efecto es el que quieres, antes de ponernos a modificar la clase.

[colthop]

Hola Antonio:

Anteriormente te puse dos SAY uno debajo del otro, primero con el SHADED y después sin ninguno :




Sería hacer el SAY mas parecido al GET:



Y me pareció que poniendo SHADED hacia el efecto que hace el GET de una sombra. Pero cuando lo puse quitaba los colores y no ponía el dato lo dejaba todo en gris.

Un saludo

Carlos

[Antonio Linares]

Carlos,

Podemos modificar la clase según necesitemos.

Por eso te decía de que probases los diferentes estilos desde el editor de recursos, y una
vez esté como tu quieras, que me indicases que estilos son los que has usado.

[colthop]

Hola Antonio:

No consigo abrir el dialogo en el ResEdit podrías enviarme tu test.rc a mi email (carlos@colthop.es) para abrirlo aquí y poder decirte lo que me pides.

Un saludo

Carlos

[Antonio Linares]

Carlos,

test.rc

Code: Select all  Expand view  RUN

LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
IDD_DIALOG1 DIALOG 0, 0, 231, 134
STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_SHELLFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
CAPTION "Dialog"
FONT 8, "Ms Shell Dlg"
{
    LTEXT           "Static", 0, 31, 39, 128, 22, WS_BORDER | SS_LEFT, WS_EX_STATICEDGE
}
 

WS_BORDER | SS_LEFT, WS_EX_STATICEDGE

[colthop]

Hola Antonio:

He estado mirando esto y sobre lo que tu me mandaste cree otro SAY (con el Pelles C ya que el ResEdit no me dejaba) y después de trastear sería casi como el que tu has realizado lo que cambia es que no tiene borde.

Code: Select all  Expand view  RUN

LANGUAGE LANG_NEUTRAL,SUBLANG_NEUTRAL
IDD_DIALOG1 DIALOG DISCARDABLE 0, 0, 231, 134
STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|DS_CENTER|WS_CAPTION|WS_SYSMENU|WS_VISIBLE|0x00000008
CAPTION "Dialog"
FONT 8, "Ms Shell Dlg"
{
  CONTROL "Static", 0, "Static", WS_BORDER|WS_GROUP, 40, 8, 128, 22, WS_EX_STATICEDGE
  CONTROL "Static", 4001, "Static", WS_GROUP, 40, 48, 128, 22, WS_EX_STATICEDGE
}
 

Ahora me dirás como puedo hacer para poder poner ese estilo en todo mis SAY, que yo no se.

Un saludo

Carlos