DirectWrite - невозможно использовать несколько системных шрифтов, таких как «Скрипт» - PullRequest
Новая
       40

DirectWrite - невозможно использовать несколько системных шрифтов, таких как «Скрипт»

0 голосов
/ 17 декабря 2018

Используя компилятор RAD Studio XE7, я пытаюсь нарисовать текст, используя DirectWrite и предоставленный VCL TDirect2DCanvas.

Рисование текста работает хорошо, пока я использую шрифты, принадлежащие семейству Segoe.Однако DirectWrite, похоже, не может использовать несколько шрифтов, таких как шрифт Script, и вместо этого использовать другой шрифт, когда я пытаюсь их использовать.

Когда я пытаюсь использовать GDI для рисования точно такого же текста, шрифт Scriptхорошо используется.Я не могу понять, что я делаю неправильно.Может кто-нибудь объяснить мне, как использовать шрифты, такие как шрифт Script с DirectWrite?

Вот код, который я сейчас использую для рисования текста с DirectWrite: 

void __fastcall TMainForm::btDirectWriteClick(TObject *Sender)
{
    const std::wstring text = L"Test ? ? ? ? ? ? ? ?";

    HDC hDC = ::GetDC(Handle);

    std::auto_ptr<TCanvas> pGDICanvas(new TCanvas());
    pGDICanvas->Handle = hDC;

    pGDICanvas->Brush->Color = clWhite;
    pGDICanvas->Brush->Style = bsSolid;
    pGDICanvas->FillRect(TRect(0, 0, ClientWidth, ClientHeight));

    ::D2D1_RECT_F textRect;
    textRect.left   = 10;
    textRect.top    = 10;
    textRect.right  = ClientWidth  - 10;
    textRect.bottom = ClientHeight - 10;

    std::unique_ptr<TDirect2DCanvas> pCanvas(new TDirect2DCanvas(hDC, TRect(0, 0, ClientWidth, ClientHeight)));

    // configure Direct2D font
    pCanvas->Font->Size        = 40;
    //pCanvas->Font->Name        = L"Segoe Script"; // this works...
    pCanvas->Font->Name        = L"Script";         // ... but this not!
    pCanvas->Font->Orientation = 0;
    pCanvas->Font->Pitch       = System::Uitypes::TFontPitch::fpVariable;
    pCanvas->Font->Style       = TFontStyles();

    // get DirectWrite text format object
    _di_IDWriteTextFormat pFormat = pCanvas->Font->Handle;

    // found it?
    if (!pFormat)
        return;

    pCanvas->RenderTarget->SetTextAntialiasMode(D2D1_TEXT_ANTIALIAS_MODE_CLEARTYPE);

    ::D2D1_COLOR_F color;
    color.r = 0.0f;
    color.g = 0.0f;
    color.b = 0.0f;
    color.a = 1.0f;

    ::ID2D1SolidColorBrush* pBrush = NULL;

    // create solid color brush, use pen color if rect is completely filled with outline
    pCanvas->RenderTarget->CreateSolidColorBrush(color, &pBrush);

    // found it?
    if (!pBrush)
        return;

    // set horiz alignment
    pFormat->SetTextAlignment(DWRITE_TEXT_ALIGNMENT_LEADING);

    // set vert alignment
    pFormat->SetParagraphAlignment(DWRITE_PARAGRAPH_ALIGNMENT_NEAR);

    // set reading direction
    pFormat->SetReadingDirection(DWRITE_READING_DIRECTION_LEFT_TO_RIGHT);

    // set word wrapping mode
    pFormat->SetWordWrapping(DWRITE_WORD_WRAPPING_NO_WRAP);

    IDWriteInlineObject* pInlineObject = NULL;

    ::DWRITE_TRIMMING trimming;
    trimming.delimiter      = 0;
    trimming.delimiterCount = 0;
    trimming.granularity    = DWRITE_TRIMMING_GRANULARITY_NONE;

    // set text trimming
    pFormat->SetTrimming(&trimming, pInlineObject);

    pCanvas->BeginDraw();

    pCanvas->RenderTarget->DrawText(text.c_str(), text.length(), pFormat, textRect, pBrush);

    pCanvas->EndDraw();
}

В качестве дополнительного вопроса,Мне также очень интересно использовать пользовательские шрифты, такие как Font-Awesome 5 (https://fontawesome.com/)) в моих приложениях. Как я могу использовать их для рисования текста с DirectWrite?

1 Ответ

0 голосов
/ 17 декабря 2018

Если вы имеете в виду шрифт под названием «Стандартный скрипт» в Windows 10, насколько я могу судить, это файл script.fon.Подобные растровые шрифты не поддерживаются в DirectWrite, вы можете сказать, перечислив коллекцию системных шрифтов, этого шрифта там не будет.

Что касается пользовательских шрифтов, то есть инструкции для msdn https://docs.microsoft.com/en-us/windows/desktop/directwrite/custom-font-collections.

...