Cambiar colores del editor de VFP

2,493 views
Skip to first unread message

Juan Pablo Martín Peinado

unread,
May 25, 2018, 5:22:42 AM5/25/18
to Comunidad de Visual Foxpro en Español
Buenas,

Dentro de VFP podemos cambiar los colores del Editor entrando en Tools --> Options --> Editor. El problema es que solamente me deja elegir entre una paleta de 16 colores sin darme opción a elegir otros. 
¿Hay alguna forma de poner otros colores distintos a esos 16?

Un saludo,

-------------------------------------
Juan Pablo Martín Peinado
Guadalajara - España
-------------------------------------

Jorge Bernardo Morales Hernandez

unread,
May 25, 2018, 10:05:04 AM5/25/18
to Comunidad de Visual Foxpro en Español
Yo descubrí que desde el editor de Windows en las entradas que inician con Editor, es posible ir más allá de la paleta de 16 colores, especificamente en:

HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\9.0\Options

Aquí puedes encontrar más a detalle como comprenderlo (está en ingles)


Espero te sirva ... Saludos

Jorge B. Morales Hernández
Guatemala, Centro América
Img-01.png
Img-02.png

Mario López

unread,
May 25, 2018, 6:11:22 PM5/25/18
to Comunidad de Visual Foxpro en Español
@Juan Pablo: en este post https://groups.google.com/forum/#!searchin/publicesvfoxpro/mario$20l%C3%B3pez$20oscuro|sort:date/publicesvfoxpro/cQLcFuGkNRI/_bGqdErJBgAJ indiqué el esquema de colores oscuros que uso en VFP cambiando directamente la clave Options como indicaba también Jorge Bernardo en la otra respuesta.

HTH
Mario

---

Juan Pablo Martín Peinado

unread,
May 29, 2018, 7:46:56 AM5/29/18
to Comunidad de Visual Foxpro en Español
Gracias Mario y Jorge. No me gusta mucho tocar el registro de Windows pero parece que no hay otra manera.

Un saludo.

-------------------------------------
Juan Pablo Martín Peinado
Guadalajara - España
-------------------------------------

Mario López

unread,
May 30, 2018, 9:41:31 AM5/30/18
to Comunidad de Visual Foxpro en Español
@Juan Pablo: no pasa nada con modificar el registro de Windows, es una base de datos más. Igual siempre podés exportar la subclave completa que estás modificando para restaurarla en caso de ser necesario.

Saludos,
Mario

---

Juan Pablo Martín Peinado

unread,
Jun 8, 2018, 5:02:12 AM6/8/18
to Comunidad de Visual Foxpro en Español
Perfecto. He estado jugando con los colores y lo he dejado a mi gusto. Ahora me gustaría cambiar también el blanco de fondo del IDE de VFP. ¿Se puede?

Un saludo,

-------------------------------------
Juan Pablo Martín Peinado
Guadalajara - España
-------------------------------------


Jorge Bernardo Morales Hernandez

unread,
Jun 8, 2018, 9:45:42 AM6/8/18
to Comunidad de Visual Foxpro en Español
yo tengo un prg de arranque y en el tengo esto ...

_Screen.BackColor = Rgb(0,0,0)
_Screen.ForeColor = Rgb(0,150,255)

Saludos,

Carlos Miguel FARIAS

unread,
Jun 8, 2018, 12:04:21 PM6/8/18
to Grupo Fox
Desde pude fijarle colores al editor, lo puse sin color, ninguno.
Saludos: Miguel

Mario López

unread,
Jun 8, 2018, 5:21:29 PM6/8/18
to Comunidad de Visual Foxpro en Español

Ya que estamos con el tema “temas” :), finalmente me hice algo de tiempo y subí a

https://www.dropbox.com/sh/yl34a57159jus9v/AAD1UXZkIHhx3bqxNfsUOqYya?dl=0

  • más de 300 temas del editor SublimeText descargados previamente desde la página http://colorsublime.com/ que no funciona más, así que supongo que estarán “liberados” (SublimeThemes.z7)

  • una página HTML que armé con todos los temas aplicados a un bloque de código VFP para previsualizar cómo quedaría ese tema en VFP (SublimeTextThemes.html)

  • más de 100 fonts no proporcionales para programadores descargados desde distintos lados
    (Fonts-Truetype.z7 / Fonts-OpenType.z7)

  • los scripts Python que hice para convertir los temas de Sublime a VFP (todavía no están 100% terminados, habría que ver como resolver mejor con varios temas porque Sublime soporta muchos más “ámbitos” que VFP) (ScriptsSublimeThemes.z7)

  • el script anterior compilado para los ‘vagos’ que no quieran descargar / instalar el Python (sublime_theme_to_vfp.Z7)

Perdón por el Python en un foro VFP pero hay cosas que son mucho más fáciles de hacer en Python que en VFP, y el manejo de archivos Plist / XML / diccionarios es uno de esos. Si alguien lo quiere pasar a VFP que lo comparta así nos beneficiamos todos :)

Los archivos están en formato 7zip sin contraseñas, solo que al comprimirlos siempre los prefijo con .z* para excluirlos de los backups.

Happy Colors!!!
Mario

PD: una muestra de los temas, son 366 en total, espero que se vean bien en el post, si no el HTML está en los links

* Cobalt.tmTheme
* Genero una VCX desde un .PRG (simplificado)
SET MEMOWIDTH TO 1024
CLEAR

sVCX = ADDBS(SYS(2023)) + "TestClassLibrary.vcx"
CREATE CLASSLIB (sVCX)

sPrgWithDefineClass = SYS(16)    && Defino las clases
MakeClassesFromPrg(sVCX, sPrgWithDefineClass)

RETURN


#define CRLF    CHR(13)+CHR(10)
#define TAB        CHR(9)

PROCEDURE MakeClassesFromPrg(sVCX, sPRG)

LOCAL sCode, nClass, sClassCode, sClass

sPrg = STRTRAN(sPrg, ".FXP", ".PRG")
sCode = FILETOSTR(sPrg)

? "Procesando", sPrg
 ? TAB + "creando", sVCX
 sVCX = ALLTRIM(JUSTSTEM(sVCX))

nClass = 1
DO WHILE .T.
    sClassCode = STREXTRACT(sCode, CRLF + ;
        "DEFINE CLASS ", CRLF + "ENDDEFINE", nClass)

    sWin = "Class Designer"
    ACTIVATE WINDOW (sWin) TOP

    SYS(1500, "_MFI_CLOSE", "_MSM_FILE")
ENDDO

ENDPROC


* ---- Clases a definir
DEFINE CLASS HintLabel AS Label
    * ForeColor = RGB(100, 100, 100)
    ForeColor = RGB(150, 150, 150)
    BackStyle = 1

    PROCEDURE Init (sCaption)
    IF PCOUNT() > 0
        This.Caption = "(" + sCaption + ")"
    ENDIF
    ENDPROC

    * Hago al label "transparente" a los clicks
    PROCEDURE Click

    WITH EVALUATE([ThisForm.] + This.TextBoxName)
        .KeyPressed = .T.
        .UpdateHint()
        .SetFocus()
    ENDWITH

    ENDPROC
ENDDEFINE

***
* Monokai Cobalt.tmTheme
* Genero una VCX desde un .PRG (simplificado)
SET MEMOWIDTH TO 1024
CLEAR

sVCX = ADDBS(SYS(2023)) + "TestClassLibrary.vcx"
CREATE CLASSLIB (sVCX)

sPrgWithDefineClass = SYS(16)    && Defino las clases
MakeClassesFromPrg(sVCX, sPrgWithDefineClass)

RETURN


#define CRLF    CHR(13)+CHR(10)
#define TAB        CHR(9)

PROCEDURE MakeClassesFromPrg(sVCX, sPRG)

LOCAL sCode, nClass, sClassCode, sClass

sPrg = STRTRAN(sPrg, ".FXP", ".PRG")
sCode = FILETOSTR(sPrg)

? "Procesando", sPrg
 ? TAB + "creando", sVCX
 sVCX = ALLTRIM(JUSTSTEM(sVCX))

nClass = 1
DO WHILE .T.
    sClassCode = STREXTRACT(sCode, CRLF + ;
        "DEFINE CLASS ", CRLF + "ENDDEFINE", nClass)

    sWin = "Class Designer"
    ACTIVATE WINDOW (sWin) TOP

    SYS(1500, "_MFI_CLOSE", "_MSM_FILE")
ENDDO

ENDPROC


* ---- Clases a definir
DEFINE CLASS HintLabel AS Label
    * ForeColor = RGB(100, 100, 100)
    ForeColor = RGB(150, 150, 150)
    BackStyle = 1

    PROCEDURE Init (sCaption)
    IF PCOUNT() > 0
        This.Caption = "(" + sCaption + ")"
    ENDIF
    ENDPROC

    * Hago al label "transparente" a los clicks
    PROCEDURE Click

    WITH EVALUATE([ThisForm.] + This.TextBoxName)
        .KeyPressed = .T.
        .UpdateHint()
        .SetFocus()
    ENDWITH

    ENDPROC
ENDDEFINE

***
* Paraiso (light).tmTheme
* Genero una VCX desde un .PRG (simplificado)
SET MEMOWIDTH TO 1024
CLEAR

sVCX = ADDBS(SYS(2023)) + "TestClassLibrary.vcx"
CREATE CLASSLIB (sVCX)

sPrgWithDefineClass = SYS(16)    && Defino las clases
MakeClassesFromPrg(sVCX, sPrgWithDefineClass)

RETURN


#define CRLF    CHR(13)+CHR(10)
#define TAB        CHR(9)

PROCEDURE MakeClassesFromPrg(sVCX, sPRG)

LOCAL sCode, nClass, sClassCode, sClass

sPrg = STRTRAN(sPrg, ".FXP", ".PRG")
sCode = FILETOSTR(sPrg)

? "Procesando", sPrg
 ? TAB + "creando", sVCX
 sVCX = ALLTRIM(JUSTSTEM(sVCX))

nClass = 1
DO WHILE .T.
    sClassCode = STREXTRACT(sCode, CRLF + ;
        "DEFINE CLASS ", CRLF + "ENDDEFINE", nClass)

    sWin = "Class Designer"
    ACTIVATE WINDOW (sWin) TOP

    SYS(1500, "_MFI_CLOSE", "_MSM_FILE")
ENDDO

ENDPROC


* ---- Clases a definir
DEFINE CLASS HintLabel AS Label
    * ForeColor = RGB(100, 100, 100)
    ForeColor = RGB(150, 150, 150)
    BackStyle = 1

    PROCEDURE Init (sCaption)
    IF PCOUNT() > 0
        This.Caption = "(" + sCaption + ")"
    ENDIF
    ENDPROC

    * Hago al label "transparente" a los clicks
    PROCEDURE Click

    WITH EVALUATE([ThisForm.] + This.TextBoxName)
        .KeyPressed = .T.
        .UpdateHint()
        .SetFocus()
    ENDWITH

    ENDPROC
ENDDEFINE

***

sergio alejandro garcia mendez

unread,
Jun 8, 2018, 6:24:57 PM6/8/18
to publice...@googlegroups.com
Perdona esto es para cambiar el aspecto de visual forero? Perdona mi ignorancia 
--
Sergio A. Garcia
Message has been deleted

Mario López

unread,
Jun 8, 2018, 6:36:06 PM6/8/18
to Comunidad de Visual Foxpro en Español

@Sergio Alejandro: sirve para varias cosas :)

  • para cambiar los colores del entorno de VFP a una combinación de colores predefinidos (normalmente llamados “temas” o themes)
  • para utilizar directamente como themes en el editor de texto SublimeText http://www.sublimetext.com/ que es -a mi gusto- uno de los mejores editores de texto para programadores
  • para poder descargar y elegir fonts o tipografías no proporcionales para programar

HTH
Mario

---

sergio garcia

unread,
Jun 8, 2018, 6:36:45 PM6/8/18
to publice...@googlegroups.com

En visual Foxpro como lo aplicas suena interesante.

 

De: <publice...@googlegroups.com> en nombre de Mario López <guag...@gmail.com>
Responder a: <publice...@googlegroups.com>
Fecha: viernes, 8 de junio de 2018, 16:34
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
Asunto: Re: [vfp] Re: Cambiar colores del editor de VFP

 

@Sergio Alejandro: sirve para varias cosas :)

·         para cambiar los colores del entorno de VFP a una combinación de colores predefinidos (normalmente llamados “temas” o themes)

·         para utilizar directamente como themes en el editor de texto SublimeText http://www.sublimetext.com/ que es -a mi gusto- uno de los mejores editores de texto para programadores

·         para poder descargar y elegir fonts o tipografías no proporcionales para programar

HTH
Mario

El viernes, 8 de junio de 2018, 19:24:57 (UTC-3), sergio alejandro garcia mendez escribió:

Message has been deleted

sergio alejandro garcia mendez

unread,
Jun 8, 2018, 6:57:17 PM6/8/18
to publice...@googlegroups.com
Ahí si gracias jejejejeje

El El vie, 8 de jun. de 2018 a las 16:54, Mario López <guag...@gmail.com> escribió:

@Sergio Alejandro: creí que bajando los archivos y mirando quedaba claro, pero veo que no :)

sublime_theme_to_vfp Tema.tmTheme [vfp_version] [cmd_file]

donde
    Tema.tmTheme es el archivo .tmTheme de SublimeText / TextMate a procesar
    vfp_version es la version de VFP a generar en el archivo (5 a 9, default 9)
    cmd_file es el archivo .cmd a generar, default el mismo nombre del tema

por ejemplo, vamos con el tema Cobalt.theme

sublime_theme_to_vfp Cobalt.theme

genera un archivo Cobalt.cmd que contiene algo como 

::_Cobalt.cmd
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorNormalColor /f /d "RGB(255,255,255, 0,34,64), NoAuto, NoAuto"
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorStringColor /f /d "RGB(128,255,194, 0,34,64), NoAuto, Auto"
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorVariableColor /f /d "RGB(204,204,204, 0,34,64), NoAuto, Auto"
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorConstantColor /f /d "RGB(255,98,140, 0,34,64), NoAuto, Auto"
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorKeywordColor /f /d "RGB(175,196,219, 0,34,64), NoAuto, Auto"
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorCommentColor /f /d "RGB(0,136,255, 0,34,64), NoAuto, Auto"
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorOperatorColor /f /d "RGB(0,136,255, 0,34,64), NoAuto, Auto"

que es lo que tendrías que ejecutar para que en el VFP9 se vea ese tema.

Ahora si? :)
Suerte,
Mario

El viernes, 8 de junio de 2018, 19:36:45 (UTC-3), sergio alejandro garcia mendez escribió:

En visual Foxpro como lo aplicas suena interesante.

 


​
--
Sergio A. Garcia

Mario López

unread,
Jun 8, 2018, 7:02:04 PM6/8/18
to Comunidad de Visual Foxpro en Español

No puedo corregir la entrada anterior, los links que tienen que usar para descargar son los que aparecen en la carpeta de Dropbox original

https://www.dropbox.com/sh/yl34a57159jus9v/AAD1UXZkIHhx3bqxNfsUOqYya

y no los links directos que pegué en el post anterior que solamente se aplican a mi sesión de Dropbox.

HTH
Mario

sergio garcia

unread,
Jun 8, 2018, 7:24:07 PM6/8/18
to publice...@googlegroups.com

Ya lo vi queda excelentes gracias lastima que no se puede cambiar el aspecto.

 

Saludos

 

De: <publice...@googlegroups.com> en nombre de Mario López <guag...@gmail.com>
Responder a: <publice...@googlegroups.com>
Fecha: viernes, 8 de junio de 2018, 17:02
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
Asunto: Re: [vfp] Re: Cambiar colores del editor de VFP

 

No puedo corregir la entrada anterior, los links que tienen que usar para descargar son los que aparecen en la carpeta de Dropbox original

Juan Pablo Martín Peinado

unread,
Jun 10, 2018, 5:47:18 PM6/10/18
to Comunidad de Visual Foxpro en Español
Gracias Jorge, eso era lo que quería.

-------------------------------------
Juan Pablo Martín Peinado
Guadalajara - España
-------------------------------------


jonathan Francisco

unread,
Jun 11, 2018, 8:48:16 PM6/11/18
to Comunidad de Visual Foxpro en Español
Buenas noches punchando con tu código cambie mi tema de vfp, entonces me surgió una pregunta.

y si quiero volver a ponerlo por defaul. como antes ????

Juan Pablo Martín Peinado

unread,
Jun 12, 2018, 3:52:08 AM6/12/18
to Comunidad de Visual Foxpro en Español
Dentro del menú de VFP: Tools --> Options --> Editor --> Reset All

--------------------------------------
Juan Pablo Martín Peinado
Guadalajara - España
--------------------------------------

erick amilcar orellana palacios

unread,
Jun 12, 2018, 5:00:13 AM6/12/18
to Comunidad de Visual Foxpro en Español
Buen dia. he tratado de cambiar la apariencia de mi VFP pero no me genera el archivo me da un error, podrían orientarme por favor 


C:\temp\SublimeTextThemesVFP>sublime_theme_to_vfp code-lover.tmtheme default cod
e-lover.theme
Traceback (most recent call last):
  File "sublime_theme_to_vfp.py", line 75, in <module>
TypeError: %d format: a number is required, not str

C:\temp\SublimeTextThemesVFP>


perdon por no saber usar bien la herramientas del foro

saludos

Mario López

unread,
Jun 12, 2018, 10:27:50 AM6/12/18
to Comunidad de Visual Foxpro en Español

@Erick Amilcar: recién probé con 

sublime_theme_to_vfp code-lover.tmtheme

y me generó el code-lover.cmd

::_code-lover.cmd
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorNormalColor /f /d "RGB(248,248,242, 10,30,54), NoAuto, NoAuto"
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorStringColor /f /d "RGB(30,174,40, 10,30,54), NoAuto, Auto"
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorVariableColor /f /d "RGB(233,237,78, 10,30,54), NoAuto, Auto"
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorConstantColor /f /d "RGB(0,0,0, 10,30,54), NoAuto, Auto"
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorKeywordColor /f /d "RGB(134,79,249, 10,30,54), NoAuto, Auto"
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorCommentColor /f /d "RGB(81,86,113, 10,30,54), NoAuto, Auto"
REG ADD HKCU\Software\Microsoft\VisualFoxPro\9.0\Options /v EditorOperatorColor /f /d "RGB(81,86,113, 10,30,54), NoAuto, Auto"

No sé que son esos otros parámetros que mandás

HTH
Mario

Mario López

unread,
Jun 12, 2018, 10:32:52 AM6/12/18
to Comunidad de Visual Foxpro en Español

@Sergio Alejandro:

lastima que no se puede cambiar el aspecto.

supongo que te referirás a que no se puede modificar el tema. Hay un editor de temas online en

https://tmtheme-editor.herokuapp.com/#!/editor/theme/Monokai

que te deja hacer cambios en los temas con una vista previa de los mismos (con la colorización de SublimeText / Javascript solamente) y descargarlos.

HTH
Mario

sergio garcia

unread,
Jun 12, 2018, 11:34:03 AM6/12/18
to publice...@googlegroups.com

No me refiero que lastima que no puedes hacer que toda la aplicación en Visual Foxpro se pudiera colocar tema Dracula como se puede en Visual Studio, Android, etc.

 

 

Saludos cordiales,

 

De: <publice...@googlegroups.com> en nombre de Mario López <guag...@gmail.com>
Responder a: <publice...@googlegroups.com>
Fecha: martes, 12 de junio de 2018, 08:32
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
Asunto: Re: [vfp] Re: Cambiar colores del editor de VFP

 

@Sergio Alejandro:

lastima que no se puede cambiar el aspecto.

supongo que te referirás a que no se puede modificar el tema. Hay un editor de temas online en

https://tmtheme-editor.herokuapp.com/#!/editor/theme/Monokai

que te deja hacer cambios en los temas con una vista previa de los mismos (con la colorización de SublimeText / Javascript solamente) y descargarlos.

HTH
Mario

El viernes, 8 de junio de 2018, 20:24:07 (UTC-3), sergio alejandro garcia mendez escribió:

Ya lo vi queda excelentes gracias lastima que no se puede cambiar el aspecto.

 

https://groups.google.com/group/publicesvfoxpro/attach/1f319469995af/image001.png?part=0.1&authuser=0

​

Janderley Sousa

unread,
Jan 14, 2020, 12:01:55 PM1/14/20
to Comunidad de Visual Foxpro en Español
Reply all
Reply to author
Forward
0 new messages