paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 05:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed cursor pos after inserting tab

Browse Source 
git-svn-id: trunk@6543 -
This commit is contained in:
mattias 2005-01-11 14:25:36 +00:00
parent c126bfd858
commit 0411877119
2 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -8697,7 +8697,7 @@ begin
end; end;
{begin} //mh 2000-10-01 {begin} //mh 2000-10-01
StartOfBlock := CaretXY; StartOfBlock := CaretXY;
NewCaretX := StartOfBlock.X + {$IFDEF SYN_LAZARUS}length(Spaces){$ELSE}i{$ENDIF}; NewCaretX := StartOfBlock.X + i;
SetSelText(Spaces); SetSelText(Spaces);
ChangeScroll := not (eoScrollPastEol in fOptions); ChangeScroll := not (eoScrollPastEol in fOptions);
try try

34
ide/lazarusidestrconsts.pas
View File

@ -746,24 +746,24 @@ resourcestring
dlgDelTemplate = 'Delete template '; dlgDelTemplate = 'Delete template ';
dlgChsCodeTempl = 'Choose code template file (*.dci)'; dlgChsCodeTempl = 'Choose code template file (*.dci)';
dlgAllFiles = 'All files'; dlgAllFiles = 'All files';
dlgAltSetClMode = 'Alt Sets Column Mode'; dlgAltSetClMode = 'Alt-Key sets column mode';
dlgAutoIdent = 'Auto Indent'; dlgAutoIdent = 'Auto indent';
dlgBracHighlight = 'Bracket Highlight'; dlgBracHighlight = 'Bracket highlighting';
dlgDragDropEd = 'Drag Drop Editing'; dlgDragDropEd = 'Drag Drop editing';
dlgDropFiles = 'Drop Files'; dlgDropFiles = 'Drop files';
dlgHalfPageScroll = 'Half Page Scroll'; dlgHalfPageScroll = 'Half page scroll';
dlgKeepCaretX = 'Keep Caret X'; dlgKeepCaretX = 'Keep X caret';
dlgPersistentCaret = 'Persistent Caret'; dlgPersistentCaret = 'Persistent caret';
dlgScrollByOneLess = 'Scroll By One Less'; dlgScrollByOneLess = 'Scroll by one less';
dlgScrollPastEndFile = 'Scroll Past End of File'; dlgScrollPastEndFile = 'Scroll past end of file';
dlgScrollPastEndLine = 'Scroll Past End of Line'; dlgScrollPastEndLine = 'Scroll past end of line';
dlgCloseButtonsNotebook = 'Show Close Buttons in notebook'; dlgCloseButtonsNotebook = 'Show close buttons in notebook';
dlgShowScrollHint = 'Show Scroll Hint'; dlgShowScrollHint = 'Show scroll hint';
dlgMouseLinks = 'Mouse links'; dlgMouseLinks = 'Mouse links';
dlgShowGutterHints = 'Show Gutter Hints'; dlgShowGutterHints = 'Show gutter hints';
dlgSmartTabs = 'Smart Tabs'; dlgSmartTabs = 'Smart tabs';
dlgTabsToSpaces = 'Tabs To Spaces'; dlgTabsToSpaces = 'Tabs to spaces';
dlgTrimTrailingSpaces = 'Trim Trailing Spaces'; dlgTrimTrailingSpaces = 'Trim trailing spaces';
dlgUndoAfterSave = 'Undo after save'; dlgUndoAfterSave = 'Undo after save';
dlgDoubleClickLine = 'Double click line'; dlgDoubleClickLine = 'Double click line';
dlgFindTextatCursor = 'Find text at cursor'; dlgFindTextatCursor = 'Find text at cursor';