rename showCallTips overload that takes a string

This commit is contained in:
Basile Burg 2018-08-03 21:22:22 +02:00
parent 77efdfedc0
commit c1375df3d0
1 changed files with 4 additions and 4 deletions

View File

@ -267,7 +267,7 @@ type
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 showCallTips(const tips: string); procedure showCallTipsString(const tips: string);
function lexCanCloseBrace: boolean; function lexCanCloseBrace: boolean;
function canInsertLeadingDdocSymbol: char; function canInsertLeadingDdocSymbol: char;
procedure handleStatusChanged(Sender: TObject; Changes: TSynStatusChanges); procedure handleStatusChanged(Sender: TObject; Changes: TSynStatusChanges);
@ -2597,14 +2597,14 @@ begin
{$ELSE} {$ELSE}
str := str[1..str.length-1]; str := str[1..str.length-1];
{$ENDIF} {$ENDIF}
showCallTips(str); showCallTipsString(str);
end; end;
end; end;
if findOpenParen then if findOpenParen then
CaretX:=x; CaretX:=x;
end; end;
procedure TCESynMemo.showCallTips(const tips: string); procedure TCESynMemo.showCallTipsString(const tips: string);
var var
pnt: TPoint; pnt: TPoint;
begin begin
@ -2636,7 +2636,7 @@ begin
if fCallTipStrings.Count = 0 then if fCallTipStrings.Count = 0 then
hideCallTips hideCallTips
else else
showCallTips(fCallTipStrings.Text); showCallTipsString(fCallTipStrings.Text);
end; end;
procedure TCESynMemo.showDDocs; procedure TCESynMemo.showDDocs;