Как в Edit1 выровнять текст по центру относительно верх-низ.

← →
Viktor1 © (2003-04-24 15:37) [0]

Делал примерно так:

procedure AlingmentTextEdit(var TheEdit : TEdit);
var
Top : Integer;
Str : String;
Rgn : TRect;
TheCanvas : TControlCanvas;
begin
TheCanvas := TControlCanvas.Create;
try
TheCanvas.Control := TheEdit;
Str := TheEdit.Text;
Rgn := TheEdit.ClientRect;
TheCanvas.FillRect(Rgn);
Top:= Rgn.Bottom - 10;// менял по разному не действут
TheCanvas.TextRect (Rgn, 0, Top, Str);

finally
TheCanvas.Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// для Edit1
// BolderStyle = none;
// BevelInner = bvLowered;
// BevelKind = bkTile;
// BevelOuter = bvSpace;
AlingmentTextEdit(Edit1);
end;

Подскажите как надо, спасибо!

← →
Viktor1 © (2003-04-24 16:13) [1]

Кто нибудь что скажет, или никто не знает?
Не вериться.
В стандартном TEdit при установке в BolderStyle = none;
выравнивание сразу становиться по вверху, хотелось бы по центру.

← →
Proton © (2003-04-24 16:40) [2]

Ответ на ваш вопрос был или вчера или позавчера. По этому и не отвечают :)

← →
Dms (2003-04-24 16:46) [3]

см. DrawText

Proton ©
Ответ на ваш вопрос был или вчера или позавчера.

Ничего подобного не нашёл. Везде выравнивание лево-право.
Помогите, плз. :-)
Если можно с примером.

При появлении формы текст выровнен вверху.
Так работает только при изменении размера форма мышкой.
При редактировании опять перескакивает текст вверх.
Как изменить чтоб при появлении формы и редактировании текст был выровнен по центру.

procedure AlingmentTextEdit(var TheEdit : TEdit);
var
//Top : Integer;
Str : String;
Rgn : TRect;
TheCanvas : TControlCanvas;
begin
TheCanvas := TControlCanvas.Create;
try
TheCanvas.Control := TheEdit;
Str := TheEdit.Text;
Rgn := TheEdit.ClientRect;
//TheCanvas.FillRect(Rgn);
//Top:= Rgn.Bottom;
TheCanvas.TextRect (Rgn, 0, 2, Str);
finally
TheCanvas.Free;
end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
AlingmentTextEdit(Edit1);
end;

Как в Edit1 выровнять текст по центру относительно верх-низ. Найти похожие ветки