paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-21 10:10:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Re-introduced StartSelectionChange and EndSelectionChange, which get lost

Browse Source 
during some file movements...
This commit is contained in:
sg 2000-01-06 16:43:35 +00:00
parent 3fafebe811
commit 67d7798248
1 changed files with 61 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
fcl/shedit/shedit.pp
View File

@ -165,6 +165,8 @@ type
LastUndoInfo, LastRedoInfo: TUndoInfo; // tails of double linked lists LastUndoInfo, LastRedoInfo: TUndoInfo; // tails of double linked lists
FSel: TSelection; FSel: TSelection;
OldSelValid: Boolean;
OldSelStartX, OldSelStartY, OldSelEndX, OldSelEndY: Integer;
// OnKeyPressed saves the cursor position before calling key handlers // OnKeyPressed saves the cursor position before calling key handlers
LastCursorX, LastCursorY: Integer; LastCursorX, LastCursorY: Integer;
@ -238,6 +240,8 @@ type
procedure FocusOut; procedure FocusOut;
procedure DrawContent(x1, y1, x2, y2: Integer); procedure DrawContent(x1, y1, x2, y2: Integer);
procedure KeyPressed(KeyCode: LongWord; ShiftState: TShiftState); virtual; procedure KeyPressed(KeyCode: LongWord; ShiftState: TShiftState); virtual;
procedure StartSelectionChange;
procedure EndSelectionChange;
KeyboardActions: TCollection; KeyboardActions: TCollection;
Shortcuts: TCollection; Shortcuts: TCollection;
@ -396,13 +400,69 @@ begin
LineInserted(Sender, Line); LineInserted(Sender, Line);
end; end;
procedure TSHTextEdit.StartSelectionChange;
begin
HideCursor;
LastCursorX := FCursorX;
LastCursorY := FCursorY;
OldSelValid := FSel.IsValid;
if OldSelValid then begin
OldSelStartX := FSel.OStartX;
OldSelStartY := FSel.OStartY;
OldSelEndX := FSel.OEndX;
OldSelEndY := FSel.OEndY;
end;
end;
procedure TSHTextEdit.EndSelectionChange;
begin
if not OldSelValid then begin
if FSel.IsValid then
FWidget.InvalidateRect(FSel.OStartX, FSel.OStartY, FSel.OEndX, FSel.OEndY);
end else begin
if not FSel.IsValid then
FWidget.InvalidateRect(OldSelStartX, OldSelStartY, OldSelEndX, OldSelEndY)
else begin
// Do OldSel and FSel intersect?
if (OldSelEndY < FSel.OStartY) or (OldSelStartY > FSel.OEndY) or
((OldSelEndY = FSel.OStartY) and (OldSelEndX <= FSel.OStartX)) or
((OldSelStartY = FSel.OEndY) and (OldSelStartX >= FSel.OEndX)) then begin
FWidget.InvalidateRect(OldSelStartX, OldSelStartY, OldSelEndX, OldSelEndY);
FWidget.InvalidateRect(FSel.OStartX, FSel.OStartY, FSel.OEndX, FSel.OEndY);
end else begin
// Intersection => determine smallest possible area(s) to redraw
// 1. Check if the start position has changed
if (OldSelStartX <> FSel.OStartX) or (OldSelStartY <> FSel.OStartY) then
if (OldSelStartY < FSel.OStartY) or ((OldSelStartY = FSel.OStartY) and
(OldSelStartX < FSel.OStartX)) then
FWidget.InvalidateRect(OldSelStartX, OldSelStartY, FSel.OStartX, FSel.OStartY)
else
FWidget.InvalidateRect(FSel.OStartX, FSel.OStartY, OldSelStartX, OldSelStartY);
// 2. Check if end position has changed
if (OldSelEndX <> FSel.OEndX) or (OldSelEndY <> FSel.OEndY) then
if (OldSelEndY < FSel.OEndY) or ((OldSelEndY = FSel.OEndY) and
(OldSelEndX < FSel.OEndX)) then
FWidget.InvalidateRect(OldSelEndX, OldSelEndY, FSel.OEndX, FSel.OEndY)
else
FWidget.InvalidateRect(FSel.OEndX, FSel.OEndY, OldSelEndX, OldSelEndY);
end;
end;
end;
ShowCursor;
end;
end. end.
{ {
$Log$ $Log$
Revision 1.10 2000-01-06 01:20:34 peter Revision 1.11 2000-01-06 16:43:35 sg
* Re-introduced StartSelectionChange and EndSelectionChange, which get lost
during some file movements...
Revision 1.10 2000/01/06 01:20:34 peter
* moved out of packages/ back to topdir * moved out of packages/ back to topdir
Revision 1.1 2000/01/03 19:33:09 peter Revision 1.1 2000/01/03 19:33:09 peter