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

[Snake_ua]

Создаю текстовый редактор (ему далеко до совершенства). Но натолкнулся на несколько проблемм.
Помогите создать код сохранения (Save a нe Save as...)
В строке состояния отображалась позиция курсора
Реализовать печать

[Air]

К твоему коду.

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
StatusBar1.Panels.Items[0].Text:='X='+inttostr(x);
StatusBar1.Panels.Items[1].Text:='Y='+inttostr(Y);
end;

А Save и Save As чем не нравится?

[Snake_ua]

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

[Air]

позиция курсора в теме "Позиция курсора в TMemo"
http://www.programmersforum.ru/showt...5724#post75724

[Air]

Для печати смотри здесь
http://www.programmersforum.ru/showt...E5%F7%E0%F2%FC

[Snake_ua]

Огромное спасибо!!

[Snake_ua]

Возник новый вопрос. Как сделать так, что-бы текст между скобками (), кавычками "" выделялся другим цветом? Совершенно нет идей по этому поводу

[B_N]

Ну поскольку все делается в TMemo, самая простая идея - отнять у него "рисование" и делать это самому.

[Stilet]

Как сделать так, что-бы текст между скобками (), кавычками "" выделялся другим цветом? Совершенно нет идей по этому поводу

Когда-то знакомая показала пример подсветки части текста, найденной по релевантности с введенной строкой:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    RichEdit1: TRichEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var      ts:TStringList;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var j,k,e,t,l, lpr:integer; rs,s:string;
begin
 for k:=0 to Memo1.Lines.Count-1 do begin
  ts.Clear;
  ts.DelimitedText:=Memo1.Lines[k];lpr:=0;
  //**************************************************************************
     //********* FOR ******************
     for j :=0  to RichEdit1.Lines.Count-1  do
     begin
       rs:=RichEdit1.Lines[j];
       for e:=1 to length(rs)-length(Memo1.Lines[k])+1 do begin
         s:=AnsiLowerCase(copy(rs,e,length(Memo1.Lines[k]))); t:=0;
         //********* FOR ******************
         for l :=0  to ts.Count-1  do
         begin
           if pos(AnsiLowerCase(ts[l]),s)<>0 then inc(t);
         end;
         //******* END FOR ****************{}
         if t=ts.Count then begin
          //********** WITH **********
         { Insert('0',rs,e);
          RichEdit1.Lines[j]:=rs;{}
         with richedit1 do
         begin
          selstart:=e+lpr-1;
          sellength:=length(Memo1.Lines[k])+1;
          selattributes.color:=clBlue;
         end;
         end;
          //********** END WITH ****** {}
       end;
         lpr:=lpr+length(RichEdit1.Lines[j])+2;
     end;
     //******* END FOR ****************{}
  //**************************************************************************
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
with richedit1 do
         begin
          selstart:=length(RichEdit1.Lines[0]);
          sellength:=0;
          selattributes.color:=clBlue;
         end;
ts:=TStringList.Create;
ts.Delimiter:=' ';
end;

end.

В RichEdit вписывается текст
в Мемо в каждую строку пишутся слова или фразы, разделенные пробелом, которые нужно подсветить в тексте, причем порядок слов может быть любой главное чтоб они были рядом в РичЕдите.

Попробуй, может намыслиш правильную сторону темной силы.

[Sibedir]

О, я тож кое-что накрапал

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
  x, y: Integer;
  fS: Integer;
  fK: Boolean;
  s: String;
  c: Char;

  procedure NewLine;
  begin
    y := y + Printer.Canvas.TextHeight (s);
    if y > Printer.PageHeight then begin
      Printer.NewPage;
      y := Printer.Canvas.TextHeight (s);
    end;
  end;

  procedure NewChar (c: Char);
  begin
    if (x + Printer.Canvas.TextWidth (c)) > Printer.PageWidth then begin
      NewLine;
      x := 0;
    end;
    Printer.Canvas.TextOut (x, y, c);
    x := x + Printer.Canvas.TextWidth (c);
  end;

begin
  if PrintDialog1.Execute then begin
    fS := 0;
    fK := False;
    y := 0;
    c := #0;
    Printer.BeginDoc;
    for i := 0 to Memo1.Lines.Count - 1 do
      with Printer.Canvas do begin
        x := 0;
        s := Memo1.Lines [i];
        NewLine;
        for j := 1 to Length (s) do begin
          c := s[j];
          if c = '(' then Inc(fS);
          if c = '"' then fK := not fK;
          Font.Color := clBlack;
          if fS <> 0 then Font.Color := clRed;
          if fK then Font.Color := clBlue;
          if c = '"' then Font.Color := clBlue;
          NewChar (c);
          if (c = ')') and (fS > 0) then Dec(fS);
        end;
      end;
    Printer.EndDoc;
  end;
end;