How to change the default palette of FV?

Forum > FV/Textmode IDE

(1/1)

alecar:
Hi, I'm trying to learn a little bit of FV with the help of this tutorial: https://nachocabanes.com/pascal/curso/cupas17.php

Everything works fine but I would like to change the palette because I prefer to avoid colors in the terminal. I only found this info (https://stackoverflow.com/q/43728401) but I'm new to Pascal and I don't understand what they're talking about.

Can you help me with this?.

--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} --- {--------------------------} { Ejemplo en Pascal: } { } { Turbo Vision - 3 } { TV3.PAS } { } { Este fuente procede de } { CUPAS, curso de Pascal } { por Nacho Cabanes } { } { Comprobado con: } { - Free Pascal 2.2.0w } { - Turbo Pascal 7.0 } {--------------------------} program TV3; uses App, Objects, Menus, Drivers, Views, MsgBox; const cmAyuda = 100; { Una orden que vamos a crear } type Programa = object (TApplication) procedure InitStatusLine; virtual; procedure HandleEvent(var Suceso: TEvent); virtual; end; procedure Programa.InitStatusLine; var R: TRect; { Rectangulo de pantalla } begin GetExtent(R); { Miramos cuando ocupa } R.A.Y := R.B.Y - 1; { Nos quedamos la línea inferior } New(StatusLine, Init(R, NewStatusDef(0, $FFFF, NewStatusKey('~Alt-S~ Salir', kbAltS, cmQuit, NewStatusKey('~F1~ Ayuda', kbF1, cmAyuda, nil)), nil))); end; procedure Programa.HandleEvent(var Suceso: TEvent); var R: TRect; begin inherited HandleEvent(Suceso); { Primero que mire el "padre" } if Suceso.What = evCommand then { Si es una orden } case Suceso.Command of { Miramos que orden es } cmAyuda: MessageBox('¡Aun no hay ayuda disponible!', nil, mfWarning or mfOKButton); end; end; var Prog: Programa; begin Prog.Init; Prog.Run; Prog.Done; end.

cdbc:
Hi
Hmmm, maybe like this:
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} --- {--------------------------} { Ejemplo en Pascal: } { } { Turbo Vision - 3 } { TV3.PAS } { } { Este fuente procede de } { CUPAS, curso de Pascal } { por Nacho Cabanes } { } { Comprobado con: } { - Free Pascal 2.2.0w } { - Turbo Pascal 7.0 } {--------------------------} program TV3; uses App, Objects, Menus, Drivers, Views, MsgBox; const cmAyuda = 100; { Una orden que vamos a crear } type Programa = object (TApplication) procedure InitStatusLine; virtual; procedure HandleEvent(var Suceso: TEvent); virtual; end; procedure Programa.InitStatusLine; var R: TRect; { Rectangulo de pantalla } begin GetExtent(R); { Miramos cuando ocupa } R.A.Y := R.B.Y - 1; { Nos quedamos la línea inferior } New(StatusLine, Init(R, NewStatusDef(0, $FFFF, NewStatusKey('~Alt-S~ Salir', kbAltS, cmQuit, NewStatusKey('~F1~ Ayuda', kbF1, cmAyuda, nil)), nil))); end; procedure Programa.HandleEvent(var Suceso: TEvent); var R: TRect; begin inherited HandleEvent(Suceso); { Primero que mire el "padre" } if Suceso.What = evCommand then { Si es una orden } case Suceso.Command of { Miramos que orden es } cmAyuda: MessageBox('¡Aun no hay ayuda disponible!', nil, mfWarning or mfOKButton); end; end; var Prog: Programa; begin Prog.Init; AppPalette := apMonochrome; { <- I think it's here } Prog.Run; Prog.Done; end. Regards Benny

alecar:
I've already tried that before of opening the thread, but the palette doesn't change.

Navigation

[0] Message Index