paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 09:37:20 +01: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 GetCanUndo: Boolean;
function GetCaretXY: TPoint; function GetCaretXY: TPoint;
function GetFoldedCodeColor: TSynSelectedColor; function GetFoldedCodeColor: TSynSelectedColor;
function GetLines: TStrings; override;
function GetMarkup(Index: integer): TSynEditMarkup; function GetMarkup(Index: integer): TSynEditMarkup;
function GetMarkupByClass(Index: TSynEditMarkupClass): TSynEditMarkup; function GetMarkupByClass(Index: TSynEditMarkupClass): TSynEditMarkup;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
@ -584,6 +583,7 @@ type
procedure RealSetText(const Value: TCaption); override; procedure RealSetText(const Value: TCaption); override;
procedure IncreaseChangeStamp; procedure IncreaseChangeStamp;
{$ENDIF} {$ENDIF}
function GetLines: TStrings; override;
function GetViewedTextBuffer: TSynEditStrings; override; function GetViewedTextBuffer: TSynEditStrings; override;
function GetTextBuffer: TSynEditStrings; override; function GetTextBuffer: TSynEditStrings; override;
procedure SetLines(Value: TStrings); override; procedure SetLines(Value: TStrings); override;

4
components/synedit/synedittexttabexpander.pas
View File

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