Как реализовать RichMemo c графическими указателями в начале строки?

[besserebrenik]

Попытался максимально в названии темы объяснить проблему.. Не уверен, что получилось

Мне нужно по учебе сделать 1 в 1 форму как Editor Properties в Delfi 7..
В привиденном ниже рисунке розовым обведено то место над которым я замялся. Не знаю как это сделать

[Stilet]

Ну вообще-то тут два контрола - Сам "Мемо" ипанелька слева, на канву которой отрисовывается в нужных координатах рисунок.
Вот и ту так сделай.

[Kotofff]

Вот и ту так сделай.

ИМХО
И так будет немного проще чем морочиться с отступом в самом RichEdit и потом отображением картинок там же ...

[soleil@mmc]

в принципе, есть удобные компоненты от SynEdit
поддерживает кучу форматов, регулярные выражения

[CahekG]

Можно свой класс на основе TRichEdit сделать.
В принципе под желаемый еще надо его доделать, но если не лень, то можно всё (с картинки) легко организовать.
Да и глюки с текстом болшим чем окно имеются. (при определении номера строки, она может быть отображена частично, а я использовал полную выстоту строки. время нет доработать)
Для начала я накидал код:

unit MyRichEdit;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, ComCtrls,Messages,Windows,Graphics;

type
  TMyRichEdit = class(TRichEdit)
  private
    { Private declarations }
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
    procedure WMSize(var Message: TWMSize); message WM_SIZE;
    constructor Create(AOwner: TComponent);override;
  protected
    { Protected declarations }
    MarkLn:string;
  public
    { Public declarations }
  published
    { Published declarations }
    procedure MarkLine(Line:integer);
    procedure UnMarkLine(Line:integer);
    procedure UnMarkAll;

  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMyRichEdit]);
end;

constructor TMyRichEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  MarkLn:='';// тут храним маркеры строк которые надо помечать (символом #)
           end;


// процедура вкл. пометки линии
    procedure TMyRichEdit.MarkLine(Line:integer);
    begin
     if Line<0 then exit;
     while Length(markLn)<=(Line+1) do markLn:=markLn+' ';
     markLn[Line+1]:='#';
     Invalidate;
    end;

// процедура откл. пометки линии
    procedure TMyRichEdit.UnMarkLine(Line:integer);
    begin
     if (Line<0) or (Length(markLn)<(Line+1)) then exit;
     markLn[Line+1]:=' ';
     Invalidate;
    end;


    procedure TMyRichEdit.UnMarkAll;
    begin
      markLn:='';
      Invalidate;
    end;

//я на галазок (без констант) взял 24 пиксела 

procedure TMyRichEdit.WMSize(var Message: TWMSize);
var
  R: TRect;
begin
    inherited;
      GetWindowRect(Handle, R);
      OffsetRect(R, -R.Left+1, -R.Top+1);
      r.Left:=r.Left+24;
      Perform(Messages.em_SetRect, 0, Integer(@r));
end;

// дорисовываем что нам надо
procedure TMyRichEdit.WMPaint(var Message: TWMPaint);
var
  DC: HDC;
  R1,R: TRect;
  Brush:Hbrush;
  P:Tpoint;
  i,LineIndex,charIndex:integer;
  t:Tbitmap;
  TM : TTextMetric;
// получаем номер строки (для strings[]) по координатам p
function getLine(p:TPoint):integer;
begin
 getLine:=-1;
 charIndex := Perform(Messages.EM_CHARFROMPOS, 0, Integer(@p));
 if charIndex > 0 then getLine  := Perform(em_LineFromChar, charIndex,0);
end;

begin

    { Get window DC that is clipped to the non-client area }

    inherited;
    DC := GetDCEx(Handle, 0, DCX_WINDOW or DCX_CACHE or DCX_CLIPSIBLINGS);
    try
      GetWindowRect(Handle, R);
      OffsetRect(R, -R.Left+1, -R.Top+1);
     // получаем Rect области с тестом
      with R do
      begin

        // визуально отделяем наш столбец
        MoveToEx(DC,r.Left+22 , r.Top+1,@P);
        LineTo(DC,r.Left+22 , r.Top+1+Height-2);
      // пребираем линии попиксельно 
      i:=r.Top+1;
      WHILE  i<=r.Top+1+Height-2 do
         begin
          p.X:=r.Left+30;p.y:=i;
           LineIndex:=getLine(p);
            if LineIndex>=0 then
             begin
              if Lines.Count>LineIndex then
                if length(MarkLn)>LineIndex+1 then
                 begin
// мы нашли какой строке принадлежит эта координата,
// проверяем на наличие маркера
                  if MarkLn[LineIndex+1]='#' then
                   begin
// перебираем координуту y до следующей строки
                    WHILE  (i<=r.Top+1+Height-2) and (LineIndex=getLine(Point(p.X,i))) do inc(i);
                    r1:=Rect(r.Left+4,p.y,r.Left+18,i);
                    Brush := CreateSolidBrush(ColorToRGB(clRed));
// рисуем что-то похожее на красный маркер
                    FillRect (dc,rect(r1.Left+2,r1.Top,r1.Right-2,r1.Bottom), Brush);
                    FillRect (dc,rect(r1.Left+1,r1.Top+1,r1.Right-1,r1.Bottom-1),Brush);
                    FillRect (dc,rect(r1.Left,r1.Top+2,r1.Right,r1.Bottom-2),Brush);

                    Perform(Messages.em_GetRect, 0, Integer(@r1));
                    GetTextMetrics(DC, TM);

                    t := TBitMap.Create;
                    t.Width :=r1.Right-r1.Left;
                    t.Height:=tm.tmHeight;// это высота строки текста

// инверсией рисуем выделение всей строки
                    FillRect (t.Canvas.Handle,Rect(0,0,r1.Right-r1.Left,tm.tmHeight),Brush);
                    BitBlt(dc,r1.Left,p.Y,r1.Right-r1.Left,tm.tmHeight,t.Canvas.Handle,0,0,PATINVERT);
                      t.Free;
                   end;
                 end;

           end;
          inc(i);
         end;
      end;
    finally
      ReleaseDC(Handle, DC);
    end;


end;
end.

[besserebrenik]

спасибо за ответы)