Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail



Ответ
 
Опции темы
Старый 29.05.2014, 11:26   #1
ALEXandr20333
Форумчанин
 
Регистрация: 12.02.2014
Сообщений: 77
Репутация: 2
По умолчанию Возвращение шрифта в программе по кмолчанию

В программе создал кнопку и на нее прописал события изменения шрифта в программе на все компаненты
пример
Код:

if FontDialog1.Execute then
     Form3.sEdit1.Font.Assign(FontDialog1.Font);
     Form3.sGroupBox1.Font.Assign(FontDialog1.Font);
     Form3.sDBMemo1.Font.Assign(FontDialog1.Font);
     Form3.sDBMemo2.Font.Assign(FontDialog1.Font);

и создал другую кнопку для возвращения шрифта что был установлен по умолчанию но не знаю как прописать события????? НЕ ПОДСКАЖИТЕ??
ALEXandr20333 вне форума   Ответить с цитированием
Старый 29.05.2014, 15:45   #2
ZuBy
Профессионал
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Адрес: Казахстан, Астана
Сообщений: 1,232
Репутация: 379
По умолчанию

Перед изменением сохрани Font в отдельную переменную и потом её скорми компонентам
__________________
бложик FMX Developer'a
ZuBy вне форума   Ответить с цитированием
Старый 02.06.2014, 09:14   #3
ALEXandr20333
Форумчанин
 
Регистрация: 12.02.2014
Сообщений: 77
Репутация: 2
По умолчанию

а по-падробней как это сделать
ALEXandr20333 вне форума   Ответить с цитированием
Старый 02.06.2014, 09:27   #4
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 16,936
Репутация: 5965
По умолчанию

Примерно так, при условии, что у всех контролов ParentFont=True
Код:

var lFont: TFont;

procedure TForm1.FormCreate(Sender: TObject);
begin
  lFont:=TFont.Create;
  lFont.Assign(Font);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  if FontDialog1.Execute then Font.Assign(FontDialog1.Font);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  Font.Assign(lFont);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  lFont.Free;
end;

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



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Возвращение указателя на структуру millepetrozza Помощь студентам 2 15.03.2013 20:34
возвращение символа С++ svkpro Помощь студентам 0 05.12.2012 23:43
Про возвращение значения... 2face2 Помощь студентам 15 25.01.2010 15:42
Возвращение стража.... Манжосов Денис :) Софт 0 18.09.2008 22:57




19:20.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru