Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Clausulas del SAY
Posted: Tue May 19, 2015 07:49 AM

Has probado?

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

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

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: Clausulas del SAY
Posted: Tue May 19, 2015 08:29 AM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Clausulas del SAY
Posted: Tue May 19, 2015 08:37 AM

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

Esas definiciones estan creo recordar en windows.h

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

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: Clausulas del SAY
Posted: Tue May 19, 2015 09:03 AM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Clausulas del SAY
Posted: Tue May 19, 2015 11:23 AM

Carlos,

Modifica asi la Clase TSay:

#define WS_EX_STATICEDGE 0x00020000

Code (fw): Select all Collapse

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

   ::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

regards, saludos

Antonio Linares
www.fivetechsoft.com

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: Clausulas del SAY
Posted: Wed Jun 10, 2015 03:09 PM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Clausulas del SAY
Posted: Wed Jun 10, 2015 04:28 PM

Carlos,

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

Aqui está el que falta:

define SS_GRAYRECT 5

regards, saludos

Antonio Linares
www.fivetechsoft.com

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: Clausulas del SAY
Posted: Wed Jun 10, 2015 05:46 PM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Clausulas del SAY
Posted: Thu Jun 11, 2015 08:47 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: Clausulas del SAY
Posted: Thu Jun 11, 2015 09:15 AM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Clausulas del SAY
Posted: Thu Jun 11, 2015 09:17 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: Clausulas del SAY
Posted: Thu Jun 11, 2015 11:51 AM

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

::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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

FiveTech Support Forums

INCLUDE "Windows.h"

define SS_GRAYRECT 5

Continue the discussion