forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

nothing

This commit is contained in:
Basile Burg 2015-10-17 00:20:12 +02:00
parent bd09d77972
commit 1ef8dfc4f3
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_synmemo.pas
View File

@ -16,7 +16,7 @@ type
TCESynMemo = class; TCESynMemo = class;
TBreakPointModification = (bpAdded, bpRemoved); TBreakPointModification = (bpAdded, bpRemoved);
// breakpoint added or removed // breakpoint added or removed
TBreakPointModifyEvent = procedure(sender: TCESynMemo; line: integer; TBreakPointModifyEvent = procedure(sender: TCESynMemo; line: integer;
@ -26,7 +26,7 @@ type
TCEEditorHintWindow = class(THintWindow) TCEEditorHintWindow = class(THintWindow)
public public
class var FontSize: Integer; class var FontSize: Integer;
function CalcHintRect(MaxWidth: Integer; const AHint: String; function CalcHintRect(MaxWidth: Integer; const AHint: string;
AData: Pointer): TRect; override; AData: Pointer): TRect; override;
end; end;
@ -37,8 +37,8 @@ type
fLineIndex: Integer; fLineIndex: Integer;
fNestedIndex: Integer; fNestedIndex: Integer;
published published
property isCollapsed: boolean read fCollapsed write fCollapsed; property isCollapsed: boolean read fCollapsed write fCollapsed;
property lineIndex: Integer read fLineIndex write fLineIndex; property lineIndex: Integer read fLineIndex write fLineIndex;
property nestedIndex: Integer read fNestedIndex write fNestedIndex; property nestedIndex: Integer read fNestedIndex write fNestedIndex;
end; end;
@ -135,7 +135,7 @@ type
procedure completionExecute(sender: TObject); procedure completionExecute(sender: TObject);
procedure getCompletionList; procedure getCompletionList;
function completionItemPaint(const AKey: string; ACanvas: TCanvas;X, Y: integer; function completionItemPaint(const AKey: string; ACanvas: TCanvas;X, Y: integer;
Selected: boolean; Index: integer): boolean; Selected: boolean; Index: integer): boolean;
procedure completionCodeCompletion(var Value: string; SourceValue: string; procedure completionCodeCompletion(var Value: string; SourceValue: string;
var SourceStart, SourceEnd: TPoint; KeyChar: TUTF8Char; Shift: TShiftState); var SourceStart, SourceEnd: TPoint; KeyChar: TUTF8Char; Shift: TShiftState);
procedure gutterClick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark); procedure gutterClick(Sender: TObject; X, Y, Line: integer; mark: TSynEditMark);