[AmX]

Прриветствую вас, форумчане..
Работаю с RichEdit на WinAPI. Необходимо обеспечить функции для работы с ним, как реализовано в VCL(установка атрибутов строкам текста, получение строки текста по индексу, получение индекса последней строки, добавление строки в конец текста, добавлеине строки в нужное место - по индексу и т.п. - пригодится всё)..

На данный момент научился устанавливать фон контрола(SendMessage(REWnd, EM_SETBKGNDCOLOR, 0, RGB(0, 0, 0)), изменять шрифт 2мя способами( SendMessage(REWnd, WM_SETFONT, Font, 0); - С использованием структуры HFONT и SendMessage(REWnd, EM_SETCHARFORMAT, SCF_ALL, LongInt(@CharFormat)); - С использованием структуры CharFormat)..

Порыл MSDN, погуглил.. Всё же хотелось бы получить как можна больше информации на эту тему..
Может кто знает, какие ещё мессаги можно слать RichEdit'у, чтобы приблизится по возможностям работы с ним к VCL??
Подойдёт любая полезная информация..
Наличие примеров приветствуется

[Nyctos Kasignete]

Сообщение от AmX

какие ещё мессаги можно слать RichEdit'у

Сообщение от Windows SDK

The following messages are unique to rich edit controls.

EM_CANPASTE
EM_DISPLAYBAND
EM_EXGETSEL
EM_EXLIMITTEXT
EM_EXLINEFROMCHAR
EM_EXSETSEL
EM_FINDTEXT
EM_FINDTEXTEX
EM_FINDWORDBREAK
EM_FORMATRANGE
EM_GETCHARFORMAT
EM_GETEVENTMASK
EM_GETIMECOLOR
EM_GETIMEOPTIONS
EM_GETOLEINTERFACE
EM_GETOPTIONS
EM_GETPARAFORMAT
EM_GETPUNCTUATION
EM_GETSELTEXT
EM_GETTEXTRANGE
EM_GETWORDBREAKPROCEX
EM_GETWORDWRAPMODE
EM_HIDESELECTION
EM_PASTESPECIAL
EM_REQUESTRESIZE
EM_SELECTIONTYPE
EM_SETBKGNDCOLOR
EM_SETCHARFORMAT
EM_SETEVENTMASK
EM_SETIMECOLOR
EM_SETIMEOPTIONS
EM_SETOLEINTERFACE
EM_SETOPTIONS
EM_SETPARAFORMAT
EM_SETPUNCTUATION
EM_SETTARGETDEVICE
EM_SETWORDBREAKPROCEX
EM_SETWORDWRAPMODE
EM_STREAMIN
EM_STREAMOUT
WM_CONTEXTMENU

И у всех есть нормальное описание: что там wParam, а что — lParam... Так что Windows SDK.

[AmX]

Nyctos Kasignete, сенк, я там сматрел))
просто хочеццо каких-то более конкретных примеров использования...
вот щас ещё посидел..несколько продвинулся..

нужно написать процедуру для добавления новой строки в RichEdit..
Я пробовал делать так:

Код:

procedure reAddLine(Hnd: HWND; text: String);
var
 ltext: PAnsiChar;
begin
 GetWindowText(Hnd, ltext, 1024);
 SetWindowText(Hnd, PAnsiChar(ltext+text+#10));
end;

но почему та при обращении получаеццо строка вида "Название_шрифтаТекст"
исправляю на:

Код:

procedure reAddLine(Hnd: HWND; text: String);
var
 ltext: PAnsiChar;
begin
 GetWindowText(REWnd, ltext, 1024);
 SetWindowText(Hnd, PAnsiChar(ltext+text+#10));
end;

- и всё работает..
но тут теряется универсальность процедуры в использовании..
в чём причина неработоспособности первого варианта?

[Nyctos Kasignete]

Не знаю, у меня работает и через handle.

Код:

procedure reAddLine(Hnd: HWND; txt: String);
var
 ltext: PAnsiChar;
 newText: string;
begin
  GetMem(ltext, 1024);
  try
    GetWindowText(Hnd, ltext, 1024);
    newText := StrPas(ltext) + txt + #13#10;
    SetWindowText(Hnd, @newText[1]);
  finally
    FreeMem(ltext, 1024);
  end;
end;

Сообщение от AmX

получаеццо строка вида "Название_шрифтаТекст"

Что за "Название_шрифта" ?? o_O

[AmX]

Спасиба, так всё норм работает
"Название_шрифта" это его FaceName (Например 'Arial' или 'Times New Roman')..
На настоящий момент вопросы вроде как исчерпались..

Если есть что интересное по данной теме, пишите

[dima11221122]

У меня такая проблема. При компиляции

Pastebtn.Enabled:=RichEdit1.Perform(em_canpaste , 0, 0)<>0;

выдает ошибку

[DCC Error] Unit3.pas(55): E2003 Undeclared identifier: 'em_canpaste'
Как быть?