Не отображается текст

[giveaway]

Формирую документ для печати и хочу в него добавить программно некий текст, фигуры и изображение. Вот кусок кода:

TRectF RectF(10, 10, 30, 30);
BitmapTmp->Canvas->DrawRect(RectF, 0, 0, AllCorners, 100);
BitmapTmp->Canvas->FillText(RectF, ImageSel->Name, false, 1,
TFillTextFlags() << TFillTextFlag::RightToLeft,
// TFillTextFlags(),
TTextAlign::Center, TTextAlign::Center);

Прямоугольник отрисовывается нормально, а текст не отображается. Что я делаю не так?

Изменено 20 февраля, 2019 пользователем giveaway

[slav_z]

попробуйте указать цвет и вид заполнения...  Canvas.Fill.Color и Canvas.Fill.Kind  (текст - это заливка... поэтому Fill)

[giveaway]

С нижеследующим кодом под Windows все работает нормально (при печати добавляю на канву принтера номер страницы)

А вот в Маке вместо номера, получаю залитый черным прямоугольник. В чем ошибка?

TRectF pgRect;
	String numPagebuf;
	int x1, y1, x2, y2;
	x1 = 60;
	y1 = Printer->PageHeight - 220;
	x2 = Printer->PageWidth - 60;
	y2 = Printer->PageHeight - 170;
	pgRect.init(x1, y1, x2, y2);
	numPagebuf = IntToStr(numPage);
	TCanvas * canvas = Printer->Canvas;
	canvas->BeginScene();
	canvas->Font->Size = 90;
	canvas->Fill->Kind = TBrushKind::Solid;
	canvas->Stroke->Thickness = 1;
	canvas->FillText(pgRect, numPagebuf, false, 0, TFillTextFlags(),
	TTextAlign::Center, TTextAlign::Center);
	canvas->EndScene();

 

Изменено 15 марта, 2019 пользователем giveaway