paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 22:09:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: show hint modifier for some identifiers

Browse Source 
git-svn-id: trunk@30688 -
This commit is contained in:
paul 2011-05-12 01:56:05 +00:00
parent a823a1c12a
commit a415be4b0a
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/sourceeditprocs.pas
View File

@ -112,6 +112,16 @@ function PaintCompletionItem(const AKey: string; ACanvas: TCanvas;
X, Y, MaxX: integer; ItemSelected: boolean; Index: integer;
aCompletion : TSynCompletion; CurrentCompletionType: TCompletionType;
Highlighter: TSrcIDEHighlighter; MeasureOnly: Boolean): TPoint;
const
HintModifierImage: array[TPascalHintModifier] of String = (
{ phmDeprecated } 'ce_deprecated',
{ phmPlatform } 'ce_platform',
{ phmLibrary } 'ce_library',
{ phmUnimplemented } 'ce_unimplemented',
{ phmExperimental } 'ce_experimental'
);
var
BGRed: Integer;
BGGreen: Integer;
@ -225,6 +235,7 @@ var
IsReadOnly: boolean;
ImageIndex: longint;
HintModifiers: TPascalHintModifiers;
HintModifier: TPascalHintModifier;
begin
ForegroundColor := ColorToRGB(ACanvas.Font.Color);
Result.X := 0;
@ -344,10 +355,14 @@ begin
end;
ACanvas.Font.Style:=ACanvas.Font.Style-[fsBold];
if ImageIndex<0 then begin
HintModifiers:=IdentItem.GetHintModifiers;
if HintModifiers<>[] then
ImageIndex:=IDEImages.LoadImage(16,'ce_property_readonly');
if ImageIndex <= 0 then
begin
HintModifiers := IdentItem.GetHintModifiers;
for HintModifier in HintModifiers do
begin
ImageIndex := IDEImages.LoadImage(16, HintModifierImage[HintModifier]);
break;
end;
end;
// paint icon