|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как в окне JvRichEdit определить надстрочные и подстрочные символы?
Не могу сам решить эту задачу.
Есть текст, в котором надо выловить надстрочные и подстрочные символы. Как я понял, надо использовать EM_GETCHARFORMAT, но как, я не пойму. Я использую библиотеку JEDI. Добавил в uses помимо JvRichEdit еще и RichEdit, потому как без него возникает ошибка в объявлении переменной CF:TCharFormat2;. Пробую отслеживать dwMask и yOffset (да и другие варианты, которые нашел в примерах в интернете), но это не срабатывает... Помогите решить задачу или посоветуйте учебник, в котором это было бы расписано, если такой существует, я вот найти не могу. Код:
procedure TForm1.Button1Click(Sender: TObject); var i:integer; CF:TCharFormat2; begin for i:=1 to Length(RichEdit1.Text) do begin //Искать по всем символам всего текста RichEdit1.SelStart:=i; // FillChar(CF, SizeOf(CF), 0); // CF.cbSize:=SizeOf(CF); // CF.dwMask:=CFM_OFFSET; // CF.dwMask:=CFE_SUPERSCRIPT; // RichEdit1.Perform(EM_GETCHARFORMAT, SCF_SELECTION, LPARAM(@CF)); FillChar(CF, SizeOf(CF), 0); if CF.dwMask = CFM_SUPERSCRIPT then //Если текущий символ надстрочный, то... begin S1:=S1+RichEdit1.Text[i]; //Все надстрочные символы в одну переменную end; if CF.yOffset <0 then //Если текущий символ подстрочный, то... begin S2:=S2+RichEdit1.Text[i]; //Все подстрочные символы в одну переменную end; end; RichEdit2.Lines.Add('Надстрочные: '+S1); RichEdit2.Lines.Add('Подстрочные: '+S2); end; |
#2
|
|||
|
|||
Посмотри вот тут: https://supportcenter.devexpress.com...ipt-text-state
Может наведет на правильную мысль. |
#3
|
|||
|
|||
Как же хреново быть тупым...
cxRichEdit (из того примера) это из библиотеки DevExpress VCL? А у меня ее нет. И Delphi 10.4 ругается на uses cxRichEditUtils; Я пользовался RxLib, потом поставил JEDI (JvRichEdit - у него контекстное меню работает). На торренте скачал DevExpress VCL v19.1.2 Full Sources for XE 10.4, но при установке (с помощью DxAutoInstaller) возникает миллион ошибок и результата нет. Здесь еще нашел: https://github.com/search?q=DevExpress+VCL, но как скачать даже понять не могу. Библиотека больше гига должна быть, но такого нет. |
#4
|
|||
|
|||
Скачал с официального сайта DevExpressVCL21.1.3 для 10.3Rio, Trial на 30 дней.
Компонент cxRichEdit появился, но есть ошибки: сначала с библиотекой RS26, пришлось указывать к ней путь (C:\Program Files (x86)\DevExpress\VCL\Library\RS26), потом ошибка такая: [dcc32 Fatal Error] E2202 Required package 'FireDAC' not found, и как ее исправить я не знаю. |
#5
|
|||
|
|||
Не ставить компоненты, связанные с данными. У тебя бесплатная версия Starter?
ЗЫ. Вообще-то я привел ссылку, где есть пример. Там в тексте один из разработчиков говорит, что их RichEdit это, как и большинство остальных, всего-лишь обертка для виндового контрола, т.е. должно работать в любом. Хотя там есть некоторая разница - надо смотреть какую версию виндового контрола использует конкретная библиотека. Вроде, начиная с W7, появилась версия 2.0. Стандартный контрол TRichEdit все еще опирается на 1.0 (вроде), но есть версии, которые уже работают с версией 2.0. ЗЗЫ. Вот еще с другого форума: Цитата:
|
#6
|
||||
|
||||
Цитата:
Цитата:
Цитата:
А мне вот такой совет показали: "Через EM_GETCHARFORMAT получить информацию о нужном символе в структуру CHARFORMAT (или CHARFORMAT2 для RE 2.0) и проверить содержимое поля yOffset. Если оно содержит нулевое значение - то текст обычный. Если положительное - текст надстрочный. Отрицательное - подстрочный." Т.е. yOffset надо читать, а не писать в него. В вашем коде "yOffset:= 60; ", насколько я понял, для установки символа: над- или подстрочного, а значение 60 - смещение от центральной линии вверх. А это пример, как узнать цвет слоя под текстом в RichEdit: Код:
var CFormat : TCharFormat2; begin FillChar(CFormat, SizeOf(CFormat), 0); CFormat.cbSize := SizeOf(cf); CFormat.dwMask := CFM_BACKCOLOR; RichEdit1.Perform(EM_GETCHARFORMAT, SCF_SELECTION, LPARAM(@CFormat)); ShowMessage(ColorToString(CFormat.crBackColor)); end; Насколько я понял, эта строка устанавливает параметры для вывода в RichEdit (если EM_SETCHARFORMAT) Код:
richedit1.Perform( EM_SETCHARFORMAT, SCF_SELECTION, LongInt(@format)); Цитата:
Я пробовал Код:
CFormat.cbSize:=SizeOf(CFormat); Код:
CFormat.dwMask:=CFM_SUPERSCRIPT; Код:
CFormat.dwMask:=CFM_OFFSET; Код:
RichEdit1.Perform(EM_GETCHARFORMAT, SCF_SELECTION, LPARAM(@CFormat)); Код:
if CFormat.yOffset >0 then //Если текущий символ надстрочный, то... begin S9:=S9+RichEdit1.Text[ii]; //Накапливаем все надстрочные символы в одну переменную end Значит, информация о нужном символе не передается в структуру CHARFORMAT2. Все примеры, что я видел или для выдачи символа в RichEdit или для получения информации из RichEdit куда указывает курсор. А у меня: Код:
RichEdit1.SelStart:=i; Код:
S4:=RichEdit1.Text[i]; Я тут https://docs.microsoft.com/en-us/win...charformat2w_1 пытался что-нибудь выяснить, но это справочник какой-то для спецов, а мне нужен учебник, где бы было показано, что такое FillChar, cbSize, dwMask, Perform, что оно такое, и что туда писать. |
#7
|
|||
|
|||
FillChar - заполняем память, выделенную для переменной указанным значением
cbSize - надо указать размер структуры, типа Код:
CFormat.cbSize:=SizeOf(CFormat); Perform - посылает сообщение (Windows message) окну компонента для обработки Возможно, у тебя не работает, т.к. надо еше указать выделение. SelStart указвывает начало выделения, а SelLength - сколько выделено и оно у тебя равно 0. Есть мысль, что надо указывать там как минимум 1. |
#8
|
|||
|
|||
Создал новый проект. Использую только стандартные TRichEdit, без всяких Jv, cx и пр.
Указываю RichEdit1.SelStart:=i; взять текущий символ, и RichEdit1.SelLength:=1; взять 1 символ. Хотя, если указать 3, то все равно берется только 1 символ. Почему - не пойму. Непонятно, что нужно указывать в dwMask (хотя, пишут же для yOffset: Чтобы использовать этот элемент, установите флаг CFM_OFFSet в элементе DWMask, но я пробовал, а толку ноль). Пробовал разные варианты, но я не знаю главного - передается ли информация о нужном символе в структуру CHARFORMAT2. Что-то я не вижу, как бы он туда мог передаться. Где код, который за это отвечает? Из Word'а копирую текст с над- и подстрочными символами и вставляю в RichEdit1. Вот полный код: Код:
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, RichEdit; type TForm1 = class(TForm) RichEdit1: TRichEdit; RichEdit2: TRichEdit; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin RichEdit1.Clear; RichEdit2.Clear; end; procedure TForm1.Button1Click(Sender: TObject); var i:integer; S1,S2,S3,S4:string; CF:TCharFormat2; begin for i:=1 to 5 do begin //Цикл идет от первого символа строки до последнего RichEdit1.SelStart:=i; //Установка начала выборки символов в строке RichEdit1.SelLength:=3; //Взять 1 символ S1:=RichEdit1.Text[i]; //Текущий символ S2:=S2+RichEdit1.Text[i]; //Накапливаем все символы в одну переменную FillChar(CF, SizeOf(CF), 0); CF.cbSize:=SizeOf(CF); CF.dwMask:=CFM_SUPERSCRIPT; // CF.dwMask:=CFE_SUPERSCRIPT; // CF.dwMask:=CFM_OFFSET; RichEdit1.Perform(EM_GETCHARFORMAT, SCF_SELECTION, LPARAM(@CF)); if CF.yOffset >0 then //Если текущий символ надстрочный, то... begin S3:=S3+RichEdit1.Text[i]; //Все надстрочные символы в одну переменную end; if CF.yOffset <0 then //Если текущий символ подстрочный, то... begin S4:=S4+RichEdit1.Text[i]; //Все подстрочные символы в одну переменную end; end; RichEdit2.Lines.Add('Надстрочные: '+S3); RichEdit2.Lines.Add('Подстрочные: '+S4); end; end. Последний раз редактировалось Lighting, 24.07.2021 в 06:16. |