Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > TMemo

Автор: 095 1.5.2008, 18:42

Есть ли в компоненте TMemo свойства ширины одной строки?
В чужой программе наблюдалось например при нажатии на enter окошко TMemo расширяется вниз на количество "переведенных кореток" , очень удобно ..

Автор: Poseidon 2.5.2008, 00:16

Цитата(095 @ 1.5.2008, 18:42

)

расширяется вниз

А на русском теперь можно? Ширь - это как бы по горизонтали. Вниз - это уже по вертикали. Так куда там что делается?

Автор: Telepyz 2.5.2008, 13:19

Как я понял, нада наверное проверить высоту шрифта и на это значение уведичивать высоту

Код


procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then Memo1.Height:=Memo1.Height-Memo1.Font.Height+2;
end;

Автор: Poseidon 2.5.2008, 14:47

Ну если суть в этом, то я хотел бы сделать небольшое дополнение

Код

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13)AND(Memo1.Height < (ABS(Memo1.Font.Height)+2)*(Memo1.Lines.Count+1))
then Memo1.Height:= Memo1.Height-Memo1.Font.Height+2;
end;

Автор: 095 24.5.2008, 22:13

Спасибы! будем пробовать как до компьютера доберусь ...