Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как в TEdit сделать выравнивание текста по высоте? [D5]

lipskiy © (2002-09-02 12:08:00)
Желательно без написания наследника.

lipskiy (2002-09-03 00:35:00) [1]
Ну, в общем да, можно и так.
Ок, спасибо еще раз.

Ученик (2002-09-02 19:58:00) [2]
TMemo.WantReturns=False
TMemo.WordWrap=False,будет TEdit

lipskiy (2002-09-02 19:35:00) [3]
Спасибо.
А все таки Edit нужен.
На самом деле нужен просто однострочный редактор, но так это и есть TEdit, чего еще...

Ученик (2002-09-02 16:36:00) [4]
C TEdit не получается, только с TMemo

procedure TForm1.Button1Click(Sender: TObject);
var
R : TRect;
begin
Memo1.Height := 200;
Memo1.Perform(EM_GETRECT, 0, LPARAM(@R));
R.Top := (Memo1.Height - 20) div 2;
Memo1.Perform(EM_SETRECT, 0, LPARAM(@R));
end;

lipskiy (2002-09-02 16:08:00) [5]
Я неверно сформулировал - выравнивание по центру по высоте, т.е. VCENTER - то, что надо, только как это использовать?

lipskiy (2002-09-02 16:06:00) [6]
Ну если я сделаю Edit1.Height:= 100, а шрифт оставлю 10, то строчка текста должна быть в нем не прижата вверх, а располагаться по центру по высоте:
---------------- | | | | |Text | | | | | ----------------

Ученик (2002-09-02 16:02:00) [7]
А что такое выравнивание текста по высоте в TEdit ?

lipskiy (2002-09-02 15:59:00) [8]
А что сие значит? Как это заюзать?

Ученик (2002-09-02 12:15:00) [9]
VCENTER ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »