Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

Как поменять шрифт отображения у TMainMenu?   Найти похожие ветки 

 
Dinara   (2002-12-17 18:39) [0]

сабж. Еще более интересует возможность одним махом сменить шрифт на всех контролах формы.


 
Skier ©   (2002-12-17 19:07) [1]

>Dinara


> Еще более интересует возможность одним махом сменить шрифт
> на всех контролах формы.


Но не для всех контролов эта штука будет работать...
(Для MainMenu не будет.)

procedure ChangeFont(AOwner : TComponent);
var
ii : Integer;
APropInfo : PPropInfo;
AFont : TFont;
begin
if AOwner = nil then Exit;
for ii := 0 to AOwner.ComponentCount - 1 do begin
APropInfo := GetPropInfo(AOwner.Components[ii], "Font");
if APropInfo <> nil then begin
AFont := TFont(GetOrdProp(AOwner.Components[ii], APropInfo));
if AFont <> nil then begin
AFont.Color := clRed; //..or your own font settings...
end; //if
end; //if
end; //for
end; //ChangeFont


 
Marcus   (2002-12-17 19:15) [2]

Если у контролов формы свойство ParentFont = true, то при смене шрифта формы он сменится и у них


 
Dinara   (2002-12-18 23:18) [3]

Спасибо за помощь, я примерно этого и ожидала :)
В общем, сама рисовать не умею, но буду пользоваться работой тех, кто умеет. То есть, продвинутыми тулбарами сторонних разработчиков.



Страницы: 1 вся ветка

Текущий архив: 2002.12.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
4-99404
Yuri Btr
2002-11-12 15:54
2002.12.30
LowLevelKeyboardProc


3-99011
Дмитрий К.К.
2002-12-10 17:02
2002.12.30
Paradox vs Interbase (файл-сервер против клиент-сервера)


1-99171
Rouse_
2002-12-15 23:32
2002.12.30
Перехват WM_LBUTTONDOWN в потомке THintWindow


14-99313
Интересующийся
2002-12-08 10:30
2002.12.30
Регистрация в Москве


14-99297
Best Sniper
2002-12-08 19:15
2002.12.30
Установил Oper у 6.05.......