auto dot completion, menu position

This commit is contained in:
Basile Burg 2015-05-22 15:42:31 +02:00
parent c4854d9862
commit 42b48ba231
1 changed files with 2 additions and 2 deletions

View File

@ -667,7 +667,7 @@ begin
end; end;
function TCESynMemo.completionItemPaint(const AKey: string; ACanvas: TCanvas;X, Y: integer; function TCESynMemo.completionItemPaint(const AKey: string; ACanvas: TCanvas;X, Y: integer;
Selected: boolean; Index: integer): boolean; Selected: boolean; Index: integer): boolean;
var var
lft, rgt: string; lft, rgt: string;
len: Integer; len: Integer;
@ -688,7 +688,7 @@ begin
if not fCanAutoDot then exit; if not fCanAutoDot then exit;
if fAutoDotDelay = 0 then exit; if fAutoDotDelay = 0 then exit;
fCanAutoDot := false; fCanAutoDot := false;
fCompletion.Execute('', ClientToScreen(point(CaretXPix, top + CaretYPix))); fCompletion.Execute('', ClientToScreen(point(CaretXPix, CaretYPix + Font.Size)));
end; end;
procedure TCESynMemo.setAutoDotDelay(aValue: Integer); procedure TCESynMemo.setAutoDotDelay(aValue: Integer);