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

messages, add tool btn to show the contextual options

This commit is contained in:
Basile Burg 2018-03-04 16:17:42 +01:00
parent 0a1e1fe3ab
commit e1b07c6168
2 changed files with 45 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
src/ce_messages.lfm
View File

@ -13,15 +13,15 @@ inherited CEMessagesWidget: TCEMessagesWidget
ClientHeight = 159 ClientHeight = 159
ClientWidth = 844 ClientWidth = 844
inherited Content: TPanel inherited Content: TPanel
Height = 125 Height = 123
Top = 34 Top = 36
Width = 844 Width = 844
ClientHeight = 125 ClientHeight = 123
ClientWidth = 844 ClientWidth = 844
PopupMenu = nil PopupMenu = nil
object List: TTreeView[0] object List: TTreeView[0]
Left = 2 Left = 2
Height = 121 Height = 119
Top = 2 Top = 2
Width = 840 Width = 840
Align = alClient Align = alClient
@ -43,13 +43,12 @@ inherited CEMessagesWidget: TCEMessagesWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Height = 28
Width = 836 Width = 836
ButtonWidth = 100
ShowCaptions = True ShowCaptions = True
Wrapable = False Wrapable = False
OnClick = toolbarClick
object sep: TCEToolButton[0] object sep: TCEToolButton[0]
Left = 935 Left = 327
Height = 28 Height = 28
Hint = 'Clean filtered messages' Hint = 'Clean filtered messages'
Top = 0 Top = 0
@ -58,7 +57,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
scaledSeparator = False scaledSeparator = False
end end
object btnSelMisc: TCEToolButton[1] object btnSelMisc: TCEToolButton[1]
Left = 835 Left = 290
Hint = 'filter the other messages' Hint = 'filter the other messages'
Top = 0 Top = 0
AutoSize = True AutoSize = True
@ -66,7 +65,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
scaledSeparator = False scaledSeparator = False
end end
object button2: TCEToolButton[2] object button2: TCEToolButton[2]
Left = 521 Left = 285
Height = 28 Height = 28
Top = 0 Top = 0
AutoSize = True AutoSize = True
@ -75,7 +74,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
scaledSeparator = False scaledSeparator = False
end end
object btnSelApp: TCEToolButton[3] object btnSelApp: TCEToolButton[3]
Left = 421 Left = 204
Hint = 'filter the messages related to Coedit' Hint = 'filter the messages related to Coedit'
Top = 0 Top = 0
AutoSize = True AutoSize = True
@ -83,7 +82,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
scaledSeparator = False scaledSeparator = False
end end
object button4: TCEToolButton[4] object button4: TCEToolButton[4]
Left = 416 Left = 199
Height = 28 Height = 28
Top = 0 Top = 0
AutoSize = True AutoSize = True
@ -92,7 +91,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
scaledSeparator = False scaledSeparator = False
end end
object btnSelProj: TCEToolButton[5] object btnSelProj: TCEToolButton[5]
Left = 316 Left = 146
Hint = 'filter the messages related to the active project' Hint = 'filter the messages related to the active project'
Top = 0 Top = 0
AutoSize = True AutoSize = True
@ -100,7 +99,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
scaledSeparator = False scaledSeparator = False
end end
object button6: TCEToolButton[6] object button6: TCEToolButton[6]
Left = 311 Left = 141
Height = 28 Height = 28
Top = 0 Top = 0
AutoSize = True AutoSize = True
@ -109,7 +108,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
scaledSeparator = False scaledSeparator = False
end end
object btnSelEdit: TCEToolButton[7] object btnSelEdit: TCEToolButton[7]
Left = 211 Left = 95
Hint = 'filter the messages related to the active editor' Hint = 'filter the messages related to the active editor'
Top = 0 Top = 0
AutoSize = True AutoSize = True
@ -117,7 +116,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
scaledSeparator = False scaledSeparator = False
end end
object button8: TCEToolButton[8] object button8: TCEToolButton[8]
Left = 206 Left = 90
Height = 28 Height = 28
Top = 0 Top = 0
AutoSize = True AutoSize = True
@ -126,7 +125,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
scaledSeparator = False scaledSeparator = False
end end
object btnSelAll: TCEToolButton[9] object btnSelAll: TCEToolButton[9]
Left = 106 Left = 62
Hint = 'don''t filter the messages' Hint = 'don''t filter the messages'
Top = 0 Top = 0
AutoSize = True AutoSize = True
@ -136,7 +135,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
end end
object TreeFilterEdit1: TTreeFilterEdit[10] object TreeFilterEdit1: TTreeFilterEdit[10]
Left = 536 Left = 536
Height = 26 Height = 28
Hint = 'in the selected category, filter the messages that contain the text typed here' Hint = 'in the selected category, filter the messages that contain the text typed here'
Top = 1 Top = 1
Width = 299 Width = 299
@ -152,18 +151,30 @@ inherited CEMessagesWidget: TCEMessagesWidget
end end
object btnClearCat: TCEToolButton[11] object btnClearCat: TCEToolButton[11]
Left = 1 Left = 1
Hint = 'Delete the messages stored for the selected category'
Top = 0 Top = 0
AutoSize = True
resourceName = 'CLEAN' resourceName = 'CLEAN'
scaledSeparator = False scaledSeparator = False
end end
object button0: TCEToolButton[12] object sepCat: TCEToolButton[12]
Left = 101 Left = 57
Height = 28 Height = 28
Top = 0 Top = 0
Caption = 'button0' AutoSize = True
Caption = 'sepCat'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False
end end
object btnOpts: TCEToolButton[13]
Left = 29
Hint = 'edit the messages options'
Top = 0
AutoSize = True
OnClick = btnOptsClick
resourceName = 'WRENCH'
scaledSeparator = False
end
end end
end end
inherited contextMenu: TPopupMenu inherited contextMenu: TPopupMenu

14
src/ce_messages.pas
View File

@ -64,6 +64,8 @@ type
TCEMessagesWidget = class(TCEWidget, ICEEditableOptions, ICEDocumentObserver, ICEProjectObserver, ICEMessagesDisplay) TCEMessagesWidget = class(TCEWidget, ICEEditableOptions, ICEDocumentObserver, ICEProjectObserver, ICEMessagesDisplay)
btnClearCat: TCEToolButton; btnClearCat: TCEToolButton;
btnOpts: TCEToolButton;
sepCat: TCEToolButton;
btnSelAll: TCEToolButton; btnSelAll: TCEToolButton;
btnSelApp: TCEToolButton; btnSelApp: TCEToolButton;
btnSelEdit: TCEToolButton; btnSelEdit: TCEToolButton;
@ -76,9 +78,11 @@ type
button8: TCEToolButton; button8: TCEToolButton;
List: TTreeView; List: TTreeView;
TreeFilterEdit1: TTreeFilterEdit; TreeFilterEdit1: TTreeFilterEdit;
procedure btnOptsClick(Sender: TObject);
procedure ListCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; procedure ListCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode;
State: TCustomDrawState; var DefaultDraw: Boolean); State: TCustomDrawState; var DefaultDraw: Boolean);
procedure ListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure ListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure toolbarClick(Sender: TObject);
procedure TreeFilterEdit1AfterFilter(Sender: TObject); procedure TreeFilterEdit1AfterFilter(Sender: TObject);
procedure TreeFilterEdit1ButtonClick(Sender: TObject); procedure TreeFilterEdit1ButtonClick(Sender: TObject);
private private
@ -496,6 +500,11 @@ begin
end; end;
end; end;
procedure TCEMessagesWidget.toolbarClick(Sender: TObject);
begin
end;
procedure TCEMessagesWidget.TreeFilterEdit1AfterFilter(Sender: TObject); procedure TCEMessagesWidget.TreeFilterEdit1AfterFilter(Sender: TObject);
begin begin
fFiltering := TreeFilterEdit1.Filter.isNotEmpty; fFiltering := TreeFilterEdit1.Filter.isNotEmpty;
@ -614,6 +623,11 @@ begin
Sender.Canvas.TextOut(x, rc.Top, node.Text); Sender.Canvas.TextOut(x, rc.Top, node.Text);
DefaultDraw := false; DefaultDraw := false;
end; end;
procedure TCEMessagesWidget.btnOptsClick(Sender: TObject);
begin
getOptionsEditor.showOptionEditor(self as ICEEditableOptions);
end;
{$ENDREGION} {$ENDREGION}
{$REGION ICEEditableOptions ----------------------------------------------------} {$REGION ICEEditableOptions ----------------------------------------------------}