Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Edit 
:(
    Опции темы
Clasteruga
Дата 29.11.2008, 13:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 24.9.2008

Репутация: нет
Всего: 1
Ребята подскажите как сделать что бы в Edit отображался сразу тот размер шрифта текста который вставлен в RichEdit.
а также Шрифт


M
Alexeis		Модератор: Название темы должно отражать ее суть!


Это сообщение отредактировал(а) Alexeis - 7.12.2008, 21:07
PM MAIL   Вверх
Christoph
Дата 29.11.2008, 15:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11
Код

procedure TForm1.RichEdit1Exit(Sender: TObject);
begin
Edit1.Font.Size:=RichEdit1.Font.Size;
Edit1.Font.Name:=RichEdit1.Font.Name;
end;



--------------------
user posted image
PM MAIL ICQ   Вверх
Clasteruga
Дата 29.11.2008, 15:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 24.9.2008

Репутация: нет
Всего: 1
Цитата(Christoph @ 29.11.2008,  15:27)
Код

procedure TForm1.RichEdit1Exit(Sender: TObject);
begin
Edit1.Font.Size:=RichEdit1.Font.Size;
Edit1.Font.Name:=RichEdit1.Font.Name;
end;

Странно но не работает!
PM MAIL   Вверх
SneG0K
Дата 29.11.2008, 15:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: 3
Всего: 54
Clasteruga, покажи весь свой код!
PM WWW Skype   Вверх
Clasteruga
Дата 29.11.2008, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 24.9.2008

Репутация: нет
Всего: 1
Для combobox:

Код
procedure TMainForm.FontChange(Sender: TObject);
begin
   RichEdit1.Font.Name := Font.Items[Font.ItemIndex];
end;

procedure TMainForm.FontDropDown(Sender: TObject);
begin
  Font.Items:=Screen.Fonts
end;[


Для Edit:

Код
procedure TMainForm.FSizeChange(Sender: TObject);
begin
RichEdit1.Font.Size:=StrToInt(FSize.Text);
end;


Это сообщение отредактировал(а) Clasteruga - 29.11.2008, 15:47
PM MAIL   Вверх
Christoph
Дата 29.11.2008, 15:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11
Так тебе надо было для едита и для ричедита...не понимаю что надо!


--------------------
user posted image
PM MAIL ICQ   Вверх
Clasteruga
Дата 29.11.2008, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 24.9.2008

Репутация: нет
Всего: 1
Вообщем мне надо так: К примеру я закрузил текст в RichEdit и надо что бы в Edit отобразился размер шрифта вставленного текста и в Combobox отобразился Тип Шрифта
PM MAIL   Вверх
Christoph
Дата 29.11.2008, 16:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11
Код

procedure TForm1.RichEdit1Exit(Sender: TObject);
begin
Edit1.Text:=IntToStr(RichEdit1.Font.Size);
ComboBox1.Text:=RichEdit1.Font.Name;
end;



--------------------
user posted image
PM MAIL ICQ   Вверх
Bose
Дата 29.11.2008, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 8
Всего: 51
Clasteruga, в RichEdit текст может быть отформатирован несколькими шрифтами с разными размерами. Так что брать параметры наверное надо у выделенного фрагмента текста.


--------------------
Лучшее о Delphi за 2013 год. Подборка ссылок.
PM MAIL WWW Skype   Вверх
Christoph
Дата 29.11.2008, 18:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11
Bose, что просили то и написали  smile 


--------------------
user posted image
PM MAIL ICQ   Вверх
Clasteruga
Дата 29.11.2008, 18:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 24.9.2008

Репутация: нет
Всего: 1
Цитата(Bose @ 29.11.2008,  18:34)
Clasteruga, в RichEdit текст может быть отформатирован несколькими шрифтами с разными размерами. Так что брать параметры наверное надо у выделенного фрагмента текста.

О точно, извините за неправильную постановку вопрос!!!!
мне надо именно как вы сказали
PM MAIL   Вверх
Christoph
Дата 30.11.2008, 00:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11
Держи... Событие можешь выбрать сам.

Код

procedure TForm1.RichEdit1Exit(Sender: TObject);
var
  SlText,FullText:string;
begin
  SlText:=RichEdit1.SelText;
  FullText:=RichEdit1.Text;
  RichEdit1.Text:=SlText;
  Edit1.Text:=IntToStr(RichEdit1.Font.Size);
  ComboBox1.Items.Add(RichEdit1.Font.Name);
  RichEdit1.Text:=FullText;
end;




Это сообщение отредактировал(а) Christoph - 30.11.2008, 00:32


--------------------
user posted image
PM MAIL ICQ   Вверх
Bose
Дата 30.11.2008, 01:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 8
Всего: 51
Christoph, что это?  smile 


Clasteruga, параметры текста под курсором в Rich Edit, можно легко узнать через свойство SelAttributes.

Размер шрифта: RichEdit1.SelAttributes..Size
Тип шрифта: RichEdit1.SelAttributes.Name
ну и т.д.

п.с. это моё тысячное сообщение, yep! smile 

Это сообщение отредактировал(а) Bose - 30.11.2008, 01:35


--------------------
Лучшее о Delphi за 2013 год. Подборка ссылок.
PM MAIL WWW Skype   Вверх
Christoph
Дата 30.11.2008, 13:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11
ой я забыл про SelAttributes,я запоминал текст,и запоминал выделенный текст,а потом выделенный текст вставлял полностью в РичЕдит  smile 


--------------------
user posted image
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0525 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.