paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 10:59:29 +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;
{begin} //mh 2000-10-01
StartOfBlock := CaretXY;
NewCaretX := StartOfBlock.X + {$IFDEF SYN_LAZARUS}length(Spaces){$ELSE}i{$ENDIF};
NewCaretX := StartOfBlock.X + i;
SetSelText(Spaces);
ChangeScroll := not (eoScrollPastEol in fOptions);
try

34
ide/lazarusidestrconsts.pas
View File

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