|
#1
|
|||
|
|||
Эдит RichEdit
Всем привет. Помогите пожалуйста. Есть RichEdit и ComboBox1 и ComboBox2 (имя шрифта и его размер).
Набираю текст в ричэдит форматирую как нужно и все работает, но прошу подсказать как можно по клику на форматируемый текст отобразить в комбобоксах имя шрифта и его размер. Мой код ниже Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls; type TForm1 = class(TForm) ComboBox1: TComboBox; RichEdit1: TRichEdit; ComboBox2: TComboBox; procedure FormCreate(Sender: TObject); procedure ComboBox1Select(Sender: TObject); procedure ComboBox2Select(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin ComboBox1.Items.Assign(Screen.Fonts); end; procedure TForm1.ComboBox1Select(Sender: TObject); begin RichEdit1.SelAttributes.Name := ComboBox1.Items[ComboBox1.ItemIndex]; RichEdit1.HideSelection:=true; RichEdit1.HideSelection:=false; end; procedure TForm1.ComboBox2Select(Sender: TObject); begin RichEdit1.SelAttributes.Size :=strtoint( ComboBox2.Items[ComboBox2.ItemIndex]); RichEdit1.HideSelection:=true; RichEdit1.HideSelection:=false; end; end. |
#2
|
||||
|
||||
Пример "c:\Program Files (x86)\Borland\Delphi7\Demos\RichEdit" говорить нужно использовать OnSelectionChange.
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
crazyman (28.05.2017)
|
#3
|
|||
|
|||
Цитата:
|
#4
|
|||
|
|||
Цитата:
|