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

removed default value for fpc 1.0.10

Browse Source 
git-svn-id: trunk@6554 -
This commit is contained in:
mattias 2005-01-12 09:49:52 +00:00
parent f89f283f2d
commit 412e073155
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/synedit/synedit.pp
View File

@ -451,8 +451,10 @@ type
procedure GutterChanged(Sender: TObject); procedure GutterChanged(Sender: TObject);
procedure InsertBlock(BB, BE: TPoint; ChangeStr: PChar); procedure InsertBlock(BB, BE: TPoint; ChangeStr: PChar);
function IsPointInSelection(Value: TPoint): boolean; function IsPointInSelection(Value: TPoint): boolean;
function LeftSpaces(const Line: string function LeftSpaces(const Line: string): Integer;
{$IFDEF SYN_LAZARUS}; Physical: boolean = false{$ENDIF}): Integer; {$IFDEF SYN_LAZARUS}
function LeftSpaces(const Line: string; Physical: boolean): Integer;
{$ENDIF}
procedure LinesChanging(Sender: TObject); procedure LinesChanging(Sender: TObject);
procedure LinesChanged(Sender: TObject); procedure LinesChanged(Sender: TObject);
procedure LockUndo; procedure LockUndo;
@ -1979,9 +1981,13 @@ begin
Exclude(fStateFlags, sfIgnoreNextChar); Exclude(fStateFlags, sfIgnoreNextChar);
end; end;
function TCustomSynEdit.LeftSpaces(const Line: string): Integer;
begin
Result:=LeftSpaces(Line,false);
end;
function TCustomSynEdit.LeftSpaces(const Line: string function TCustomSynEdit.LeftSpaces(const Line: string;
{$IFDEF SYN_LAZARUS}; Physical: boolean = false{$ENDIF}): Integer; Physical: boolean): Integer;
var var
p: PChar; p: PChar;
begin begin