Комрады, че-та лыжы не едут var tmpFont: TFont; begin tmpFont:=

TFont.Create;
try
case rgFontColor.ItemIndex of
0: tmpFont.Color:= clWindowText;
1: tmpFont.Color:= clRed;
2: tmpFont.Color:= clLime;
3: tmpFont.Color:= clFuchsia;
else
tmpFont.Color:= clBlue;
end;

Self.Font.Assign(tmpFont);
// Screen.MenuFont.Assign(tmpFont);
// Screen.IconFont.Assign(tmpFont);
// Screen.CaptionFont.Assign(tmpFont);
// Screen.HintFont.Assign(tmpFont);
// Screen.MessageFont.Assign(tmpFont);
// Application.DefaultFont.Assign(tmpFont);
finally
tmpFont.Free;
end;
Закомментированный код вообще никак на гуй не влияет. ЧЯДНТ?

https://i.imgur.com/GJtOUxK.mp4

по логике, все эти пропертя должны быть RO

Стикер

ты про проперти экрана? А кто рисует цвета у меню, чекбокса? Явно TStalyManager не применяется

Винда :)

Сань, вопрос для меня новый. Хотел разобраться

Если ты хочешь изменить отрисовку нативных контролов то надо подменять их оконную процеуру, ибо выставление цвета шрифта идет именно там и есесно она ничего не знает о дельфевых шрифтах и что ты их там поменял

но сам факт возможности подмены смущает (новичков) )))

ну сам факт того что можно сделать вот так никого вроде не смцущает, но никто так не делает :) Screen.MenuFont.Free;

тогда получается, что свойство ParentColor у некоторых контролов фейковое :)

А как оно к цвету шрифта то вообще относится? Это свойство отвечает чей цвет бэкграунда будем юзать

все свойства работают (только) внутри твоего приложения. контролы перехватывают виндовые процедуры и подставляют цвета, шрифты и прочее

вру, я про ParentFont хотел сказать :)

Это свойство отвечает за то что контрол использует шрифт парента и при его изменении будет выполнена соответствующая синхронизация

Короче, "что-то не так в датском королевстве", эту хотелку тоже придется выкинуть :)

ты хочешь заскиновать менюхи?

хотел нахаляву систему перенастроить? да, я тоже так хотел бы )))

вот я и задался вопросом, почему у метки или наследника TCustomEdit это свойство работает, а у TCustomButton - нет. Нафига тогда последним ParentFont?

потомуша у них предусмотрено изменение цвета, у кнопки нет - она рисуется целиком осью

Не, мне было интересно, можно было бы менять атрибуты шрифтов в приложении под индивидуальные хотелки? Например, юзер видит плохо, но не хочет масштабировать экран

Ну теперь и я знаю :)

нет, это так не работает. Только через подмену процедуры отрисовки. для того же меню там совсем не тривиальный код нужен если нужно все заскиновать https://rouse.drkb.ru/other.php#fwmenuex

для шкурок уж тогда использовать TStyleManager - проще

насколько я помню NC там не скинуется и в результате все это выглядит мальца вырвиглазно, хотя хз

в win11 можно отдельно масштабировать шрифт

Это кстати самая дурацкая идея какую только можно было придумать. Хорошо хоть они эту настройку поглубже запрятали, но некоторые до неё добираются и я хз как им обьяснить, что нельзя увеличить шрифт без пропорционального изменения размера и позиций всех контролов.

скинуется https://i.imgur.com/uQuCDPW_lq.mp4

скриншот покажи - у меня VPN не пахет чтобы посмотреть

Ed Doc
Да, че-та мувик глюканул вот тут самая нижняя кар...

И где тут скинованое меню?

вот со "штатными" темами из поставки дельфей https://i.imgur.com/nPU5QdE.mp4

У меня складывается мнение что меня категорически не понимают. Речь шла о NC области попап меню, покажи как менюза выглядит, а именно как её NC область рисуется (еси чо это рамка вокруг меню)

так ты пальцем покажи, я думал, тебе заголовок окна нужен. Так что ли? https://i.imgur.com/5Ltve2f.mp4

Во, теперь вижу - NC скинуется. Значит вот это и используй вместо своих шрифтов

От этого я тоже отказался, шрифты в базу в ричэдитах тоже скинированными пишутся. При смене темы шрифт "прячется" 😊