mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 13:28:04 +02:00
49 lines
953 B
ObjectPascal
49 lines
953 B
ObjectPascal
{
|
|
rstconv -i tnlshello.rst -o tnlshello_ru_UTF8.pot
|
|
msgfmt tnlshello_ru_UTF8.pot
|
|
mv messages.mo ru
|
|
}
|
|
|
|
program nlshello;
|
|
{$mode objfpc}
|
|
|
|
uses
|
|
gettext, libc, ncurses;
|
|
|
|
resourcestring
|
|
hello_world = 'Hello world!';
|
|
press_key = 'Press any key to continue!';
|
|
|
|
|
|
var
|
|
win : pWINDOW;
|
|
begin
|
|
setlocale(LC_ALL, '');
|
|
|
|
try
|
|
initscr();
|
|
start_color;
|
|
noecho;
|
|
win:= newwin ( 10, COLS - 20, 5, 10);
|
|
|
|
init_pair(1,COLOR_WHITE,COLOR_BLUE);
|
|
init_pair(2,COLOR_RED,COLOR_BLUE);
|
|
wbkgd(win, COLOR_PAIR(1));
|
|
erase;
|
|
refresh;
|
|
|
|
box(win, ACS_VLINE, ACS_HLINE);
|
|
wrefresh(win);
|
|
mvwaddstr(win,1,3, curses_version);
|
|
|
|
TranslateResourcestrings('%s/messages.mo');
|
|
wattron(win,A_BLINK OR A_BOLD OR COLOR_PAIR(2));
|
|
mvwaddstr(win,3,3, PChar(hello_world));
|
|
wattroff(win,A_BLINK OR A_BOLD OR COLOR_PAIR(2));
|
|
mvwaddstr(win,5,3, PChar(press_key));
|
|
wrefresh(win);
|
|
getch();
|
|
finally
|
|
endwin();
|
|
end;
|
|
end. |