Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];

Вниз

Как поменять шрифт отображения у 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.032 c
6-99228
xnick
2002-11-04 09:52
2002.12.30
Pipe


14-99323
kex86
2002-11-21 11:57
2002.12.30
Таракан


1-99085
19.12.2002
2002-12-19 17:50
2002.12.30
Изменение размера компонента


3-99003
Valeron
2002-12-09 10:11
2002.12.30
Проблема с D6 после редактирования *.tlb


1-99075
vladnt
2002-12-19 14:53
2002.12.30
TObjectList





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский