TEdit

← →
again (2006-11-08 12:52) [0]

Если у TEdit (Autosize = false) изменить размер текста, например вместо 8, - поставить 7, то текст будет прижат к верхней границе Edit"a.

Выглядит это как-то так:
__________ | edittext | |_________|

Как добиться того, что бы текст находился посередине или был прижат к нижней границе?

← →
again (2006-11-08 14:58) [1]

Ничего не порекомендуете или вопрос плохо понятен?

← →
KilkennyCat © (2006-11-08 15:03) [2]

Создать наследника с необходимыми свойствами. Примеры, касающиеся TEdit и VAligment есть в сети.

← →
again (2006-11-08 15:23) [3]

А можно узнать, где есть пример VAligment"a?, именно вертикального. Поискал гуглом, много пишут про горизонтальный Aligment и там все сводится к:
case FAlign of eaLeft: Params.Style := Params.Style or ES_LEFT; eaCenter: Params.Style := Params.Style or ES_CENTER; eaRight: Params.Style := Params.Style or ES_RIGHT; end;

А как с вертикалью быть не представляю...

← →
KilkennyCat © (2006-11-08 17:04) [4]

http://groups.google.com/group/borland.public.delphi.vcl.components.using/msg/111fd76230bd76fd

← →
again (2006-11-08 17:58) [5]

> http://groups.google.com/group/borland.public.delphi.vcl.
> components.using/msg/111fd76230bd76fd

Styles : Array [TAlignment] of DWORD = (ES_LEFT, ES_RIGHT, ES_CENTER );

Ну или я очень хорошо ошибаюсь, либо там горизонтальный случай, а не вертикальный.

← →
KilkennyCat © (2006-11-08 19:17) [6]

> [5] again (08.11.06 17:58)

Гм... прошу прощения. Ступил.
Ща вернусь со свидания и разберемся, ежели никто не успеет раньше.

← →
again (2006-11-09 16:35) [7]

Свидание затянулось? :)

← →
guav © (2006-11-09 18:11) [8]

Для однострочного Edit"а - никак, лёгких способов нет.

← →
KilkennyCat © (2006-11-10 01:33) [9]

На основе нижеследуещего можно извратиться:

http://philip-s.narod.ru/hitr/Comp_RightAlignedText.html

Либо подменить однострочный редактор многострочным.

А свидание действительно затянулось :)

← →
again (2006-11-10 10:44) [10]

> http://philip-s.narod.ru/hitr/Comp_RightAlignedText.html

Спасибо!

Рисование по канвасу не слишком хорошо сказывается. А что с многострочным? какие у него особенности, которые позволяют добиться нужного эффекта другим способом?

Возможно, используя конецформыначалоформыЕM_SetRect
Может, поможет принудительное задание ТЕдиту стиля конецформыначалоформыЕS_MULTILINE

конецформыначалоформы не читать - пакость от копипасте.

http://forum.vingrad.ru/index.php?act=ST&f=1&t=6820&s=59fdec324b4c6f1e2059243a5808e37c

TEdit Найти похожие ветки