[poli-smen]

Сообщение от Помидоркин

В итоге: TextOut выводит текст, TextRect - нет. В конце создал пустой проект - то же самое.

Код:

procedure TForm1.FormDblClick(Sender: TObject);
begin
 with Canvas do
 begin
  Brush.Color:= clWhite;
  Pen.Color:= clBlack;
  Font.Name:= 'Arial';
  Font.Size:= 12;
  Font.Color:= clBlack;
  TextRect(Rect(50, 50, 200, 90), 5, 5, 'Проба');
  TextOut(50, 150,'Проба');
 end;

TextRect выводит только белый прямоугольник, TextOut все делает как должен - черный текст в белом прямоугольнике.

TextRect выводит текст в ограничивающем прямоугольнике, а ты указал координаты вывода текста вне этого прямоугольника.
Пробуй так:

Код:

TextRect(Rect(50, 50, 200, 90), 50, 50, 'Проба');