Цитата:
|
Сообщение от lmikle
если тема не уползет, вечером дома помиотрю примерчик.
|
Спасибо, подожду
--------------------
На следующий день
Пока ждал ответа попробовал разобраться сам. Пользавал Rectangle, TextRect и два цикла - один в другом. Для начала на канве формы. Таблицу рисует без проблем, а при попытке вывести текст получил жестокий вывих мозга. В итоге: 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 все делает как должен - черный текст в белом прямоугольнике.