Как вывести текст с надстрочными и Unicode символами (например в Memo).
Мне нужно вывести текст с надстрочными и Unicode символами. Можно ли это сделать в Memo, или есть другой вариант реализации.
Пользовать BDS2009 и выше, либо пользовать компоненты серии TNT - они сделаны для поддержки юникода.
нашел более-менее вариант для надстрочных символов для Ritchedit
uses RichEdit;
procedure Tform1.Button1Click(Sender: Tobject);
var
CF: Tcharformat;
begin
cf.cbSize := sizeof(cf);
cf.dwMask := Cfm_offset;
cf.yOffset := 100;
Richedit1.Perform(Em_setcharformat, Scf_selection, integer(@cf));
end;
как бы еще Unicod- символы...
uses RichEdit;
procedure Tform1.Button1Click(Sender: Tobject);
var
CF: Tcharformat;
begin
cf.cbSize := sizeof(cf);
cf.dwMask := Cfm_offset;
cf.yOffset := 100;
Richedit1.Perform(Em_setcharformat, Scf_selection, integer(@cf));
end;
как бы еще Unicod- символы...
автор - усвойте себе для начала теги оформления кода. И таки бы не мешало бы вам понять чего вы хотите - либо как вам сказано используйте более современные версии делфи, либо используйте теги RTF. Либо рисуйте себе сами - чего хотите на канве.
Выводить юникод и прочее в memo - занятие обсолютно бесполезное. Для целей вывода форматированного текста в Windows служит RichEdit.
Выводить юникод и прочее в memo - занятие обсолютно бесполезное. Для целей вывода форматированного текста в Windows служит RichEdit.