Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Вниз

кодировка 


Игорь2   (2001-11-08 23:47) [0]

Такой вопрос. Мой шеф привык работать с бухгалтерской программой "Финансы без проблем" под DOS
и не на какую другую переходить не хочет(в том числе ФБП под Win, кстати я пробовал - тоже глюк).
Многие, почти все, отчетные формы имеют таблицы, но их ширина не позволяет распечатыватся без
искажений. Теперь суть: открываю выходной файл в richedit с помощью oemtoansi(дабы использовать
"альбомную" печать)- текст перекодируется, а таблица превращается в набор крестиков и черточек.
Может кто поможет советом, а лучше исходником с таблицей перекодировки.Спасибо.



Anatoly Podgoretsky   (2001-11-09 00:14) [1]

Попробуй без перекодиовки, за счет Charset=OEM_CHARSET и шрифт courier new



игорь2   (2001-11-09 00:42) [2]

2Anatoly Podgoretsky
На счет шрифта, я знаю, пробовал перевести выходной файл в excel97(по моему только он может хоть както преобразовывать Dos-таблицы, и то только с этим шрифтом), но линии всеравно получаются пунктирными. А в свойствах richedit
charset я не нашел. Если можно поподробней.



iZEN   (2001-11-09 01:09) [3]

Может это поможет:( http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1005227721&n=0)



Anatoly Podgoretsky   (2001-11-09 08:02) [4]

Это свойство шрифта



TAndrew   (2001-11-09 09:58) [5]

была такая мулька - lex2rtf из поставки Лексикон для вин; вроде корректно перегоняет досовские таблицы в RTF, надо проверить... если получится, вышлю мылом - она небольшая.



TAndrew   (2001-11-09 10:20) [6]

ага, получилось, высылаю...

а насчет преобразования, так текст перегнать не проблема, а вот таблицы в DOS-кодировке перегнать в таблицы RTF не так просто, и конвертировать "по символам" тут не поможет, нужен отдельный единый алгоритм/механизм преобразования.
Если вам удастся найти такой, уж сообщите - думаю, и других это заинтересует.



Dimka Maslov   (2001-11-09 15:24) [7]

RichEdit1.Font.Name:="Courier New Cyr";
RichEdit1.Font.Charset:=OEM_Charset;
RichEdit1.Font.Size:=8;



Игорь2   (2001-11-09 21:32) [8]

Да с Charset казус вышел.
2iZEN Таже песня.
2Dimka Maslov За "мульку" спасибо, но хочется до конца разобраться. Попробовал charset=OEM_CHARSET, работает только со шрифтами OEM. Но встает вопрос редактирования, что иногда полезно;). Может проще свой шрифт создать?



Игорь2   (2001-11-09 21:34) [9]

Извените за "мульку" спасибо TAndrew




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.019 c
3-28405           Desdechado            2001-12-05 16:09  2002.01.10  
IB по модемному каналу


3-28445           szap                  2001-12-07 15:09  2002.01.10  
Альтернатива TQuery


1-28484           Русский               2001-12-21 21:54  2002.01.10  
New заморочка от Русского ;)


1-28512           MaXimka               2001-12-21 17:12  2002.01.10  
Как узнать текущее разрешение экрана?


4-28555           Di_wind               2001-11-07 19:02  2002.01.10  
Процесс