{ KOL MCK } // Do not remove this line!
{$DEFINE KOL_MCK}
unit Unit1;

interface

{$IFDEF KOL_MCK}
uses Windows, Messages, KOL {$IF Defined(KOL_MCK)}{$ELSE}, mirror, Classes, Controls, mckCtrls, mckObjs, Graphics {$IFEND (place your units here->)};
{$ELSE}
{$I uses.inc}
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;
{$ENDIF}

type
 {$IF Defined(KOL_MCK)}
 {$I MCKfakeClasses.inc}
 {$IFDEF KOLCLASSES} {$I TForm1class.inc} {$ELSE OBJECTS} PForm1 = ^TForm1; {$ENDIF CLASSES/OBJECTS}
 {$IFDEF KOLCLASSES}{$I TForm1.inc}{$ELSE} TForm1 = object(TObj) {$ENDIF}
   Form: PControl;
 {$ELSE not_KOL_MCK}
 TForm1 = class(TForm)
 {$IFEND KOL_MCK}
   KOLProject1: TKOLProject;
   KOLForm1: TKOLForm;
   Memo1: TKOLMemo;
   procedure KOLForm1FormCreate(Sender: PObj);
   procedure SetEditRect;
   procedure Memo1Paint(Sender: PControl; DC: HDC);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;

{$IFDEF KOL_MCK}
procedure NewForm1( var Result: PForm1; AParent: PControl );
{$ENDIF}

implementation

{$IF Defined(KOL_MCK)}{$ELSE}{$R *.DFM}{$IFEND}

{$IFDEF KOL_MCK}
{$I Unit1_1.inc}
{$ENDIF}

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
 Form1.SetEditRect;
end;

procedure TForm1.SetEditRect;
var
 //H: HWND;
 Rect: TRect;
begin
 SendMessage( Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect));
 Rect.Left:= 20;
 SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect));
 Memo1.Update;
end;

procedure TForm1.Memo1Paint(Sender: PControl; DC: HDC);
var
 i,y,n:integer;
 t:string;
begin
 n:=Memo1.Perform(EM_GETFIRSTVISIBLELINE,0,0);
 y:=1;
 i:=0;
 while (y<Memo1.ClientHeight) do
   begin
     Memo1.Canvas.TextOut(1,y,Int2Str(1+i+n));
     y:=y+16;
     inc(i);
   end;
 Memo1.Invalidate;
end;

end.

Memo1.Canvas.TextOut(1,y,Int2Str(1+i+n));

{ KOL MCK } // Do not remove this line!
{$DEFINE KOL_MCK}
unit Unit1;

interface

{$IFDEF KOL_MCK}
uses Windows, Messages, KOL {$IF Defined(KOL_MCK)}{$ELSE}, mirror, Classes, Controls, mckCtrls, mckObjs, Graphics {$IFEND (place your units here->)};
{$ELSE}
{$I uses.inc}
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;
{$ENDIF}

type
 {$IF Defined(KOL_MCK)}
 {$I MCKfakeClasses.inc}
 {$IFDEF KOLCLASSES} {$I TForm1class.inc} {$ELSE OBJECTS} PForm1 = ^TForm1; {$ENDIF CLASSES/OBJECTS}
 {$IFDEF KOLCLASSES}{$I TForm1.inc}{$ELSE} TForm1 = object(TObj) {$ENDIF}
   Form: PControl;
 {$ELSE not_KOL_MCK}
 TForm1 = class(TForm)
 {$IFEND KOL_MCK}
   KOLProject1: TKOLProject;
   KOLForm1: TKOLForm;
   Memo1: TKOLMemo;
   procedure KOLForm1FormCreate(Sender: PObj);
   procedure SetEditRect;
   function Memo1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;

{$IFDEF KOL_MCK}
procedure NewForm1( var Result: PForm1; AParent: PControl );
{$ENDIF}

implementation

{$IF Defined(KOL_MCK)}{$ELSE}{$R *.DFM}{$IFEND}

{$IFDEF KOL_MCK}
{$I Unit1_1.inc}
{$ENDIF}

const
 WM_MEMOUPD = WM_USER + 100;

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
Form1.SetEditRect;
end;

procedure TForm1.SetEditRect;
var
//H: HWND;
Rect: TRect;
begin
SendMessage( Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect));
Rect.Left:= 20;
SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect));
Memo1.Update;
end;

procedure Memo1Paint(Memo1: PControl; DC: HDC);
var
i,y,n:integer;
t:string;
begin
n:=Memo1.Perform(EM_GETFIRSTVISIBLELINE,0,0);
y:=1;
i:=0;
while (y<Memo1.ClientHeight) do
  begin
    Memo1.Canvas.TextOut(1,y,Int2Str(1+i+n));
    y:=y+16;
    inc(i);
  end;
//Memo1.Invalidate;
end;

function TForm1.Memo1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
 if (Msg.message = WM_PAINT) then
   Memo1.Postmsg(WM_MEMOUPD,0,0)
 else if (Msg.message = WM_MEMOUPD) then
   Memo1Paint(Memo1, GetDC(Memo1.Handle)) ;
 Result := False;  
end;

end.

procedure SetEditRect (Memo: PControl);
var
//H: HWND;
Rect: TRect;
begin
 SendMessage( Memo.Handle, EM_GETRECT, 0, LongInt(@Rect));
 Rect.Left:= 20;
 SendMessage(Memo.Handle, EM_SETRECT, 0, LongInt(@Rect));
 Memo.Update;
end;

procedure MemoPaint(Memo: PControl; DC: HDC);
var
i,y,n:integer;
t:string;
begin
n:=Memo.Perform(EM_GETFIRSTVISIBLELINE,0,0);
y:=1;
i:=0;
while (y<Memo.ClientHeight) do
 begin
   Memo.Canvas.TextOut(1,y,Int2Str(1+i+n));
   y:=y+16;
   inc(i);
 end;
end;

function TForm1.MemoMessage(var Msg: tagMSG; var Rslt: Integer): Boolean;
var
Memo: PControl;
begin
if
... здесь проверяем от какого KOLMemo сообщение
    и определяем значение Memo
then
begin
  if (Msg.message = WM_PAINT) then
    Memo.Postmsg(WM_MEMOUPD,0,0)
  else if (Msg.message = WM_MEMOUPD) then
    MemoPaint(Memo, GetDC(Memo.Handle)) ;
Result := False;  
end;

{ KOL MCK } // Do not remove this line!
{$DEFINE KOL_MCK}
unit Unit1;

interface

{$IFDEF KOL_MCK}
uses Windows, Messages, KOL {$IF Defined(KOL_MCK)}{$ELSE}, mirror, Classes, Controls, mckCtrls, mckObjs, Graphics {$IFEND (place your units here->)};
{$ELSE}
{$I uses.inc}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
{$ENDIF}

type
{$IF Defined(KOL_MCK)}
{$I MCKfakeClasses.inc}
 {$IFDEF KOLCLASSES} {$I TForm1class.inc} {$ELSE OBJECTS} PForm1 = ^TForm1; {$ENDIF CLASSES/OBJECTS}
 {$IFDEF KOLCLASSES}{$I TForm1.inc}{$ELSE} TForm1 = object(TObj) {$ENDIF}
  Form: PControl;
{$ELSE not_KOL_MCK}
 TForm1 = class(TForm)
{$IFEND KOL_MCK}
  KOLProject1: TKOLProject;
  KOLForm1: TKOLForm;
   TabControl1: TKOLTabControl;
   Button1: TKOLButton;
  procedure KOLForm1FormCreate(Sender: PObj);
  procedure SetEditRect(Memo: PControl);
  function Memo1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
   procedure Button1Click(Sender: PObj);
private
  { Private declarations }
public
  { Public declarations }
end;

var
Form1 {$IFDEF KOL_MCK} : PForm1 {$ELSE} : TForm1 {$ENDIF} ;
Memos:array[1..10]of TKOLMemo;
num:integer;
FGutterWidth: integer;
FLineCount: integer;

{$IFDEF KOL_MCK}
procedure NewForm1( var Result: PForm1; AParent: PControl );
{$ENDIF}

implementation

{$IF Defined(KOL_MCK)}{$ELSE}{$R *.DFM}{$IFEND}

{$IFDEF KOL_MCK}
{$I Unit1_1.inc}
{$ENDIF}

const
WM_MEMOUPD = WM_USER + 100;

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
 num:=0;
 FGutterWidth:=30;
end;

procedure TForm1.SetEditRect(Memo: PControl);
var
//H: HWND;
 Rect: TRect;
begin
 SendMessage( Memo.Handle, EM_GETRECT, 0, LongInt(@Rect));
 Rect.Left:= FGutterWidth;
 SendMessage(Memo.Handle, EM_SETRECT, 0, LongInt(@Rect));
//Memo1.Update;
end;

procedure Memo1Paint(Memo1: PControl; DC: HDC);
var
 i,y,n:integer;
begin
 n:=Memo1.Perform(EM_GETFIRSTVISIBLELINE,0,0);
 y:=1;
 i:=0;
 Memo1.Canvas.Rectangle(0,0,FGutterWidth,Memo1.ClientHeight);
 while (y<Memo1.ClientHeight) do
   begin
     Memo1.Canvas.TextOut(1,y,Int2Str(1+i+n));
     y:=y+16;
     inc(i);
   end;
end;

function TForm1.Memo1Message(var Msg: tagMSG; var Rslt: Integer): Boolean;
var
 j,n:integer;
begin
 for j:=0 to num do
   if (Msg.hwnd = Memos[j].GetWindowHandle)then
     begin
       n:=j;
     end;
if (Msg.message = WM_PAINT) then
  Memos[n].Postmsg(WM_MEMOUPD,0,0)
else if (Msg.message = WM_MEMOUPD) then
  Memo1Paint(Memos[n], GetDC(Memos[n].Handle)) ;
Result := False;  
end;

procedure TForm1.Button1Click(Sender: PObj);
begin
 inc(num);
 TabControl1.TC_Insert(num-1,Int2Str(num),0);
 TabControl1.Pages[num-1].Show;
 Memos[num]:=NewEditBox( TabControl1.Pages[num-1], [ eoMultiline ] );
 Memos[num].Tag:=num;
 Memos[num].CreateWindow;
 Memos[num].Align:=caClient;
 Form1.SetEditRect(Memos[num]);
 Memos[num].OnMessage:=Form1.Memo1Message;
end;

end.

procedure TForm1.KOLForm1Close(Sender: PObj; var Accept: Boolean);
var
 i:integer;
begin
 for i:=1 to Length(Memos) do
   if Memos[i]<>nil then
     Memos[i].Free;
end;

unit KOLMyMemo;

interface

uses
 Windows, Messages, KOL;

const
 WM_MEMOUPD = WM_USER + 100;
 
type
 PKOLMyMemo =^TKOLMyMemo;
 TKOLMyMemo_ = PKOLMyMemo;
 TKOLMyMemo = object(TControl)

 FGutterEnabled: boolean;
 FGutterWidth: integer;
 FGutterColor: TColor;
 FLineCount: integer;
 //procedure SetGutterWidth(Value: integer);
 //procedure SetGutterEnabled(Value: boolean);
 procedure SetEditRect;
 //procedure SetAlign(const Value: TControlAlign);
 //procedure SetGutterColor(Value: TColor);
 //function GetGutterColor: TColor;
 procedure LineNumberDraw;
 function KOLMyMemoOnMessage( var Msg: TMsg; var Rslt: Integer ): Boolean;
 private
   { Private declarations }
 protected
   { Protected declarations }
 public
   { Public declarations }
   destructor Destroy; virtual;
   //property GutterEnabled: boolean read FGutterEnabled write SetGutterEnabled;
   //property GutterWidth: integer read FGutterWidth write SetGutterWidth;
   //property GutterColor: TColor read GetGutterColor write SetGutterColor;
   //property Align: TControlAlign read FAlign write SetAlign;
 end;

 function NewKOLMyMemo( AParent: PControl; Options: TEditOptions ): PKOLMyMemo;

implementation

function NewKOLMyMemo( AParent: PControl; Options: TEditOptions ): PKOLMyMemo;
begin
 Result:=PKOLMyMemo(NewEditBox( AParent, Options ));
 //Result.FLineCount:=1;
 //Result.Font.FontName:='Courier New';
 //Result.FGutterEnabled:=True;
 //Result.FGutterWidth:=30;
 Result.FGutterColor:=clSilver;
 Result.Color:=clWindow;
 Result.SetEditRect;
 Result.OnMessage:=Result.KOLMyMemoOnMessage;
end;

destructor TKOLMyMemo.Destroy;
begin
 inherited;
end;

//procedure LineNumberDraw(MM: TKOLMyMemo; DC: HDC);
procedure TKOLMyMemo.LineNumberDraw;
var
 i,y,n,w:integer;
 t:string;
begin
 {n:=MM.Perform(EM_GETFIRSTVISIBLELINE,0,0);
 y:=1;
 i:=0;
 MM.Canvas.Pen.Color:=MM.Color;
 MM.Canvas.Rectangle(0,0,MM.FGutterWidth-1,MM.ClientHeight);
 MM.Canvas.Pen.Color:=clBlack;
 MM.Canvas.MoveTo(MM.FGutterWidth-1,0);
 MM.Canvas.LineTo(MM.FGutterWidth-1,MM.ClientHeight);
 MM.Canvas.Font.FontName:='Courier New';
 while (y<MM.ClientHeight) do
   begin
     t:=Int2Str(1+i+n);
     MM.Canvas.TextOut(1,y,t);
     y:=y+16;
     inc(i);
   end;}

 n:=Perform(EM_GETFIRSTVISIBLELINE,0,0);
 y:=1;
 i:=0;
 Canvas.Pen.Color:=Color;
 Canvas.Brush.Color:=FGutterColor; //<<-- Проблема здеся
 Canvas.Rectangle(0,0,FGutterWidth-1,ClientHeight);
 Canvas.Pen.Color:=clBlack;
 Canvas.MoveTo(FGutterWidth-1,0);
 Canvas.LineTo(FGutterWidth-1,ClientHeight);
 Canvas.Font.FontName:='Courier New';
 while (y<ClientHeight) do
   begin
     t:=Int2Str(1+i+n);
     w:=Canvas.TextWidth(t);
     Canvas.TextOut(FGutterWidth-w-2,y,t);
     y:=y+16;
     inc(i);
   end;
end;

function TKOLMyMemo.KOLMyMemoOnMessage( var Msg: TMsg; var Rslt: Integer ): Boolean;
begin
 Result := False;
 Rslt := 0;
 if (Msg.message = WM_PAINT) then
   Self.Postmsg(WM_MEMOUPD,0,0)
 else if (Msg.message = WM_MEMOUPD) then
   //LineNumberDraw(Self, GetDC(Self.Handle)) ;
   LineNumberDraw;
end;

{procedure TKOLMyMemo.KOLMyMemoOnKeyChar( Sender: PControl; var Key: KOLChar; Shift_: Cardinal );
begin
 {inherited;
 if Key = #13 then
   PKOLMyMemo(Sender).LineNumberDraw(True);
 if Key = #8 then
   PKOLMyMemo(Sender).LineNumberDraw(False);}
 {inherited;
 if Key = #13 then
   begin
     inc(FLineCount);
   end;
 if Key = #8 then
   begin
     if FLineCount>1 then
       dec(FLineCount);
   end;
 //LineNumberDraw(Self,False);
end;}

{procedure TKOLMyMemo.SetAlign(const Value: TControlAlign);
begin
 //Set_Align(Value);
 //SetEditRect;
end;}

procedure TKOLMyMemo.SetEditRect;
var
 Loc: TRect;
begin
 Loc.Left:=0;
 SendMessage(Self.Handle, EM_GETRECT, 0, LongInt(@Loc));
 Loc.Left:=FGutterWidth;
 SendMessage(Self.Handle, EM_SETRECTNP, 0, LongInt(@Loc));
end;

{procedure TKOLMyMemo.SetGutterEnabled(Value: boolean);
begin
 if Value <> FGutterEnabled then
   begin
     FGutterEnabled := Value;
   end;
end;}

{procedure TKOLMyMemo.SetGutterWidth(Value: integer);
begin
 if Value <> FGutterWidth then
   begin
     FGutterWidth := Value;
   end;
end;}

{procedure TKOLMyMemo.SetGutterColor(Value: TColor);
begin
 if Value <> FGutterColor then
   begin
     FGutterColor := Value;
   end;
end;}

{function TKOLMyMemo.GetGutterColor: TColor;
begin
 Result := FGutterColor;
end;}

end.