econtrol Site Admin
Joined: 09 Jun 2006 Posts: 202
|
Posted: Sat Nov 10, 2007 8:22 pm Post subject: |
|
|
Hello,
Behavior of any command may be corrected, for example:
Code: | procedure TEditorFrame.EditorMasterExecuteCommand(Sender: TObject;
Command: Integer; Data: Pointer; var Handled: Boolean);
var p: TPoint;
begin
with TCustomSyntaxMemo(Sender) do
if Command = smTab then
begin
Handled := HaveSelection;
if Handled then
ExecCommand(smBlockIndent);
end else
if Command = smScrollUp then
begin
Handled := True;
ScrollPosY := ScrollPosY - 1;
p := CaretToMouse(CaretPos.X, CaretPos.Y);
if p.Y > ClientHeight - DefTextExt.cy then
CaretPos := MouseToCaret(p.X, ClientHeight - DefTextExt.cy - 3);
end else
if Command = smScrollDown then
begin
Handled := True;
ScrollPosY := ScrollPosY + 1;
p := CaretToMouse(CaretPos.X, CaretPos.Y);
if p.Y < 0 then
CaretPos := MouseToCaret(p.X, 3);
end;
end; |
Michael. |
|