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

synedit: reduce amount of warnings

Browse Source 
git-svn-id: trunk@18857 -
This commit is contained in:
paul 2009-03-01 11:17:25 +00:00
parent 603e73aca1
commit cb071d68ba
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -450,7 +450,6 @@ type
function GetCanUndo: Boolean;
function GetCaretXY: TPoint;
function GetFoldedCodeColor: TSynSelectedColor;
function GetLines: TStrings; override;
function GetMarkup(Index: integer): TSynEditMarkup;
function GetMarkupByClass(Index: TSynEditMarkupClass): TSynEditMarkup;
{$IFDEF SYN_LAZARUS}
@ -584,6 +583,7 @@ type
procedure RealSetText(const Value: TCaption); override;
procedure IncreaseChangeStamp;
{$ENDIF}
function GetLines: TStrings; override;
function GetViewedTextBuffer: TSynEditStrings; override;
function GetTextBuffer: TSynEditStrings; override;
procedure SetLines(Value: TStrings); override;

4
components/synedit/synedittexttabexpander.pas
View File

@ -38,7 +38,7 @@ type
{ TSynEditStringTabExpander }
TSynEditStringTabExpander = class(TSynEditStringsLinked)
TSynEditStringTabExpander = class(TSynEditStringsLinked)
private
FTabWidth: integer;
FIndexOfLongestLine: Integer;
@ -51,13 +51,13 @@ TSynEditStringTabExpander = class(TSynEditStringsLinked)
function GetTabWidth : integer;
procedure SetTabWidth(const AValue : integer);
function GetExpandedString(Index: integer): string; override;
function GetPhysicalCharWidths(const Line: String; Index: Integer): TPhysicalCharWidths; override;
function GetLengthOfLongestLine: integer; override;
property LengthOfLine[Index: Integer]: integer
read GetLengthOfLine write SetLengthOfLine;
public
constructor Create(ASynStringSource: TSynEditStrings);
destructor Destroy; override;
function GetPhysicalCharWidths(const Line: String; Index: Integer): TPhysicalCharWidths; override;
property LengthOfLongestLine: integer read GetLengthOfLongestLine;
public