Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

Как включить перенос по словам (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;


 
Delphi5.01 ©   (2004-04-12 11:30) [4]

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;


 
Delphi5.01 ©   (2004-04-12 11:30) [5]

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.



Страницы: 1 вся ветка

Текущий архив: 2004.10.24;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.03 c
3-1096257220
NoG
2004-09-27 07:53
2004.10.24
Вопрос по MicroKernel DateBase (*.cmw)


14-1096878302
marina
2004-10-04 12:25
2004.10.24
Создание компонентов


1-1097212972
Dr. Genius
2004-10-08 09:22
2004.10.24
Сколько файлов в папке?


14-1096618139
Sergo
2004-10-01 12:08
2004.10.24
Я защитил кандидатскую!


3-1095950908
AlexXn
2004-09-23 18:48
2004.10.24
Неверно выводятся даты под Оракл