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

messages, add option to auto demangle

This commit is contained in:
Basile Burg 2016-09-28 19:42:08 +02:00
parent e96cc705e2
commit 6daf51bb9c
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_messages.pas
View File

@ -30,6 +30,7 @@ type
fMaxCount: Integer; fMaxCount: Integer;
fAutoSelect: boolean; fAutoSelect: boolean;
fSingleClick: boolean; fSingleClick: boolean;
fAutoDemangle: boolean;
fFont: TFont; fFont: TFont;
fMsgColors: array[TCEAppMessageKind] of TColor; fMsgColors: array[TCEAppMessageKind] of TColor;
procedure setFont(value: TFont); procedure setFont(value: TFont);
@ -37,6 +38,7 @@ type
property fastDisplay: boolean read fFastDisplay write fFastDisplay; property fastDisplay: boolean read fFastDisplay write fFastDisplay;
property maxMessageCount: integer read fMaxCount write fMaxCount; property maxMessageCount: integer read fMaxCount write fMaxCount;
property autoSelect: boolean read fAutoSelect write fAutoSelect; property autoSelect: boolean read fAutoSelect write fAutoSelect;
property autoDemangle: boolean read fAutoDemangle write fAutoDemangle;
property singleMessageClick: boolean read fSingleClick write fSingleClick; property singleMessageClick: boolean read fSingleClick write fSingleClick;
property font: TFont read fFont write setFont; property font: TFont read fFont write setFont;
property colorBuble: TColor read fMsgColors[amkBub] write fMsgColors[amkBub]; property colorBuble: TColor read fMsgColors[amkBub] write fMsgColors[amkBub];
@ -95,6 +97,7 @@ type
fDoc: TCESynMemo; fDoc: TCESynMemo;
fCtxt: TCEAppMessageCtxt; fCtxt: TCEAppMessageCtxt;
fAutoSelect: boolean; fAutoSelect: boolean;
fAutoDemangle: boolean;
fSingleClick: boolean; fSingleClick: boolean;
fastDisplay: boolean; fastDisplay: boolean;
fOptions: TCEMessagesOptions; fOptions: TCEMessagesOptions;
@ -162,6 +165,7 @@ type
// //
property maxMessageCount: Integer read fMaxMessCnt write setMaxMessageCount; property maxMessageCount: Integer read fMaxMessCnt write setMaxMessageCount;
property autoSelectCategory: boolean read fAutoSelect write setAutoSelectCategory; property autoSelectCategory: boolean read fAutoSelect write setAutoSelectCategory;
property autoDEmangle: boolean read fAutoDemangle write fAutoDemangle;
property singleMessageClick: boolean read fSingleClick write setSingleMessageClick; property singleMessageClick: boolean read fSingleClick write setSingleMessageClick;
// //
property colorBuble: TColor read fMsgColors[amkBub] write setColorBuble; property colorBuble: TColor read fMsgColors[amkBub] write setColorBuble;
@ -213,6 +217,7 @@ begin
fFont.Assign(opts.font); fFont.Assign(opts.font);
fMaxCount := opts.fMaxCount; fMaxCount := opts.fMaxCount;
fAutoSelect := opts.fAutoSelect; fAutoSelect := opts.fAutoSelect;
fAutoDemangle:= opts.fAutoDemangle;
fSingleClick := opts.fSingleClick; fSingleClick := opts.fSingleClick;
fFastDisplay := opts.fFastDisplay; fFastDisplay := opts.fFastDisplay;
fMsgColors := opts.fMsgColors; fMsgColors := opts.fMsgColors;
@ -227,6 +232,7 @@ begin
fSingleClick := widg.fSingleClick; fSingleClick := widg.fSingleClick;
fFastDisplay := widg.fastDisplay; fFastDisplay := widg.fastDisplay;
fMsgColors := widg.fMsgColors; fMsgColors := widg.fMsgColors;
fAutoDemangle:= widg.fAutoDemangle;
end end
else inherited; else inherited;
end; end;
@ -244,6 +250,7 @@ begin
widg.singleMessageClick := fSingleClick; widg.singleMessageClick := fSingleClick;
widg.fastDisplay:= fFastDisplay; widg.fastDisplay:= fFastDisplay;
widg.fMsgColors := fMsgColors; widg.fMsgColors := fMsgColors;
widg.fAutoDemangle:=fAutoDemangle;
end end
else inherited; else inherited;
end; end;
@ -744,7 +751,10 @@ var
msg: string; msg: string;
begin begin
showWidget; showWidget;
msg := value; case fAutoDemangle of
false: msg := value;
true: msg := demangle(value);
end;
if aKind = amkAuto then if aKind = amkAuto then
aKind := guessMessageKind(msg); aKind := guessMessageKind(msg);
if aCtxt = amcAutoCompile then if aCtxt = amcAutoCompile then