如何使用 Perl 和 Curses 指定透明背景？

发布于 2024-09-08 15:18:44 字数 187 浏览 6 评论 0原文

我试图将背景设置为标准终端颜色而不是黑色，但我似乎无法弄清楚。当我使用 use_default_colors() 时，标准就像不使用颜色一样，但我想更改前景色而不是背景色。我使用 init_color_pair(1, COLOR_RED, COLOR_BLACK); 但这给了我一个黑色背景，这是我不想要的。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

指尖凝香 2024-09-15 15:18:44

为了具有透明背景，应用程序的用户应该在其 .Xdefaults 或类似内容中指定它。如果用户已经有透明背景，您所要做的就是使用默认背景，如下所示：

use Curses;
#...some init here...
# colors:
use_default_colors;  # mandatory, we want to use the default background which is transparent
init_pair 1, COLOR_BLUE, -1;  # -1 mandatory, again, we want *default* background
init_pair 2, -1, COLOR_WHITE;  # you can use the default foreground color if you like

in order to have transparent background, the user of your app should have specified it in their .Xdefaults or something similar. If the user already has a transparent background, all you have to do, is to use the default background like so:

use Curses;
#...some init here...
# colors:
use_default_colors;  # mandatory, we want to use the default background which is transparent
init_pair 1, COLOR_BLUE, -1;  # -1 mandatory, again, we want *default* background
init_pair 2, -1, COLOR_WHITE;  # you can use the default foreground color if you like

回复收藏 0 原文

~没有更多了~