Форум программистов [Powered by Invision Power Board]

Код

{Рисуем Gutter}
procedure TChREdit.DrawGutter;
var
  MCanvas: TControlCanvas;
  nLine:String;
  lPt: TPoint;
  lPos,i: Integer;
Begin
  //Рисуем Gutter
  if FShowGutter then
  Begin
   MCanvas:=TControlCanvas.Create;
   Try
    MCanvas.Control:=Self;
    With MCanvas do
    Begin
     Brush.Color:=clBtnFace;
     Pen.Color:=clBlack;
     Rectangle(0, 0, FGutterWidth, Height);
     Font.Color:=clBlack;
     Font.Style:=[];
     Font.Name:='Courier New';
     Font.Size:=Self.Font.Size;
     Font.Pitch:=fpFixed;//для упрощения форматирования
     for I := GetFirstVisibleLine to GetLastVisibleLine do
      Begin
        //получаем номер символа в начале [текущей (-1)] i-й строки.
        lPos := SendMessage( Self.Handle, EM_LINEINDEX, i, 0 );
        if lPos<> -1 then
        //получаем координаты Left/Top символа с номером lPos
        SendMessage(Self.Handle, EM_POSFROMCHAR, Integer(@lPt), lPos );
        if i<10 then nLine:='  '+IntToStr(i)
        Else if (i>=10)and(i<100) then nLine:=' '+IntToStr(i)
        Else nLine:=IntToStr(i);
        TextOut(1{X},lPt.y{Y},nLine{число});
      End;
    end;
   finally
    MCanvas.Free;
   End;
  End;
End;


procedure TChREdit.WMPaint(var Message: TWMPaint);
Begin
  inherited;
  DrawGutter;
end;