Перейти к содержанию
  • Регистрация

Поиск сообщества

Показаны результаты для тегов 'printer-canvas'.

  • Поиск по тегам

    Введите теги через запятую.
  • Поиск по автору

Тип контента


Форумы

  • Общие вопросы
    • Анимация
    • Графика
    • Стили
    • Базы данных и REST
    • Компоненты
    • Положение, размеры, выравнивание
    • Работа с текстом
    • Приложение и формы
    • Отладка
    • Развертывание приложений
    • Вопросы по языку Object Pascal и RTL
    • Общая информация о TControl
    • События
    • Прочие вопросы
  • Вопросы по платформам
  • Вопросы по использованию RAD Studio
  • Native FGX
  • Обучение
  • Поиск специалистов по FireMonkey
  • Дополнительные ресурсы по FireMonkey
  • Организация работы данного форума
  • Видеокурсы

Поиск результатов в...

Поиск контента, содержащего...


Дата создания

  • Начало

    Конец


Дата обновления

  • Начало

    Конец


Фильтр по количеству...

Регистрация

  • Начало

    Конец


Группа


AIM


MSN


Сайт


ICQ


Yahoo


Jabber


Skype


StackOverflow


Защита от ботов


Город


Интересы

Найдено: 1 результат

  1. Euvene

    Работа с Printer->Canvas

    Добрый день. Возникла такая проблема, нужно распечатать обычную таблицу, но при печати получается все очень мелкое, может кто подскажет как это исправить... вот код: TRectF SrcRect, DestRect; int h = 40, w = 60, x0 = 50, y0 = 150, x, y; TPrinter *Printer = Fmx::Printer::Printer(); Printer->ActivePrinter->SelectDPI(1200, 1200); Printer->Canvas->Fill->Color = claBlack; Printer->Canvas->Fill->Kind = TBrushKind(1); Printer->Canvas->Stroke->Kind = TBrushKind::Solid; Printer->Canvas->Stroke->Color = claBlack; Printer->BeginDoc(); DestRect.SetHeight(h); DestRect.SetWidth(w); for (int i = 0; i < StringGrid1->RowCount; i++) { x = x0; for (int j = 0; j < StringGrid1->ColumnCount; j++) { DestRect.SetLocation(x, y0); Printer->Canvas->Font->Size = 14; // Printer->Canvas->DrawRect(DestRect, 0, 0, AllCorners, 1); // Printer->Canvas->Font->SetSettings(StringGrid1->TextSettings->Font->Family,StringGrid1->TextSettings->Font->Size,StringGrid1->TextSettings->Font->StyleExt); Printer->Canvas->FillText(DestRect, StringGrid1->Cells[j][i], false, 100, TFillTextFlags(), TTextAlign::Center, TTextAlign::Center); x += w; } y0 += h; } Printer->EndDoc();
×
×
  • Создать...