Нужно подобрать высоту Memo так, чтобы текст помещался полностью. При этом учесть то, что высота не обязательно будет равняться высота_строки*кол-во_строк, так как возможен автоперенос строк.
Какие идеи по этому поводу?

Цитата(Romero @ 17.12.2005, 18:17)

Какие идеи по этому поводу?

Установи свойство ScrollBars в ssHorizontal или ssBoth для универсальности.

идея приблизительно такова(если не делать как сказал Zero):

Код

procedure TForm1.Memo1Change(Sender: TObject); var p:integer; begin p:=trunc(abs(Memo1.Font.Height))+trunc(abs(Memo1.Font.Height)/3); Memo1.ClientHeight:=trunc(abs(Memo1.Font.Height)/3)+(Memo1.Lines.Count)*p; end;

вычисляем занимаемую высоту

Код

p:=trunc(abs(Memo1.Font.Height))+trunc(abs(Memo1.Font.Height)/3);

где:

Код

abs(Memo1.Font.Height)

высота шрифта в пикселях

Код

trunc(abs(Memo1.Font.Height)/3)

эт я пытался вычислить межстрочное растояние считая что оно равно 1/3 от размера шрифта.

Код

Memo1.ClientHeight:=trunc(abs(Memo1.Font.Height)/3)+(Memo1.Lines.Count)*p;

вначале делаю поправку на межстрочное расстояние

PS: на шрифте 8 MS Sans Serif работает нормально, на шрифте 19 Niagara Solid через 8 строчек набегает ещё одна лишняя, кроме того непонятно почему, если количество строчек больше отображаемых в самом начале, то на этом шрифте при первом нажатии на кнопку происходит однократное увеличение на 5 строчек, но потом нормально.

PSS: в коде не забудь добавить проверку на количество строчек -> если количество строчек меньше 1, то ничего не делать(или установить размер по одной строчке)

Это сообщение отредактировал(а) Albinos_x - 20.12.2005, 17:07

Albinos_x
Спасибо за идею! Примерно так и сделал