Тут недавно экзамен сдавал - сочинение, так вот написал значит и сижу, проверяю: в тексте встретил два раза слово сабж ( Сабж, кстате был "Татьяна Ларина"), и один раз ИМХО. после этого минуты две (!) ржал на всю рекреацию, чем удивил преподов
Наследник 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.
Статья Memo со свойствами Row и Col раздела Компоненты и Классы TMemo и TRichEdit может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.