paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 20:57:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

* get correct position in indicator again

Browse Source
This commit is contained in:
pierre 2000-03-23 21:36:19 +00:00
parent 9bb015f2b4
commit edcf10f5c2
2 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/text/wcedit.pas
View File

@ -150,6 +150,7 @@ type
public public
procedure UpdateIndicator; virtual; procedure UpdateIndicator; virtual;
procedure ModifiedChanged; virtual; procedure ModifiedChanged; virtual;
procedure PositionChanged; virtual;
procedure LimitsChanged; virtual; procedure LimitsChanged; virtual;
function IsClipboard: Boolean; virtual; function IsClipboard: Boolean; virtual;
function LoadFromStream(Stream: PStream): boolean; virtual; function LoadFromStream(Stream: PStream): boolean; virtual;
@ -1099,6 +1100,11 @@ begin
UpdateIndicator; UpdateIndicator;
end; end;
procedure TCodeEditor.PositionChanged;
begin
UpdateIndicator;
end;
procedure TCodeEditor.JumpToLastCursorPos; procedure TCodeEditor.JumpToLastCursorPos;
{$ifdef Undo} {$ifdef Undo}
var var
@ -1177,7 +1183,7 @@ begin
eaDeleteLine : eaDeleteLine :
begin begin
SetCurPtr(EndPos.X,EndPos.Y); SetCurPtr(EndPos.X,EndPos.Y);
DelEnd; {DelEnd;wrong for eaCut at least }
InsertNewLine; InsertNewLine;
SetCurPtr(StartPos.X,StartPos.Y); SetCurPtr(StartPos.X,StartPos.Y);
SetLineText(StartPos.Y,GetStr(Text)); SetLineText(StartPos.Y,GetStr(Text));

15
ide/text/weditor.pas
View File

@ -463,6 +463,7 @@ type
procedure ContentsChanged; virtual; procedure ContentsChanged; virtual;
procedure LimitsChanged; virtual; procedure LimitsChanged; virtual;
procedure ModifiedChanged; virtual; procedure ModifiedChanged; virtual;
procedure PositionChanged; virtual;
procedure TabSizeChanged; virtual; procedure TabSizeChanged; virtual;
procedure SyntaxStateChanged; virtual; procedure SyntaxStateChanged; virtual;
procedure StoreUndoChanged; virtual; procedure StoreUndoChanged; virtual;
@ -2610,6 +2611,11 @@ begin
{ Abstract } { Abstract }
end; end;
procedure TCustomCodeEditor.PositionChanged;
begin
{ Abstract }
end;
procedure TCustomCodeEditor.TabSizeChanged; procedure TCustomCodeEditor.TabSizeChanged;
begin begin
{ Abstract } { Abstract }
@ -4934,8 +4940,8 @@ begin
SetHighlightRow(-1);} SetHighlightRow(-1);}
if ((CurPos.X<>OldPos.X) or (CurPos.Y<>OldPos.Y)) then if ((CurPos.X<>OldPos.X) or (CurPos.Y<>OldPos.Y)) then
AddAction(eaMoveCursor,OldPos,CurPos,''); AddAction(eaMoveCursor,OldPos,CurPos,'');
{ if ((CurPos.X<>OldPos.X) or (CurPos.Y<>OldPos.Y)) then if ((CurPos.X<>OldPos.X) or (CurPos.Y<>OldPos.Y)) then
UpdateIndicator;} PositionChanged;{UpdateIndicator;}
UnLock; UnLock;
end; end;
@ -5581,7 +5587,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.85 2000-03-21 23:17:47 pierre Revision 1.86 2000-03-23 21:36:19 pierre
* get correct position in indicator again
Revision 1.85 2000/03/21 23:17:47 pierre
+ Gabor patch to add support for multiple windows + Gabor patch to add support for multiple windows
of same file of same file
weditor has been splitted into weditor and wcedit units weditor has been splitted into weditor and wcedit units