Color de linea de Group

[cnavarro]

Buenos dias
Como puedo cambiar el color de la linea de un GROUP ( solo la linea ) que dibuja el GROUP?

Code: Select all  Expand view

                                                                           
   @ 02, 356 GROUP oGrp TO 230, 617 PROMPT "  Acciones  "  COLOR CLR_BLUE PIXEL OF oDlgPrin
 

Es posible?

Gracias

[Antonio Linares]

Cristobal,

Prueba a usar dos colores (texto y fondo):

@ 02, 356 GROUP oGrp TO 230, 617 PROMPT " Acciones " COLOR CLR_GREEN, CLR_BLUE PIXEL OF oDlgPrin

[rolando]

Cristóbal,

Yo utilizo la clase TSLINES de Manuel Mercado que a los group's definidos le da una apariencia muy bonita.

Más abajo un ejemplo, pero puedes también con el mismo efecto dibujar líneas.

Rolando

[cnavarro]

Cristobal,

Prueba a usar dos colores (texto y fondo):

@ 02, 356 GROUP oGrp TO 230, 617 PROMPT " Acciones " COLOR CLR_GREEN, CLR_BLUE PIXEL OF oDlgPrin

Gracias Antonio

Lo que intento es cambiar el Color de la Linea perimetral del GROUP no el texto superior del mismo

De nuevo, gracias
Un saludo

[cnavarro]

Rolando, gracias
Donde puedo obtener la clase que mencionas y algún ejemplo de la misma.
Imagino que añadiendo un SAY en la parte superior tendrá la misma apariencia que un GROUP, no?

Gracias de antemano.
Un saludo

[Antonio Linares]

Cristobal,

Un GROUP estandard de Windows no permite cambiar el color de esas líneas, pero lo que puedes hacer facilmente es dibujarlas tu mismo:

DEFINE PEN oPen WITH 2 COLOR CLR_BLUE

ACTIVATE DIALOG oDlg ON PAINT WndBoxClr( hDC, 20, 20, 100, 100, oPen:hPen )

oPen:End()

...

[cnavarro]

Antonio,
Muchas gracias

[rolando]

Cristóbal,

La TSLINES es parte de la TSBUTTON de Manuel Mercado.

Puedes encontrarla en la sección utilidades del foro.

http://forums.fivetechsupport.com/viewtopic.php?f=17&t=10475&p=114712&hilit=TSBUTTON#p114712

El enlace de descarga es:

http://code.google.com/p/fivewin-contributions/downloads/detail?name=TSButton7.rar&can=2&q=

Yo la utilizo con recursos definidos en una DLL que edito con el Pelles-c (para mí es más cómodo trabajar con DLL porque puedo cambiar las dimensiones de los recursos, ubicación, etc. sin necesidad de recompilar todo, sólo modifico la DLL), pero desde .RC seguro que es lo mismo.

En el PRG sólo esto:

Code: Select all  Expand view

REDEFINE WHITE BOX ID 6001 OF oDlg COLORS CLR_WHITE, CLR_GRAY ROUNDED

Al comienzo de la función, donde el 6001 es el ID del group. Puedes redefinir todos WHITE BOX que necesites.

Saludos.

Rolando

[cnavarro]

Rolando
Muchas gracias por todo

[acuellar]

Rolando

Da error en WHITE BOX. En PelleC lo muestra como Group-Box

Saludos,

Adhemar

[rolando]

Adhemar,

Dentro de la DLL defino un group sacándole el texto (con pelles-c).

Luego uso el id de ese group para asignarle el WHITE BOX.

Por supuesto tiene que incluir la clase TSLINES y creo que también un archivo 'C'.

Más tarde en casa me fijo bien y comento.

Por favor indícame que error te da.

Rolando

[acuellar]

Gracias Rolando

Saludos,

Adhemar

[rolando]

Adhemar,

Para ti y a quienes le interese, hice un pequeño ejemplo de como lo uso con una DLL.

Debes compilar el ejemplo TSLINESTEST.PRG junto con la clase TSLINES.PRG e incluir el BPAINT.C

De acá puedes bajar todo (el exe, el ejemplo, la dll y la clase completa)

Rolando

---

[acuellar]

Gracias Rolando

Saludos,

Adhemar

[Patricio Avalos Aguirre]

Hola No funciona el ejemplo en win7 64bit

Application
===========
Path and name: C:\Users\pavalos\AppData\Local\Temp\Rar$EX91.960\TestTSLINES.exe (32 bits)
Size: 1,532,928 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 04/30/13, 12:50:53
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: TEST
Args:

Stack Calls
===========
Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR(559)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(290)
Called from: D:\VERCE\RJCTaller\PRG\tslinestest.prg => MAIN(19)