PopupMenu и спец. фонты

← →
happyboy © (2003-02-11 18:31) [0]

Люди!
В проге должны использоваться национальные (армянские) фонты.
Всё нормально, только это нехорошее PopupMenu фонты не принемает,остальные компоненты ведут себя как паиньки.
Расакладка клавиатуры армянская, фонт формы и всех других компанентов армянский, даже машину перезагружал-не помогло.
С Delphi4,5 таких глюков не было.

← →
happyboy © (2003-02-12 11:41) [1]

Лечится это так:Desktop/Properties/Appearance/Sceme создаёш новый Scheme и фонт везде ставиш армянский, минимум неудобств (русские меню в виде крякозябров).

← →
Игорь Шевченко © (2003-02-12 11:48) [2]

Лечится это
1) установкой OwnerDraw у меню и рисованием текста любым шрифтом, в том числе и армянским.
2) Вызовом SystemParametersInfo (SPI_SETNONCLIENTMETRICS, ...)
С указанием нужного шрифта меню (lfMenuFont) в структуре NonClientMetrics.

Второй способ действует на все приложения, первый - только на твое

Установка OwnerDrow непомогает.
Если я правильно понял:
SystemParametersInfo(SPI_SETNONCLIENTMETRICS,sizeof(NONCLIENTMETRICS),PMyStruct,SPIF_UPDATEINIFILE);
PMyStruct^.lfMenuFont:=? (Как указать шрифт ?)
Что из себя предтавляет LOGFONT и как я могу с помощью этой структуру указать на уже сущестфующий шрифт?

З.Ы. Я правильно понял:этот метод изменит шрифт меню во всех приложениях и останется в системе после перезагрузки?

PopupMenu и спец. фонты Найти похожие ветки