Авторасширение Memo

[MyLastHit]

Решил написать программу которая бы увеличивала Мемо на одну строку если ее предыдущая строка уже полность заполнена. Создал однострочный мемо на 29 символов. написал код:

if length(memo1.text)<29 then begin memo1.Height:=17;memo1.Top:=160; end;

if length(memo1.text)>=29 then begin
if length(memo1.Text)<58 then memo1.Height:=32; memo1.Top:=160-15; end;

if length(memo1.text)>=58 then begin
if length(memo1.Text)<87 then memo1.Height:=47;memo1.Top:=160-15-15;end;

if length(memo1.text)>=87 then begin
if length(memo1.Text)<116 then memo1.Height:=60;memo1.Top:=160-30-15;end;

if length(memo1.text)>=116 then begin
if length(memo1.Text)<143 then memo1.Height:=75;memo1.Top:=160-30-15-15;end;

if length(memo1.text)>=143 then begin
if length(memo1.Text)<172 then memo1.Height:=90;memo1.Top:=160-30-15-15-15;end;
if length(memo1.text)>=172 then begin
if length(memo1.Text)<173 then memo1.Height:=105;memo1.Top:=160-30-15-15-15-15;end;

здесь увеличиваю Высоту мемо и поднимаю его на высоту увеличения(чтобы рост был как бы вверх)
Вродибы правильный, но все дергается, мерцает...
Можно решить мою проблемму или здесь вообще по другому решается все?

[r9m]

Нужно знать кол-во символов предыдущей строки. дальше всё пойдёт ништяк

[DIgorevich]

попробуй так:

var
  Form1: TForm1;
    i:Integer;
implementation

{$R *.dfm}

procedure TForm1.memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

begin
  if memo1.Lines.Count>i then
  begin
    memo1.Height:=memo1.Height+15;
    memo1.Top:=memo1.Top-15;
    i:=i+1;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  i:=1;
  memo1.DoubleBuffered:=True;
end;

[MyLastHit]

Ништяк DIgorevich))) Спасибо)))

[chertovich]

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

Нужно знать кол-во символов предыдущей строки. дальше всё пойдёт ништяк

Во все не надо

[vovk]

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

попробуй так:

var
  Form1: TForm1;
    i:Integer;
implementation

{$R *.dfm}

procedure TForm1.memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

begin
  if memo1.Lines.Count>i then
  begin
    memo1.Height:=memo1.Height+15;
    memo1.Top:=memo1.Top-15;
    i:=i+1;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  i:=1;
  memo1.DoubleBuffered:=True;
end;

А если шрифт изменить?

Я гдето делал с рассчётом шрифта и тп, если найду выложу как делал.

[DIgorevich]

а при чем здесь шрифт? Мой код просто отслеживает переход на новую строку, и если он есть: меняет размеры и позицию memo...

[DedBoroda]

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

а при чем здесь шрифт? Мой код просто отслеживает переход на новую строку, и если он есть: меняет размеры и позицию memo...

Это при условии, что высота букв <= 15.
Например, размер шрифта в 12 пунктов равен 16-пиксельному размеру шрифта на экране

[DIgorevich]

ну, ТС не маленький, догадается, что надо будет сравнивать с высотой шрифта и соответственно высоту memo изменять.