Наследник TMemo со свойствами row & col:

 

Code:

unit C_rcmemo;

 

interface

 

uses

 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs, StdCtrls;

 

type

 

TRCMemo = class(TMemo)

private

   { Private declarations }

   function GetRow: Integer;

   procedure SetRow(value: Integer);

   function GetCol: Integer;

   procedure SetCol(value: Integer);

   function GetPosn: LongInt;

   procedure SetPosn(value: LongInt);

protected

   { Protected declarations }

public

   { Public declarations }

published

   { Published declarations }

   property Row: Integer read GetRow write SetRow;

   property Col: Integer read GetCol write SetCol;

   property Posn: LongInt read GetPosn write SetPosn;

end;

 

procedure Register;

 

implementation

 

function TRCMemo.GetRow: Integer;

begin

 

Result := Perform(EM_LINEFROMCHAR, $FFFF, 0);

end;

 

procedure TRCMemo.SetRow(value: Integer);

begin

 

SelStart := GetCol + Perform(EM_LINEINDEX, Value, 0);

end;

 

function TRCMemo.GetCol: Integer;

begin

 

Result := SelStart - Perform(EM_LINEINDEX, GetRow, 0);

end;

 

procedure TRCMemo.SetCol(value: Integer);

begin

 

SelStart := Perform(EM_LINEINDEX, GetRow, 0) + Value;

end;

 

function TRCMemo.GetPosn: LongInt;

var

ro, co: Integer;

begin

 

ro := GetRow;

co := SelStart - Perform(EM_LINEINDEX, ro, 0);

Result := MakeLong(co, ro);

end;

 

procedure TRCMemo.SetPosn(value: LongInt);

begin

 

SelStart := Perform(EM_LINEINDEX, HiWord(Value), 0) + LoWord(Value);

end;

 

procedure Register;

begin

 

RegisterComponents('NJR', [TRCMemo]);

end;

 

end.

 

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить