Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Изменить шрифт всех контролов во время выполнения

Delphi , Графика и Игры , Шрифты

Изменить шрифт всех контролов во время выполнения

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
Question: 
  What is the most easy way to set a same font name to all controls 
  in project in run time? 

Answer: 
  By default all controls have ParentFont = true, so if you did not change 
  that  for specific controls you could just change the forms Font 
  property, e.g. in code attached to the Screen.OnActiveFormChange event. 
  If you cannot rely on all controls having Parentfont = true you would 
  have to loop over all controls on the form and set the font property for 
  each or at least for those that have ParentFont set to false. You can 
  use the routines from unit TypInfo for that, they allow you to access 
  published properties by name. The code, again sitting in a handler for 
  Screen.onActiveFormChange, would be something like this: 

  ModifyFontsFor( Screen.ActiveControl ); 

where 
}

 procedure ModifyFontsFor(ctrl: TWinControl);
   procedure ModifyFont(ctrl: TControl);
   var
     f: TFont;
   begin
     if IsPublishedProp(ctrl, 'Parentfont')
       and (GetOrdProp(ctrl, 'Parentfont') = Ord(false))
       and IsPublishedProp(ctrl, 'font')
       then begin
       f := TFont(GetObjectProp(ctrl, 'font', TFont));
       f.Name := 'Symbol';
     end;
   end;
 var
   i: Integer;
 begin
   ModifyFont(ctrl);
   for i := 0 to ctrl.controlcount - 1 do
     if ctrl.controls[i] is Twincontrol then
       ModifyFontsfor(TWincontrol(ctrl.controls[i]))
     else
       Modifyfont(ctrl.controls[i]);
 end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
   Modifyfontsfor(self);
 end;

 // Remember to add TypInfo to your uses clause. 

Статья Изменить шрифт всех контролов во время выполнения раздела Графика и Игры Шрифты может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Шрифты ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
17.05.2021 02:50:28/0.0033271312713623/2