Перейти к содержанию
  • Регистрация
  • 0
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);

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

Изменено пользователем giveaway

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Рекомендуемые сообщения

  • 0

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

С нижеследующим кодом под 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();

 

Изменено пользователем giveaway

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Похожий контент

    • От Сергей Сергеев
      Привет! Как сделать "бегущую строку" в TLabel  или TEdit - длинный текст, если не влазит в отведенное место по ширине, то авто скролл горизонтальный..
      пробовал через добавление TFloatAnimation в CustomStyle к свойству Text, изменяя position - ничего не происходит, пробовал Font.Size  менять ( для проверки - а вообще оно работает?) тоже ничего не происходило.
      Запускаю в Win, а нужно  вообще для Androiod и Ios.
       
    • От Денис Демин
      Здравствуйте, есть такая задача:
      1) Необходимо вставить карту от Яндекса на форму.
      2) Необходимо вставить информацию текстовую (информация о доставке или оплате), это можно также вставить HTML кодом, а лучше просто отформатированным содержанием. 
      Заранее спасибо всем за ответы.
    • От Вячеслав Холод
      Проблема такая, создаю динамически Label и нужно выровнять текст внутри по центру самой метки. 
      Пробовал: 
          with LabelG do
          begin
            StyledSettings := [];
            LabelG.TextSettings.Font.Family:='Century Gothic';
            LabelG.TextSettings.Font.Size:=14;
            LabelG.TextSettings.FontColor:=TAlphaColorRec.Aliceblue;
       -->  LabelG.TextSettings.HorzAlign.taCenter; (И :=taCenter и что только не пробовал)
          end;
       
      Помогите пожалуйста.
    • От Mazzay
      Сделал выбор числа месяца скроллингом (как это реализовано на устройствах Apple). Для наглядности вот рабочий пример: https://youtu.be/F73fCMSlL7I.
      Но для красоты картины не хватает вывода заворачивающихся чисел в перспективе:

      Как сие реализовать?
    • От Alex7wrt
      Всем здравствуйте.
      Интересует есть ли в FM опция для автоматического изменения размера шрифта в TText таким образом, чтобы текст заполнил всю площадь контрола. Включая и случаи отображения текста в несколько строк. 
      Просто есть контрол стандартного размера, и текст, отображаемый в нем, может быть разным, в том числе и длинным. Нужно сделать, чтобы его шрифт уменьшался для полной вместимости текста. 
    • От serg557
      День добрый!
      Ситуация такова:
      1. Загружаю вебстраничку в AnsiString - тут все отлично работает как на винде так и под андроид;
      2. Пытаюсь ее отпарсить с использованием стандартных методов AnsiString- .Pos(), .SubString(), .Delete(), - на винде все работает - на андроиде -нет.
       Вопрос в следующем - чем работать на с текстом - чтобы одинаково работало под андроидом?
       
    • От Schekhovtsov
      Чтобы если был выбран английский, приложение включало пресет английского. Собственно, нужен какой-то способ определения активного языка.
    • От kidrock
      Всем привет. Вывожу из базы в Tmemo текст из базы данных. Всё хорошо, но на мобилке обнаружилось, что при повороте экрана(вроде бы это называется смена ориентации) текст как бы расстягивается. Возможно ли это как то исправить?
       
      Вот так текст выглядит в нормальном виде:

       
      А вот в повернутом виде:

       
    • От vivien
      Здравствуйте уважаемые форумчане!
       
      Есть такой вопрос, в Grid есть колонка TCheckColumn, через событие OnGetValue, можно установить состояние чекбокса, а можно-ли как-то добавить текст рядом с чекбоксом?
      Ранее, в XE2, у TColumn был метод CellControlByRow, и работала такая конструкция:
      var tc : TTextCell; begin  // ... tc := columns[col].CellControlByRow(row) as TTextCell;   if assigned(tc) then tc.Text := 'текст'; end; Есть ли какая-нибудь альтернатива для XE4?
  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...