Как изменить лицо и размер шрифта, используемые Windows Ribm Framwork UIRibbon?
Шрифт, используемый на ленте, не совпадает со шрифтом, выбранным пользователем в качестве своих предпочтений Windows - это предпочтение, которое использует мое приложение. Это означает, что когда шрифт в Windows становится больше, лента становится меньше.
Обратите внимание, как лента становится меньше на каждом скриншоте:
Segoe UI 9pt (по умолчанию в Windows)
Segoe UI 12pt (что я использую)
Segoe UI 16pt (какой клиент использует)
К тому моменту, когда мы добираемся до 16pt, вы можете видеть, что текст на ленте довольно труден для чтения.
Фон
Пользователь может настроить Windows на использование предпочтительного размера шрифта , например ::
.
и их предпочитаемый шрифт , например ::1010 *
- MS Sans Serif
- Microsoft без засечек
- Tahoma
- Segoe UI
- Calibri
, но Windows Ribbon Framework по умолчанию использует шрифт, который не предпочтения пользователя.
Редактировать: Перемещенное изображение вверх, чтобы поймать белок, привлеченных блестящими вещами.
Редактировать 2: Добавлена еще одна красочная картинка, чтобы получить удар.
Редактировать 3: Редактирование, чтобы получить удар
Редактировать 4: Добавление другой другой картинки, чтобы получить удар
Лента позволяет настраивать цветов ленты.
Следующий фрагмент кода используется для установки UI_PKEY_GlobalBackgroundColor ленты. В этом случае я использую цвет, который в настоящее время выбирает цветовую схему Aero пользователя:
IUIFramework framework;
...
TColor glass = Dwm.GetColorizationColor();
VarCast(v, ColorToUIHSB(glass), UI_PKEY_GlobalBackgroundColor.pid);
IPropertyStore ps = framework as IPropertyStore;
ps.SetValue(UI_PKEY_GlobalBackgroundColor, PROPVARIANT(v));
ps.Commit;
А теперь лента теперь раскрашена в соответствии с цветовой схемой Windows:
альтернативный текст http://i44.tinypic.com/287dufp.jpg
Но я не могу найти вариант изменения шрифта / размера.
Примечание: Хотя лента может учитывать настройки DPI пользователя, это не это вопрос.
Работает в Outlook 2010
Может быть полезно отметить, что лента Outlook 2010 соответствует настройкам шрифта пользователя (меню). Вы можете получить шрифт меню пользователя, позвонив по номеру [SystemParametersInfo][6]:
SystemParametersInfo(SPI_GETNONCLIENTMETRICS, sizeof(NONCLIENTMETRICS), &ncm, 0));
ncm.lfMenuFont <---
9pt Outlook 2010
12pt Outlook 2010
12pt Outlook 2010
Заметили, что размер ленты увеличивается с размером шрифта? (Что на этих скриншотах с измененным размером означает, что лента не становится воспринимаемой меньше.)
Есть две возможности:
- Outlook 2010 знает, как настроить размер шрифта в Windows Ribbon Framework
- Outlook 2010 не использует Windows Ribbon Framework
Windows 7 Paint не работает
Также полезно отметить, что Windows Paint в Windows 7 не учитывает настройки шрифта пользователя. Это наводит меня на мысль, что он (mspaint) действительно использует Windows Ribbon Framework и что Windows Ribbon Framework не поддерживает установку размера шрифта. Если вы на самом деле пытались быть полезными и читали до конца, вы поймете, что это правильный ответ: это невозможно. Поэтому, если вы хотите получить 300 повторений, добавьте это в качестве ответа.
Редактировать: Перекрестная публикация в Microsoft
Ключевые слова: Windows Ribbon Framework, изменение размера шрифта, UIRibbon, лицо шрифта, ленточный интерфейс, живописный интерфейс, сценическая лента, свободная лента, свободный интерфейс, изменение шрифта ленты windows, uiribbon.h
У Microsoft есть несколько реализаций ленты:
MS Paint не учитывает предпочтения шрифта меню
Вот снимок экрана, показывающий мою настроенную Windows 7 Шрифт меню Значение 12pt, с видимым msPaint и Outlook 2010 для сравнения.
Пример кода
type
TfrmRibbonTest = class(TForm, IUIApplication)
...
private
Fframework: IUIFramework;
{IUIApplication}
function OnViewChanged(viewId: SYSUINT; typeID: UI_VIEWTYPE; const view: IUnknown; verb: UI_VIEWVERB; uReasonCode: SYSINT): HResult; stdcall;
function OnCreateUICommand(commandId: SYSUINT; typeID: UI_COMMANDTYPE; out commandHandler: IUICommandHandler): HResult; stdcall;
function OnDestroyUICommand(commandId: SYSUINT; typeID: UI_COMMANDTYPE; const commandHandler: IUICommandHandler): HResult; stdcall;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
hr: HRESULT;
begin
Fframework := CreateComObject(CLASS_UIRibbonFramework) as IUIFramework;
hr := Fframework.Initialize(Self.Handle, Self); //we implement IUIApplication
OleCheck(hr);
hr := Fframework.LoadUI(hInstance, 'APPLICATION_RIBBON');
OleCheck(hr);
end;
function TfrmRibbonTest.OnCreateUICommand(commandId: SYSUINT; typeID: UI_COMMANDTYPE; out commandHandler: IUICommandHandler): HResult;
begin
Result := S_OK;
end;
function TfrmRibbonTest.OnDestroyUICommand(commandId: SYSUINT; typeID: UI_COMMANDTYPE;
const commandHandler: IUICommandHandler): HResult;
begin
Result := S_OK;
end;
function TfrmRibbonTest.OnViewChanged(viewId: SYSUINT; typeID: UI_VIEWTYPE; const view: IUnknown; verb: UI_VIEWVERB; uReasonCode: SYSINT): HResult;
begin
Result := S_OK;
end;
Windows Ribbon Framework 14pt! = 14pt
Вот снимок экрана со шрифтом Windows Menu , настроенным для 14pt (на машине с разрешением 96 точек на дюйм). Outlook 2010 14pt, Photoshop CS3 14pt. Лента ... меньше.
Смотри также