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

editor, completion menu, decorate the comp kind

This commit is contained in:
Basile Burg 2016-11-06 17:03:27 +01:00
parent f9f9383ab4
commit 6457a91839
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/ce_synmemo.pas
View File

@ -1949,7 +1949,7 @@ begin
//
fCompletion.Position := 0;
fCompletion.ItemList.Clear;
DcdWrapper.getComplAtCursor(fCompletion.ItemList);
DcdWrapper.getComplAtCursor(TStringList(fCompletion.ItemList));
if fLastCompletion.isNotEmpty then
begin
i := fCompletion.ItemList.IndexOf(fLastCompletion);
@ -1976,6 +1976,7 @@ end;
function TCESynMemo.completionItemPaint(const AKey: string; ACanvas: TCanvas;X, Y: integer;
Selected: boolean; Index: integer): boolean;
var
dck: TDCDCompletionKind;
knd: string;
len: Integer;
begin
@ -1984,12 +1985,26 @@ begin
if aKey.isEmpty then
exit;
{$PUSH} {$Warnings OFF} {$Hints OFF}
knd := DcdCompletionKindStrings[TDCDCompletionKind(
PtrUInt(fCompletion.ItemList.Objects[index]))];
dck := TDCDCompletionKind(PtrUInt(fCompletion.ItemList.Objects[index]));
knd := DcdCompletionKindStrings[dck];
{$POP}
ACanvas.Font.Style := [fsBold];
len := ACanvas.TextExtent(aKey).cx;
ACanvas.TextOut(2 + X , Y, aKey);
case dck of
dckALias, dckClass, dckStruct, dckUnion, dckEnum, dckInterface:
ACanvas.Font.Color:= clMaroon;
dckMember, dckEnum_member, dckVariable, dckArray, dckAA:
ACanvas.Font.Color:= clGray;
dckReserved:
ACanvas.Font.Color:= clNavy;
dckFunction:
ACanvas.Font.Color:= clGreen;
dckPackage, dckModule:
ACanvas.Font.Color:= clBlue;
dckTemplate, dckMixin:
ACanvas.Font.Color:= clTeal;
end;
ACanvas.Font.Style := [fsItalic];
ACanvas.TextOut(2 + X + len + 2, Y, knd);
end;