Clausulas del SAY

[cnavarro]

Has probado?

Code: Select all  Expand view  RUN

oSay:nStyle := nOr( WS_POPUP|DS_MODALFRAME|DS_3DLOOK|DS_CENTER|WS_CAPTION|WS_SYSMENU|WS_VISIBLE|0x00000008 )
 

[colthop]

Hola Cristóbal:

Gracias por tu interés.

No lo he probado hasta ahora, pero cuando la he puesto en unos SAY para ver que hacia me da un Syntax Error at "|" cuando pongo mas de dos parámetros y cando pongo solo uno y me compila me da el error de "No existe la variable" con "DS_3DLOOK", "DS_CENTER" y "WS_VISIBLE" y con el resto no encuentro variación con solo BORDER o CON SHADED. Me podrías indicar que hace esta instrucción para poder ver un SAY con SHADED.

Gracias de nuevo

Un saludo

Carlos

[cnavarro]

Carlos, lo quieres hacer con REDEFINE por .RC o con codigo?

Esas definiciones estan creo recordar en windows.h

[colthop]

Hola Cristóbal:

Lo quiero realizar por código y cuando incluyo el Windows.h con:

#INCLUDE "Windows.h"

Me sale mas errores en la línea 30 y la 174 de este. Este archivo es del BCC582 o de otro.

Un saludo

Carlos

[Antonio Linares]

Carlos,

Modifica asi la Clase TSay:

#define WS_EX_STATICEDGE 0x00020000

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, nOr( WS_BORDER, WS_EX_STATICEDGE ), 0 ),;
                 If( lShaded, SS_BLACKRECT, 0 ),;
                 If( lBox,    SS_GRAYRECT,  0 ),;
                 If( lRaised, SS_WHITERECT, 0 ) )

Si quieres sin borde negro:

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_EX_STATICEDGE, 0 ),;
                 If( lShaded, SS_BLACKRECT, 0 ),;
                 If( lBox,    SS_GRAYRECT,  0 ),;
                 If( lRaised, SS_WHITERECT, 0 ) )

Sólo tendrás que usar la claúsula BORDER

[colthop]

Hola Antonio:

Esto lo deje apartado ya que no me salio bien lo que me dijiste estoy intentando retomarlo ahora, me podrias decir donde se definen WS_BORDER, SS_BALCKRECT, SS_GRAYRECY y SS_WHITERECT.

Un saludo

Carlos

[Antonio Linares]

Carlos,

WS_BORDER, SS_BLACKRECT y SS_WHITERECT estan en winapi.ch de FWH

Aqui está el que falta:

#define SS_GRAYRECT 5

[colthop]

Hola Antonio:

Eso si lo he encontrado y he visto que cada uno tiene un numero y ese numero le indica lo que tiene que hacer por así decirlo, es donde se declara ese numero lo desearía saber.

Un saludo

Carlos

[Antonio Linares]

Carlos,

Son valores definidos por Windows (aparecen en los ficheros de cabecera de Windows).

Lo más sencillo es añadirlo a FWH\source\classes\say.prg

[colthop]

Hola Antonio:

Si eso es lo que estoy haciendo ponerlo en el SAY.PRG y probar. Por eso de mi pregunta de donde puedo ver todas esas posibilidades y si existe una que sea SHADOW.

Cuales son los Ficheros de Cabecera de Windows.

Un saludo

Carlos

[Antonio Linares]

Todos los estilos los puedes encontrar en c:\bcc582\include\winuser.h

[colthop]

Hola Antonio:

He mirado el winuser y he encontrado:

/* 3D border styles */
#define BDR_RAISEDOUTER 0x0001
#define BDR_SUNKENOUTER 0x0002
#define BDR_RAISEDINNER 0x0004
#define BDR_SUNKENINNER 0x0008

Lo he puesto en el say.prg en las primeras líneas después de los #define que hay.

Después como me indicaste en el Style

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, BDR_RAISEDOUTER , 0 ),;
                 If( lShaded, SS_BLACKRECT, 0 ),;
                 If( lBox,    SS_GRAYRECT,  0 ),;
                 If( lRaised, SS_WHITERECT, 0 ) )
 

Pero no hace nada. ¿Hay que hacer algo más?

Un saludo

Carlos