Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.12.23;
Скачать: CL | DM;

Вниз

Выравнивание текста   Найти похожие ветки 

 
Андрей_Св   (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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.017 c
4-1181202427
dimaxx
2007-06-07 11:47
2007.12.23
Работа с флоппиком на уровне секторов в ХРюше


15-1194508857
TheEd
2007-11-08 11:00
2007.12.23
TDBNavComboBox - Написал компонент, кому надо - пишите!


2-1195900395
Igor Zorkov
2007-11-24 13:33
2007.12.23
Как поместить MainMenu на ControlBar


15-1195800245
KSergey
2007-11-23 09:44
2007.12.23
Пресловутый переход на висту


15-1195137434
alikon1
2007-11-15 17:37
2007.12.23
Не могу уследить логику работы калькулятора Windows