paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 07:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* try to fix the selection extension better

Browse Source
This commit is contained in:
pierre 2003-01-31 12:04:50 +00:00
parent c0054f06cd
commit cd8b056034
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/weditor.pas
View File

@ -4941,7 +4941,7 @@ begin
SetStoreUndo(HoldUndo);
Addaction(eaDeleteText,SCP,CurPos,Copy(S,CI,OI-CI),GetFlags);
SetStoreUndo(false);
AdjustSelection(CurPos.X-SCP.X,CurPos.Y-SCP.Y);
AdjustSelectionPos(SCP.X-1,SCP.Y,CurPos.X-SCP.X,CurPos.Y-SCP.Y);
end;
UpdateAttrs(CurPos.Y,attrAll);
DrawLines(CurPos.Y);
@ -4986,6 +4986,7 @@ begin
end
else
begin
SCP:=CurPos;
{ Problem if S[CurPos.X+1]=TAB !! PM }
if S[CI]=TAB then
begin
@ -4999,6 +5000,7 @@ begin
S:=Copy(S,1,CI-1)+CharStr(' ',GetTabSize-1)+Copy(S,CI+1,High(S));
SetStoreUndo(HoldUndo);
Addaction(eaDeleteText,CurPos,CurPos,#9,GetFlags);
SDX:=-1;
SetStoreUndo(false);
end
else
@ -5006,13 +5008,14 @@ begin
SetStoreUndo(HoldUndo);
Addaction(eaDeleteText,CurPos,CurPos,S[CI],GetFlags);
SetStoreUndo(false);
SDX:=-1;
Delete(S,CI,1);
end;
SetLineText(CurPos.Y,S);
SDX:=-1;SDY:=0;
SDY:=0;
SetCurPtr(CurPos.X,CurPos.Y);
UpdateAttrs(CurPos.Y,attrAll);
AdjustSelection(SDX,SDY);
AdjustSelectionPos(SCP.X,SCP.Y,SDX,SDY);
end;
DrawLines(CurPos.Y);
SetStoreUndo(HoldUndo);
@ -7274,7 +7277,10 @@ end;
END.
{
$Log$
Revision 1.41 2003-01-29 00:29:14 pierre
Revision 1.42 2003-01-31 12:04:50 pierre
* try to fix the selection extension better
Revision 1.41 2003/01/29 00:29:14 pierre
* attempt to fix webbugs 2346-2348
Revision 1.40 2003/01/21 11:03:56 pierre