Тут недавно экзамен сдавал - сочинение, так вот написал значит и сижу, проверяю: в тексте встретил два раза слово сабж ( Сабж, кстате был "Татьяна Ларина"), и один раз ИМХО. после этого минуты две (!) ржал на всю рекреацию, чем удивил преподов
Наследник TMemo со свойствами row & col:
unit C_rcmemo;
interfaceuses
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;
procedureRegister;
implementationfunction 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;
procedureRegister;
begin
RegisterComponents('NJR', [TRCMemo]);
end;
end.
Проект на Delphi!
Это пользовательский компонент TRCMemo, который наследуется от стандартного компонента TMemo. Он добавляет три свойства: Row, Col и Posn.
Вот, что каждый свойство делает:
Row: Возвращает номер строки текущей позиции курсора.
Col: Возвращает номер столбца текущей позиции курсора.
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
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.