Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

Memo со свойствами Row и Col

Delphi , Компоненты и Классы , TMemo и TRichEdit

Memo со свойствами Row и Col

Тут недавно экзамен сдавал - сочинение, так вот написал значит и сижу, проверяю: в тексте встретил два раза слово сабж ( Сабж, кстате был "Татьяна Ларина"), и один раз ИМХО. после этого минуты две (!) ржал на всю рекреацию, чем удивил преподов

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


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.

Проект на Delphi!

Это пользовательский компонент TRCMemo, который наследуется от стандартного компонента TMemo. Он добавляет три свойства: Row, Col и Posn.

Вот, что каждый свойство делает:

  1. Row: Возвращает номер строки текущей позиции курсора.
  2. Col: Возвращает номер столбца текущей позиции курсора.
  3. Posn: Возвращает целочисленное значение, представляющее собой текущую позицию курсора в формате LOWORD(POSN) (низшая часть) и HIWORD(POSN) (высшая часть).

Имплементация интересна, потому что она использует различные методы для расчета строки, столбца и позиции:

  • GetRow использует сообщение EM_LINEFROMCHAR, чтобы определить текущую строку.
  • SetRow устанавливает начало выбора в конкретную индексную строку, рассчитанную с помощью EM_LINEINDEX.
  • GetCol расчитывает столбец, вычитая индекс строки из начала выбора.
  • SetCol обновляет начало выбора на основе нового значения столбца и текущей строки.
  • GetPosn комбинирует строку и столбец в единое целочисленное значение с помощью функции MakeLong.
  • SetPosn устанавливает позицию курсора, разложив целочисленное значение на низшую и высшую части, а затем вызывая EM_LINEINDEX.

Процедура Register используется для регистрации компонента в Delphi.

В целом, этот пользовательский компонент предоставляет способ легко манипулировать позицией курсора в поле заметок с помощью индексов строк и столбцов.

В статье описывается наследник компонента TMemo, получивший свойства Row и Col, позволяющие управлять позицией курсора в тексте редактора.


Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.


:: Главная :: TMemo и TRichEdit ::


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-08-19 13:29:56
2024-11-07 16:56:40/0.0036141872406006/0