Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как поменять шрифт отображения у TMainMenu? [D6, Win2k]

Dinara © (2002-12-17 18:39:00)
сабж. Еще более интересует возможность одним махом сменить шрифт на всех контролах формы.

Dinara (2002-12-18 23:18:00) [1]
Спасибо за помощь, я примерно этого и ожидала :)
В общем, сама рисовать не умею, но буду пользоваться работой тех, кто умеет. То есть, продвинутыми тулбарами сторонних разработчиков.

Marcus (2002-12-17 19:15:00) [2]
Если у контролов формы свойство ParentFont = true, то при смене шрифта формы он сменится и у них

Skier (2002-12-17 19:07:00) [3]
>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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »