Turbo Pascal Turbo Vision/Free Pascal Free Vision中的强制单色模式

我正在写一个基本的“hello world”程序，里面有免费的Pascal Free Vision，我想去掉颜色，让程序保持单色。只是黑白的

我知道这在旧的turbopascal时代是可能的，但我找不到任何参考或示例代码。我使用的是最新版本的免费Pascal，但对Turbo Pascal的回答也会对我有所帮助

---

有什么想法吗？

是的，那是很多年前的事了！：o） 在应用程序的

Init

方法中，在继承的Init之后添加

AppPalette:=单色成功了。谢谢！。对不起，我的错。正确的方法是重写
InitScreen
方法并在那里设置
apppalete
。祝你好运，我不需要重写任何方法。将
apppalete
设置为
apmonology
或
2
在
app.Init
之后生效。我甚至可以在运行时使用适当的值调用
apppalete
在颜色、黑白和单色之间更改调色板。你的回答告诉了我应该寻找什么函数。免费Pascal在
src/packages/fv/src/app.pas
中定义选项板。