Перенос в одной линиеё

[macomics]

EM_SETWORDBREAKPROC через него устанавливается callback функция имеющая параметрыEDITWORDBREAKPROCA

EDITWORDBREAKPROCA Editwordbreakproca;

function Editwordbreakproca(
  [in] LPSTR lpch, // Указатель на строку
  [in] int ichCurrent, // Текущий индекс в строке
  [in] int cch, // Длина строки
  [in] int code // причина вызова
): Integer; stdcall;
begin...end;

ее вы и должны написать

[Viktor61]

Ув. macomics. Посмотрите, пож-та, начало обсуждения. Kronos913, насколько я понял, предполагает наличие нескольких длинных строк в мемо, которые будут разбиваться на несколько более мелких строк. Если бы речь в ТЗ была об одной длинной строке, то вне всякого сомнения, берем Rect и форматируем. В ТЗ предполагается, что длинные строки, будут иметь разную длину и разбиваться на строки разной длины.

[macomics]

Ув. Viktor61. Попробуйте выведя одну длинную строку с нужной разбивкой в некоторой Rect прибавить к Rect.Top разницу Rect.Bottom - Rect.Top и выводить следующую длинную строку до тех пор пока вновь полученное значение Rect.Top не превысит ClientHeight. Для реализации этого хитрого плана стоит написать цикл.
2) Вы попробуйте распечатать в консоли всю строку получаемую в callback функцию.

A pointer to the text of the edit control.

Эта длинная строка и будет всем текстом Memo. Значит при выполнении разбивки вам надо учитывать не только длину одной строки, но и переходы на новую строку. DrawText это и делает.

[Viktor61]

Спасибо. Будем разбираться.

[Viktor61]

Работающий код

function CopyLongStr(const sMemoText, sMarker: string): string;
var
  s : string;
begin
  Result := s;
  s := Copy(sMemoText, 1, pos(sMarker, sMemoText)-1);
  if Length(s) > 0 then Result := s;
end;

Где sMemoText - Memo.Text
sMarker - редко используемый символ,
который необходимо прибавить в конце длинной строки (например, тильда- '~')
В сообщении Kronos913 от 04.05.2022, 22:37 это следует понимать как (См. рисунок)
Строка1_1111111111111~
Строка2~

Использовать ф-цию можно примерно так

procedure TForm2.btn2Click(Sender: TObject);
var
  s0, s : string;
begin
//  sMarker := '~';
  s := mmo1.Text;
  s0:= mmo1.Text;
  while Length(s) > 0 do
   begin
    s:= CopyLongStr(s0,'~');
    if Length(s) > 0 then  ShowMessage(s);
    Delete(s0, 1, pos('~', s0));
   end;
end;

[Viktor61]

Конечно, знаки-маркеры будут дезориентировать неопытного пользователя (он их может стирать и проч., что неудобно).
Если ув. macomics покажет работающий код, который будет использовать различные механизмы которые он предлагал (EM_SETWORDBREAKPROC и проч.), мы с Kronos913'ом скажем ему большое человеческое СПАСИБО!

[macomics]

Работа DrawText(..., DT_WORDBREAK);

[macomics]

субкласс сможете сделать, чтобы самостоятельно текст рисовать в Memo1?

[macomics]

Еще один вариант появился:

SetWindowLong(Memo1.Handle, GWL_STYLE, GetWindowLong(Memo1.Handle, GWL_STYLE) and not ES_AUTOHSCROLL);

[Viktor61]

Ув. macomics! В прикреплённом файле только exe-шник. Без кода... Вы именно это хотели прикрепить?