Скачать: CL | DM;

Как в TEdit сделать выравнивание текста по высоте?   Найти похожие ветки 

← →
lipskiy ©   (2002-09-02 12:08) [0]

Желательно без написания наследника.

---

← →
Ученик ©   (2002-09-02 12:15) [1]

VCENTER ?

---

← →
lipskiy ©   (2002-09-02 15:59) [2]

А что сие значит? Как это заюзать?

---

← →
Ученик ©   (2002-09-02 16:02) [3]

А что такое выравнивание текста по высоте в TEdit ?

---

← →
lipskiy ©   (2002-09-02 16:06) [4]

Ну если я сделаю Edit1.Height:= 100, а шрифт оставлю 10, то строчка текста должна быть в нем не прижата вверх, а располагаться по центру по высоте:
----------------
| |
| |
|Text |
| |
| |
----------------

---

← →
lipskiy ©   (2002-09-02 16:08) [5]

Я неверно сформулировал - выравнивание по центру по высоте, т.е. VCENTER - то, что надо, только как это использовать?

---

← →
Ученик ©   (2002-09-02 16:36) [6]

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 19:35) [7]

Спасибо.
А все таки Edit нужен.
На самом деле нужен просто однострочный редактор, но так это и есть TEdit, чего еще...

---

← →
Ученик ©   (2002-09-02 19:58) [8]

TMemo.WantReturns=False
TMemo.WordWrap=False,будет TEdit

---

← →
lipskiy ©   (2002-09-03 00:35) [9]

Ну, в общем да, можно и так.
Ок, спасибо еще раз.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c