Как включить перенос по словам (WordWrap) в RichEdit?

← →
4kusNick © (2004-04-11 21:06) [0]

Я использую стандартный способ RichEdit.WordWrap:= true, а компилятор сообщает, что свойство WordWrap "только для чтения". Подскажите, как можно включить WordWrap?

← →
Delphi5.01 © (2004-04-11 21:53) [1]

procedure Justify;
const
WM_USER = $400;
EM_EXSETSEL = (WM_USER + 55);
EM_SETTYPOGRAPHYOPTIONS = (WM_USER + 202);
EM_GETTYPOGRAPHYOPTIONS = (WM_USER + 203);
TO_ADVANCEDTYPOGRAPHY = $1;
mZERO = $0;
var x :tparaformat;
L :LongInt;
cp :charrange;
begin
x.cbSize := sizeof(x);
if SelLength = 0 then
begin
cp.cpMin := 0;
cp.cpMax := length(Text);
SendMessage(Handle,EM_EXSETSEL,mZERO,LPARAM(@cp));
end;
L := SendMessageA(Handle,EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY);
if L = 1 then
begin
SendMessageA(Handle, EM_GETTYPOGRAPHYOPTIONS, mZERO, mZERO);
SendMessage(Handle, EM_GETPARAFORMAT, mZERO, LPARAM(@x));
x.dwMask := PFM_ALIGNMENT;
x.wAlignment := PFA_JUSTIFY;
SendMessage(Handle, EM_SETPARAFORMAT, mZERO, lparam(@x));
end;
cp.cpMin := 0;
cp.cpMax := 0;
SendMessage(Handle,EM_EXSETSEL,mZERO,lparam(@cp));
WordWrap := true;
end;

это все для VCL, но вы легко можете изменить на KOL.
Желаю удачи

← →
4kusNick © (2004-04-11 22:30) [2]

Спасибо!

← →
4kusNick © (2004-04-11 23:28) [3]

Я не совсем понял, как в KOL будет выглядеть
cp :charrange;

2 4kusNick
Vot nashol :-)

unit SysUtils

function WrapText(const Line, BreakStr: string; nBreakChars: TSysCharSet; MaxCol: Integer):
string; overload;

function WrapText(const Line, MaxCol: Integer = 45):string; overload;

For example, the following call wraps the text into two lines at the last space character:

WrapText("The rain in Spain falls mainly on the plain.", #13#10, ["."," ",#9,"-"], 42);
\rThe result:

The rain in Spain falls mainly on the
plain.

Как включить перенос по словам (WordWrap) в RichEdit? Найти похожие ветки