Page 1 of 2
Color de linea de Group
Posted:
Wed Apr 24, 2013 10:32 am
by 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
Re: Color de linea de Group
Posted:
Thu Apr 25, 2013 6:32 pm
by 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
Re: Color de linea de Group
Posted:
Thu Apr 25, 2013 6:44 pm
by 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
Re: Color de linea de Group
Posted:
Thu Apr 25, 2013 7:31 pm
by cnavarro
Antonio Linares wrote: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
Re: Color de linea de Group
Posted:
Thu Apr 25, 2013 7:34 pm
by 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
Re: Color de linea de Group
Posted:
Thu Apr 25, 2013 8:57 pm
by 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()
...
Re: Color de linea de Group
Posted:
Thu Apr 25, 2013 9:13 pm
by cnavarro
Antonio,
Muchas gracias
Re: Color de linea de Group
Posted:
Thu Apr 25, 2013 10:24 pm
by 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#p114712El 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
Re: Color de linea de Group
Posted:
Fri Apr 26, 2013 7:22 am
by cnavarro
Rolando
Muchas gracias por todo
Re: Color de linea de Group
Posted:
Fri Apr 26, 2013 4:50 pm
by acuellar
Rolando
Da error en WHITE BOX. En PelleC lo muestra como Group-Box
Saludos,
Adhemar
Re: Color de linea de Group
Posted:
Fri Apr 26, 2013 5:08 pm
by 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
Re: Color de linea de Group
Posted:
Fri Apr 26, 2013 6:39 pm
by acuellar
Gracias Rolando
Saludos,
Adhemar
Re: Color de linea de Group
Posted:
Fri Apr 26, 2013 11:47 pm
by 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
---
Re: Color de linea de Group
Posted:
Mon Apr 29, 2013 5:35 pm
by acuellar
Gracias Rolando
Saludos,
Adhemar
Re: Color de linea de Group
Posted:
Tue Apr 30, 2013 4:51 pm
by 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)