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

synedit: fix visibility warnings

Browse Source 
git-svn-id: trunk@17615 -
This commit is contained in:
paul 2008-11-28 02:41:09 +00:00
parent 100ca00df1
commit 2f04ce8eba
4 changed files with 12 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/syncompletion.pas
View File

@ -84,12 +84,11 @@ type
private
FCompletionForm: TSynBaseCompletionForm;
FIndex: Integer;
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
function CalcHintRect(MaxWidth: Integer; const AHint: string;
AData: Pointer): TRect; override;
procedure Paint; override;
property Index: Integer read FIndex write FIndex;
end;
{$ENDIF}

12
components/synedit/synedit.pp
View File

@ -318,7 +318,6 @@ type
procedure WMKillFocus(var Msg: TWMKillFocus); message WM_KILLFOCUS;
{$IFDEF SYN_LAZARUS}
procedure WMExit(var Message: TLMExit); message LM_EXIT;
procedure Resize; override;
{$ELSE}
procedure WMMouseWheel(var Msg: TMessage); message WM_MOUSEWHEEL;
procedure WMSetCursor(var Msg: TWMSetCursor); message WM_SETCURSOR;
@ -451,7 +450,6 @@ type
procedure DoLinesInserted(FirstLine, Count: integer);
procedure DoTabKey;
function FindHookedCmdEvent(AHandlerProc: THookedCommandEvent): integer;
procedure FontChanged(Sender: TObject); {$IFDEF SYN_LAZARUS}override;{$ENDIF}
function GetBlockBegin: TPoint;
function GetBlockEnd: TPoint;
function GetBracketHighlightStyle: TSynEditBracketHighlightStyle;
@ -498,7 +496,6 @@ type
{$IFDEF SYN_LAZARUS}
function IsBackwardSel: Boolean; // SelStart < SelEnd ?
procedure SetTabChar(const AValue: Char);
function RealGetText: TCaption; override;
{$ENDIF}
procedure GutterChanged(Sender: TObject);
procedure InsertBlock(BB, BE: TPoint; ChangeStr: PChar);
@ -573,9 +570,6 @@ type
procedure SetSelTextExternal(const Value: string);
procedure SetTabWidth(Value: integer);
procedure SynSetText(const Value: string);
{$IFDEF SYN_LAZARUS}
procedure RealSetText(const Value: TCaption); override;
{$ENDIF}
procedure SetTopLine(Value: Integer);
procedure SetWantTabs(const Value: boolean);
procedure SetWordBlock(Value: TPoint);
@ -600,11 +594,15 @@ type
{$IFDEF SYN_LAZARUS}
procedure TripleClick; override;
procedure QuadClick; override;
procedure Resize; override;
function RealGetText: TCaption; override;
procedure RealSetText(const Value: TCaption); override;
{$ENDIF}
procedure DecPaintLock;
procedure DestroyWnd; override;
procedure DragOver(Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean); override;
procedure FontChanged(Sender: TObject); {$IFDEF SYN_LAZARUS}override;{$ENDIF}
function GetReadOnly: boolean; virtual;
procedure HideCaret;
procedure HighlighterAttrChanged(Sender: TObject);
@ -653,7 +651,6 @@ type
{$IFDEF SYN_LAZARUS}
procedure StartPaintBuffer(const ClipRect: TRect);
procedure EndPaintBuffer(const ClipRect: TRect);
procedure EraseBackground(DC: HDC); override;
{$ENDIF}
procedure RecalcCharExtent;
procedure RedoItem; //sbs 2000-11-19
@ -712,6 +709,7 @@ type
function FindNextUnfoldedLine(iLine: integer; Down: boolean): Integer;
procedure UnfoldAll;
procedure FoldAll(StartLevel : Integer = 0; IgnoreNested : Boolean = False);
procedure EraseBackground(DC: HDC); override;
{$ENDIF}
procedure AddKey(Command: TSynEditorCommand; Key1: word; SS1: TShiftState;

14
components/synedit/synedittextbuffer.pp
View File

@ -117,22 +117,14 @@ type
function ExpandedString(Index: integer): string;
{$IFDEF SYN_LAZARUS}
function ExpandedStringLength(Index: integer): integer;
function GetFoldEndLevel(Index: integer): integer; override;
function GetFoldMinLevel(Index: integer): integer; override;
procedure SetFoldEndLevel(Index: integer; const AValue: integer); override;
procedure SetFoldMinLevel(Index: integer; const AValue: integer); override;
{$ENDIF}
{$IFNDEF SYN_LAZARUS} // protected in SynLazarus
function GetExpandedString(Index: integer): string;
function GetLengthOfLongestLine: integer;
{$ENDIF}
{end} //mh 2000-10-19
function GetRange(Index: integer): TSynEditRange;
{$IFDEF SYN_LAZARUS}override;{$ENDIF}
procedure Grow;
procedure InsertItem(Index: integer; const S: string);
procedure PutRange(Index: integer; ARange: TSynEditRange);
{$IFDEF SYN_LAZARUS}override;{$ENDIF}
protected
fOnAdded: TStringListIndexEvent;
fOnCleared: TNotifyEvent;
@ -143,7 +135,13 @@ type
fOnLineCountChanged : TStringListLineCountEvent;
function GetExpandedString(Index: integer): string; override;
function GetLengthOfLongestLine: integer; override;
function GetFoldEndLevel(Index: integer): integer; override;
function GetFoldMinLevel(Index: integer): integer; override;
procedure SetFoldEndLevel(Index: integer; const AValue: integer); override;
procedure SetFoldMinLevel(Index: integer; const AValue: integer); override;
{$ENDIF}
function GetRange(Index: integer): TSynEditRange; {$IFDEF SYN_LAZARUS}override;{$ENDIF}
procedure PutRange(Index: integer; ARange: TSynEditRange); {$IFDEF SYN_LAZARUS}override;{$ENDIF}
function Get(Index: integer): string; override;
function GetCapacity: integer;
{$IFDEF SYN_COMPILER_3_UP} override; {$ENDIF} //mh 2000-10-18

1
components/synedit/syngutter.pp
View File

@ -581,7 +581,6 @@ var
rcLine: TRect;
dc: HDC;
CodeFoldOffset: Integer;
begin
Canvas.Brush.Color := Color;
dc := Canvas.Handle;