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

fixed using spaces instead of tabs to fill space

Browse Source 
git-svn-id: trunk@6552 -
This commit is contained in:
mattias 2005-01-12 01:21:34 +00:00
parent add79711d3
commit 0dcba79b17
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synedit.pp
View File

@ -959,14 +959,14 @@ begin
end;
function CreateTabsAndSpaces(StartPos, SpaceLen, TabWidth: integer;
TabsToSpaces: boolean): string;
UseTabs: boolean): string;
var
TabCount: Integer;
EndPos: Integer;
PosPlusOneTab: Integer;
begin
Result:='';
if TabsToSpaces then begin
if not UseTabs then begin
Result:=StringOfChar(' ',SpaceLen);
exit;
end;
@ -4700,8 +4700,8 @@ var
LogicalToPhysicalPos(Point(Length(sLeftSide)+1,CaretY)).X-1;
sLeftSide := sLeftSide
+ CreateTabsAndSpaces(CaretX,
CaretX-1-PhysicalLineEndPos,
TabWidth, eoSpacesToTabs in Options);
CaretX-1-PhysicalLineEndPos,TabWidth,
eoSpacesToTabs in Options);
end;
sRightSide := Copy(LineText, LogCaretXY.X,
Length(LineText) - (LogCaretXY.X - 1));