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

[B_N]

Да зачем такие сложности. У Edit-контролов есть сообщение EM_POSFROMCHAR, видимо и в VCL оно где-то "запрятано", если нет, так через SendMessage, остается аккуратно переделать OnDraw (или OnPaint?) определять, с какого места какую часть текста выводить и соответственно менять цвета. И выводить с TabbedTextOut, а не TextOut. Ну и, само собой, где-то хранить разметку этих скобок.

[Stilet]

Ну насчет перересовки это конечно проще получится.

[Sibedir]

А, да я подумал, что человеку именно распечатать надо было разными цветами. А при отображении текста на компоненте действительно лучше переопределить соответствующий метод.

[Air]

Вот код для отправки на печать, вроде работает.

Uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  r: TRect;
  i: Integer;
  Printer:TPrinter;
begin
Printer:=TPrinter.Create;
  with Printer do
    begin
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
      BeginDoc;
      Canvas.Brush.Style := bsClear;
      for i := 0 to Memo1.Lines.Count do
       Canvas.TextOut(200,200 + (i *
                   Canvas.TextHeight(Memo1.Lines.Strings[i])),
                   Memo1.Lines.Strings[i]);

      Canvas.Brush.Color := clBlack;
      Canvas.FrameRect(r);
      EndDoc;
    end;
end;

[aesoem]

у меня проблема, если я регистрирую расширение файла тхт под свою программу щёлкаю на блокнот открывается моя программа, но текста там нет!!!

[Air]

Сделай так при старте.

If (ParamCount > 0) and (FileExists(ParamStr(1))) then
memo2.Lines.LoadFromFile(ParamStr(1));

[Air]

Ещё совет, для своего редактора, сделай отдельное расширение и иконку другую.

[aesoem]

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

Сделай так при старте.

If (ParamCount > 0) and (FileExists(ParamStr(1))) then
memo2.Lines.LoadFromFile(ParamStr(1));

Спасибо большое, работает. неподскажите ещё как сделать в реестре чтоб при открытии txt файлов открывалась моя прога?

[Air]

Подскажу.

В реестре, открой раздел
HKEY_CLASSES_ROOT\txtfile
там будет раздел command
[HKEY_CLASSES_ROOT\txtfile\shell\ope n\command]
Open - Открыть.
print - Печать и т.д.

В command, в значении "по умолчанию" прописана строчка к notepad.exe
"%SystemRoot%\system32\NOTEPAD. EXE %1"
перепиши его на свою прогу.
типа:
C:\проага\New_Note_Pad.exe %1
Но не забудь сделать резервную копию раздела "txtfile"

А лучше создай своё расширение.

[prostoCHEL]

Народ помогите пожалуйста с исходником текстового редактора, нужен для курсовой работы, сдавать через 4 ДНЯ! Тема называется "Текстовый редактор dos", что означет dos(чтобы внешне был похож)