paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 15:29:11 +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); SetStoreUndo(HoldUndo);
Addaction(eaDeleteText,SCP,CurPos,Copy(S,CI,OI-CI),GetFlags); Addaction(eaDeleteText,SCP,CurPos,Copy(S,CI,OI-CI),GetFlags);
SetStoreUndo(false); 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; end;
UpdateAttrs(CurPos.Y,attrAll); UpdateAttrs(CurPos.Y,attrAll);
DrawLines(CurPos.Y); DrawLines(CurPos.Y);
@ -4986,6 +4986,7 @@ begin
end end
else else
begin begin
SCP:=CurPos;
{ Problem if S[CurPos.X+1]=TAB !! PM } { Problem if S[CurPos.X+1]=TAB !! PM }
if S[CI]=TAB then if S[CI]=TAB then
begin begin
@ -4999,6 +5000,7 @@ begin
S:=Copy(S,1,CI-1)+CharStr(' ',GetTabSize-1)+Copy(S,CI+1,High(S)); S:=Copy(S,1,CI-1)+CharStr(' ',GetTabSize-1)+Copy(S,CI+1,High(S));
SetStoreUndo(HoldUndo); SetStoreUndo(HoldUndo);
Addaction(eaDeleteText,CurPos,CurPos,#9,GetFlags); Addaction(eaDeleteText,CurPos,CurPos,#9,GetFlags);
SDX:=-1;
SetStoreUndo(false); SetStoreUndo(false);
end end
else else
@ -5006,13 +5008,14 @@ begin
SetStoreUndo(HoldUndo); SetStoreUndo(HoldUndo);
Addaction(eaDeleteText,CurPos,CurPos,S[CI],GetFlags); Addaction(eaDeleteText,CurPos,CurPos,S[CI],GetFlags);
SetStoreUndo(false); SetStoreUndo(false);
SDX:=-1;
Delete(S,CI,1); Delete(S,CI,1);
end; end;
SetLineText(CurPos.Y,S); SetLineText(CurPos.Y,S);
SDX:=-1;SDY:=0; SDY:=0;
SetCurPtr(CurPos.X,CurPos.Y); SetCurPtr(CurPos.X,CurPos.Y);
UpdateAttrs(CurPos.Y,attrAll); UpdateAttrs(CurPos.Y,attrAll);
AdjustSelection(SDX,SDY); AdjustSelectionPos(SCP.X,SCP.Y,SDX,SDY);
end; end;
DrawLines(CurPos.Y); DrawLines(CurPos.Y);
SetStoreUndo(HoldUndo); SetStoreUndo(HoldUndo);
@ -7274,7 +7277,10 @@ end;
END. END.
{ {
$Log$ $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 * attempt to fix webbugs 2346-2348
Revision 1.40 2003/01/21 11:03:56 pierre Revision 1.40 2003/01/21 11:03:56 pierre