Форум: "Основная";
Текущий архив: 2007.12.23;
Скачать: [xml.tar.bz2];
Вниз
Выравнивание текста Найти похожие ветки
← →
Андрей_Св (2007-10-04 20:07) [0]Уважаемые мастера.
Скажите как выровнять многословный текст по центру и по середине.
procedure TForm1.FormPaint(Sender: TObject);
var
r:TRect;
s:string;
OldBkMode,format:Integer;
begin
OldBkMode := SetBkMode(Canvas.Handle, TRANSPARENT);
Canvas.Pen.Width:=3;
Canvas.Pen.Color:=clRed;
r.Left:=50;
r.Top:=50;
r.Right:=r.Left+100;
r.Bottom:=r.Top+100;
Canvas.Rectangle(r);
s:="Во саду ли в огороде дивеица гуляла.";
Format:=DT_CENTER or DT_VCENTER or DT_WORDBREAK;-не выравнивает по середине.
DrawText(Canvas.Handle,PChar(s),LEngth(PChar(s)),r,format);
SetBkMode(Canvas.Handle, OldBkMode);
end;
← →
Ping (2007-10-05 08:41) [1]Тебе ж ясно написали:
DT_VCENTER Centers text vertically (single line only).
Так что выводи построчно.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2007.12.23;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.062 c
