Как использовать компонент FontDialog - Компоненты Delphi

SASFM · 03.04.2015, 08:14

Всем привет. Скажите пожалуйста как правильно использовать компоненту FontDialog? Я сделал вот так:

Код:

procedure TForm1.BitBtn12Click(Sender: TObject);
begin
  if FontDialog1.Execute then
    begin
        RichEdit1.SelAttributes.Name:=FontDialog1.Font.Name;
        RichEdit1.SelAttributes.Color:=FontDialog1.Font.Color;
        RichEdit1.SelAttributes.Size:=FontDialog1.Font.Size;
        RichEdit1.SelAttributes.Style:=FontDialog1.Font.Style;
    end;
end;

Но как та он не реагирует при первом нажатии на кнопке. Шрифты меняются только при повторном обращение к компоненту FontDialog, т.е при повторном нажатии на кнопку. Может я где то пропустил ошибку

Stilet · 03.04.2015, 10:36

Код вроде верный. Проверить нет возможности, но все должно работать, если ты в Ричэдите конечно выделение сделал.
Попробуй поставь для Ричэдита HideSelection:=true чтоб выделение не скрывалось при смене фокуса.

Аватар · 03.04.2015, 12:01

Открой для себя TActionList и стандартные Action форматирования и диалогов для RichEdit. Там и программировать не нужно, только каждую кнопочку нацелить на нужный Action

SASFM · 03.04.2015, 16:17

Аватар, а можно по подробнее?

Аватар · 03.04.2015, 18:39

Ну на подробнее, сможешь - разберешься

min@y™ · 04.04.2015, 03:17

Цитата:

SelAttributes

Не путаешь с DefAttributes?

SASFM · 04.04.2015, 18:27

Цитата:

Сообщение от min@y™

Не путаешь с DefAttributes?

Нет, этого кода я скопировал, с программа. А для чего используется DefAttributes? Если можно с примером.

min@y™ · 04.04.2015, 18:46

Цитата:

А для чего используется DefAttributes?

ИМХО, это шрифт по умолчанию.
Пример для delphi 7 лежит здесь (у меня):
$(Delphi7)\Demos\RichEdit\richedit. dpr

SASFM · 04.04.2015, 20:14

Спасибо. А еще вопрос: Можно ли как нибудь перевести уже готовую для виндовс программу, на формат АРК? То есть делать так чтобы программа работал на андроид. Если да, то с помощью какой программа, и как? Заранее спасибо.

min@y™ · 05.04.2015, 07:17

Цитата:

Можно ли как нибудь перевести уже готовую для виндовс программу, на формат АРК?

нетЪ. этож linux

03.04.2015, 08:14	#1
SASFM Форумчанин Регистрация: 26.03.2015 Сообщений: 191	Как использовать компонент FontDialog Всем привет. Скажите пожалуйста как правильно использовать компоненту FontDialog? Я сделал вот так: Код: `procedure TForm1.BitBtn12Click(Sender: TObject); begin if FontDialog1.Execute then begin RichEdit1.SelAttributes.Name:=FontDialog1.Font.Name; RichEdit1.SelAttributes.Color:=FontDialog1.Font.Color; RichEdit1.SelAttributes.Size:=FontDialog1.Font.Size; RichEdit1.SelAttributes.Style:=FontDialog1.Font.Style; end; end;` Но как та он не реагирует при первом нажатии на кнопке. Шрифты меняются только при повторном обращение к компоненту FontDialog, т.е при повторном нажатии на кнопку. Может я где то пропустил ошибку Моя родина там, где мой компьютер Последний раз редактировалось Stilet; 03.04.2015 в 09:37.

03.04.2015, 10:36	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Код вроде верный. Проверить нет возможности, но все должно работать, если ты в Ричэдите конечно выделение сделал. Попробуй поставь для Ричэдита HideSelection:=true чтоб выделение не скрывалось при смене фокуса. I'm learning to live...

03.04.2015, 12:01	#3
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Открой для себя TActionList и стандартные Action форматирования и диалогов для RichEdit. Там и программировать не нужно, только каждую кнопочку нацелить на нужный Action Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

03.04.2015, 16:17	#4
SASFM Форумчанин Регистрация: 26.03.2015 Сообщений: 191	Аватар, а можно по подробнее? Моя родина там, где мой компьютер

04.04.2015, 20:14	#9
SASFM Форумчанин Регистрация: 26.03.2015 Сообщений: 191	Спасибо. А еще вопрос: Можно ли как нибудь перевести уже готовую для виндовс программу, на формат АРК? То есть делать так чтобы программа работал на андроид. Если да, то с помощью какой программа, и как? Заранее спасибо. Моя родина там, где мой компьютер

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как использовать компонент HotKey ?	Alter	Общие вопросы Delphi	14	07.04.2012 23:52
Какой компонент использовать??	{Shadowevil}	Компоненты Delphi	32	15.12.2011 10:13
Какой компонент использовать	Кинельски	Компоненты Delphi	5	23.06.2010 11:10
Как правильно использовать компонент TDBF	SadStar	Компоненты Delphi	0	27.03.2009 02:48
Какой компонент использовать?	XPAiN	БД в Delphi	3	05.05.2008 08:45