Текставой редактор

[aesoem]

Привет, помогите написать текставой редактор на основе RichEdit1.
Примерно такой каторы находится в папке Demos с делфи...

1. Почему при изменении шрифта\цвета выделенного участка текста меняется весь текст!!!
2. Как сделать возможность изменять шрифт\размер шрифта\цвет шрифта\не входя в эти диалоги, как в ворде!
Тоесть к примеру список шрифтов разместить в combobox1!

[Stilet]

Почему при изменении шрифта\цвета выделенного участка текста меняется весь текст!!!

Наверное потому что ты сам это прописал ))

Тоесть к примеру список шрифтов разместить в combobox1!

Вот размещение в ListBox

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Label1: TLabel;
    FontLabel: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure DrawItem(Control: TWinControl; index: Integer; Rect: TRect;
      State: TOwnerDrawState);
    procedure ListBox1MeasureItem(Control: TWinControl; index: Integer;
      var Height: Integer);
    procedure ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Listbox1.Items := Screen.Fonts;
end;

procedure TForm1.DrawItem(Control: TWinControl; index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with ListBox1.Canvas do
  begin
    FillRect(Rect);
    Font.name := ListBox1.Items[index];
    Font.Size := 0; // use font's preferred size
    TextOut(Rect.Left+1, Rect.Top+1, ListBox1.Items[index]);
  end;
end;

procedure TForm1.ListBox1MeasureItem(Control: TWinControl; index: Integer;
  var Height: Integer);
begin
  with ListBox1.Canvas do
  begin
    Font.name := Listbox1.Items[index];
    Font.Size := 0; // use font's preferred size
    Height := TextHeight('Wg') + 2; // measure ascenders and descenders
  end;
end;

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var tp:tpoint;
begin         tp.X:=x; tp.Y:=y; FontLabel.Font.Size:=36;
ListBox1.itemindex:=ListBox1.ItemAtPos(tp, true);
  FontLabel.Font.Name:=ListBox1.Items[ListBox1.ItemIndex];
  FontLabel.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;

end.

end.

Вот в стринггриде с отрисовкой:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormActivate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin

 StringGrid1.RowCount:=Screen.Fonts.Count+1;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
     
     if acol=0 then begin
      StringGrid1.Font.Size:=16;
      StringGrid1.Font.Name:=Screen.Fonts[arow];
      StringGrid1.Canvas.TextOut(rect.Left,rect.Top,StringGrid1.Font.Name);
     end;
  

end;

end.

Смекаеш о чем я?

[aesoem]

Наверное потому что ты сам это прописал ))

а что писать

так я зделал вот так - у меня получилось что список только добовляется а как его использовать?

scombobox1.Items := Screen.Fonts;

RichEdit1.Font.Size:=Strtointdef(sSpinEdit1.Text,1);

этим я меняю размер
[/QUOTE]RichEdit1.Font.Color:= sColorSelect1.ColorValue;[/QUOTE]
этим цвет , а сам тип шрифта -стиль как сменить?

[aesoem]

[QUOTE=aesoem;89052]а что писать

так я зделал вот так - у меня получилось что список только добовляется а как его использовать?

RichEdit1.Font.Size:=Strtointdef(sSpinEdit1.Text,1);

этим я меняю размер

RichEdit1.Font.Color:= sColorSelect1.ColorValue;

этим цвет , а сам тип шрифта -стиль как сменить?

[aesoem]

RichEdit1.Font.Name:=scombobox1.Tex t; ВО!
А как, сделать чтоб можно было писАть разными цветами

[Reaction]

Вот тебе пример как можно сделать.

А как, сделать чтоб можно было писАть разными цветами