RxRichEdit

← →
Aga © (2003-08-28 13:03) [0]

вобщем там отступ слева оочень большой мне нужно сделать его как в блокноте... делаю так :
RichEdit1.Perform(EM_SETRECT,0,LParam(@r));
ShowMessage(IntToStr(r.Left));
где r: TRect; r.Left := 0; но получается что текст слишком приближен к границе...
нужно на пол мм дальше...

← →
aga © (2003-08-28 14:29) [1]

Интересно что вышеописаный код работае отличительно от этого:

var Rect: TRect;
begin
SendMessage( RichEdit1.Handle, EM_GETRECT, 0, LongInt(@Rect));
Rect.Left:= 3;
SendMessage(RichEdit1.Handle, EM_SETRECT, 0, LongInt(@Rect));
RichEdit1.Refresh;

end;

даже если в первом сделать r.Left := 3;

RxRichEdit Найти похожие ветки