Free Vision for linux platform does not properly display the Russian language.
Original Reporter info from Mantis: tommiboy
-
Reporter name: tommi boy
Original Reporter info from Mantis: tommiboy
- Reporter name: tommi boy
Description:
Free Vision for linux platform does not properly display the Russian language. The problem in the module Video, which is used in Free Vision. He is assuming that the source code written in cp437 encoding performs additional (in my case, unnecessary and harmful!) Re-encoding to utf8 in the result, instead of Russian words I see the characters. The request to the developers fix this bug.
Steps to reproduce:
1) enter to editor text
program TFirst;
uses App, drivers, menus, objects, views;
type
TMyApp = object(TApplication)
procedure InitStatusLine; virtual;
end;
procedure TMyApp.InitStatusLine;
var R: TRect; { хранит границы строки статуса }
begin
GetExtent(R); { устанавливает R в координаты всего}
{ экрана }
R.A.Y := R.B.Y - 1; { передвигает вершину на 1 строку }
{ выше нижней }
StatusLine := New(PStatusLine, Init(R, { создает строку }
{ статуса }
NewStatusDef(0, $FFFF, { устанавливает диапазон контекстного }
{ Help }
NewStatusKey('~Alt-X~ Выход', kbAltX, cmQuit, { определяет
элемент }
NewStatusKey('~Alt-F3~ Закрыть', kbAltF3, cmClose, { другой }
nil)), { больше нет клавиш }
nil) { больше нет определений }
));
end;
var
MyApp: TMyApp;
begin
MyApp.Init;
MyApp.Run;
MyApp.Done;
end.
2) compile and run
3) in theory we should see in status bar ~Alt-X~ Выход ~Alt-F3~ Закрыть
but on practice we see not readable characters
Additional information:
Please, fix this bug, it blocked my program development
Mantis conversion info:
- Mantis ID: 21373
- OS: linux
- OS Build: xubuntu
- Platform: fpc 2.4.4 fpc 2.6.0 i386
- Version: 2.4.4
- Monitored by: » @xhajt03 (Tomas Hajny), » krouziciorel (Luděk Šťastný), » bormant (Serg Bormant)