Look del Get.

Look del Get.

Postby D.Fernandez » Fri Aug 23, 2013 12:18 pm

Hola amigos:

Como puedo hacer para que el get se vea con del look disable() aunque no lo este.
Solo me interesa que se vea como tal.

Muchas Gracias.
Saludos

Dario Fernandez
Dario Fernandez
FWH 24.09, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
D.Fernandez
 
Posts: 463
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay

Re: Look del Get.

Postby MGA » Fri Aug 23, 2013 7:49 pm

Veja se é isto que você quer:

redefine get oget ... color CLR_BLACK,CLR_WHITE when .f.
oget:lDisColors:=.f.
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1252
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: Look del Get.

Postby D.Fernandez » Fri Aug 23, 2013 11:53 pm

SGS gracias por responder.
Se ve como quiero, pero quiero que sea editable. Que se comporte como un get normal.

Muchas gracias, seguire investigando.

Saludos

Dario Fernandez

PD: Quizas recuerdes, los que estamos en el foro hace tiempo, ya hemos visto esta situacion. No me acuerdo bien
pero me parece que hace mucho años, se trató este tema y el look era parecido a Win XP . Un abrazo.
Dario Fernandez
FWH 24.09, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
D.Fernandez
 
Posts: 463
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay

Re: Look del Get.

Postby FranciscoA » Sat Aug 24, 2013 1:48 am

Mira si es esto lo que estas buscando:
Code: Select all  Expand view
 REDEFINE GET oGet ...
   oGet:bGotFocus  := {|o| o:SetColor( CLR_BLACK, CLR_WHITE ) }
   oGet:bLostFocus := {|o| o:SetColor( CLR_GRAY, CLR_WHITE ) }
 
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2158
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Look del Get.

Postby D.Fernandez » Sat Aug 24, 2013 12:24 pm

Gracias Francisco:
Dejo una foto para que lo veas.
Es igual a cuando haces un get con la clausula WHEN .F. (Aqui esta deshabilitado por estar when .f.),
lo quiero normal editable pero con este look que queda mucho mejor.

Lo intente con Set _3DLOOK OFF y ON, pero no lo logro.

La apariencia normal esta bien, pero si observas un get (WHEN .F.), queda mucho mejor a la vista
y no como el get normal que queda un rectangulo hundido, con profundidad.

He intentado con todos los estilos, border, noborder, etc. del editor de recursos, pero sin suerte.

http://img842.imageshack.us/img842/5370/eeor.png

Muchas gracias.
Saludos.

Dario Fernandez
Dario Fernandez
FWH 24.09, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
D.Fernandez
 
Posts: 463
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay

Re: Look del Get.

Postby cnavarro » Sat Aug 24, 2013 1:23 pm

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
User avatar
cnavarro
 
Posts: 6541
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Look del Get.

Postby FranciscoA » Sat Aug 24, 2013 2:57 pm

Esa imagen lo dice todo. Efectivamente en el post que señala Cristóbal se encuentra la solución.
Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2158
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Look del Get.

Postby D.Fernandez » Sat Aug 24, 2013 4:54 pm

Gracias a todos: Sigue sin salir plano.

La imagen muestra lo que quiero, aunque hice los cambios de la clase, no lo he logrado aun.
Coloque el tget.prg antes de las libs de FW, pero no lo logro.
Seguiré viendo y comparto si lo logro.

Muchas gracias.

Saludos

Dario Fernandez.
Dario Fernandez
FWH 24.09, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
D.Fernandez
 
Posts: 463
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 63 guests