FontComboBox

[ScreN]

Здравствуйте.
Подскажите мне как можно изменить текст в Memo, с помощью компонента FontComboBox...
Можно даже и без выделения текста.. просто выбираешь стиль шрифта и он меняется в Memo.
Или это только в RichEdit можно осуществить?
Заранее спасибо!

[Terran]

Я у себя компонента FontComboBox не нашёл, поэтому сделал со стандартным ComboBox. Изменять стиль шрифта можно так:

Procedure TForm1.FormCreate(Sender: TObject);
Begin
ComboBox1.Items:=Screen.Fonts;
ComboBox1.ItemIndex:=0;
End;
Procedure TForm1.ComboBox1Click(Sender: TObject);
Begin
Memo1.Font.Name:=ComboBox1.Text;
End;

[Alter]

Если AlphaControl, то:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sComboBox, sFontCtrls;

type
  TForm1 = class(TForm)
    sFontComboBox1: TsFontComboBox;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure sFontComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 sFontComboBox1.ItemIndex := sFontComboBox1.IndexOf(Memo1.Font.Name);
end;

procedure TForm1.sFontComboBox1Change(Sender: TObject);
begin
 Memo1.Font.Name := sFontComboBox1.Text;
end;

end.

[ScreN]

AlphaControl
Спасибо.
Помогло.

[ScreN]

А как сделать поддержку выделение теста в Memo?
Потому что если я выделю определенный участок текста, и нажму на sFontComboBox . То выделение текста в Memo пропадает

[Роман Радер]

Сообщение от ScreN

А как сделать поддержку выделение теста в Memo?
Потому что если я выделю определенный участок текста, и нажму на sFontComboBox . То выделение текста в Memo пропадает

Если я правильно понял, то никак, разве что переписывать OwnerDraw. Для этого используй RichEdit

[Jeni]

Сообщение от ScreN

А как сделать поддержку выделение теста в Memo?
Потому что если я выделю определенный участок текста, и нажму на sFontComboBox . То выделение текста в Memo пропадает

Нужно установить для Memo свойство HideSelection в False и тогда выделение текста не будет пропадать при передаче фокуса.

[ScreN]

Значит никак не изменить стиль шрифта только у выделенной половине текста.. Печально конечно.
Подскажите мне еще по поводу sColorBox.. Как изменить цвет текста... точно так же как и в sFontComboBox ?
Заранее спасибо!

[Alter]

Сообщение от ScreN

Значит никак не изменить стиль шрифта только у выделенной половине текста.. Печально конечно.
Подскажите мне еще по поводу sColorBox.. Как изменить цвет текста... точно так же как и в sFontComboBox ?
Заранее спасибо!

Используйте RichEdit вместо Memo.