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

added fast clean msg btn

This commit is contained in:
Basile Burg 2014-11-14 23:09:10 +01:00
parent c67abe2ac9
commit 83327ccfb8
2 changed files with 76 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
src/ce_messages.lfm
View File

@ -56,73 +56,123 @@ inherited CEMessagesWidget: TCEMessagesWidget
TabOrder = 1 TabOrder = 1
Wrapable = False Wrapable = False
object btnSelAll: TToolButton object btnSelAll: TToolButton
Left = 1 Left = 33
Hint = 'unfiltered messages' Hint = 'unfiltered messages'
Top = 2 Top = 2
Caption = 'All' Caption = 'All'
Down = True Down = True
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 101 Left = 133
Top = 2 Top = 2
Width = 5 Width = 5
Caption = 'ToolButton2' Caption = 'ToolButton2'
Style = tbsDivider Style = tbsDivider
end end
object btnSelEdit: TToolButton object btnSelEdit: TToolButton
Left = 106 Left = 138
Hint = 'messages related to the current document' Hint = 'messages related to the current document'
Top = 2 Top = 2
Caption = 'Editor' Caption = 'Editor'
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 206 Left = 238
Top = 2 Top = 2
Width = 5 Width = 5
Caption = 'ToolButton4' Caption = 'ToolButton4'
Style = tbsDivider Style = tbsDivider
end end
object btnSelProj: TToolButton object btnSelProj: TToolButton
Left = 211 Left = 243
Hint = 'message related to the current project' Hint = 'message related to the current project'
Top = 2 Top = 2
Caption = 'Project' Caption = 'Project'
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 311 Left = 343
Top = 2 Top = 2
Width = 5 Width = 5
Caption = 'ToolButton8' Caption = 'ToolButton8'
Style = tbsDivider Style = tbsDivider
end end
object btnSelApp: TToolButton object btnSelApp: TToolButton
Left = 316 Left = 348
Hint = 'messages related to Coedit' Hint = 'messages related to Coedit'
Top = 2 Top = 2
Caption = 'Application' Caption = 'Application'
end end
object ToolButton10: TToolButton object ToolButton10: TToolButton
Left = 416 Left = 448
Top = 2 Top = 2
Width = 5 Width = 5
Caption = 'ToolButton10' Caption = 'ToolButton10'
Style = tbsDivider Style = tbsDivider
end end
object btnSelMisc: TToolButton object btnSelMisc: TToolButton
Left = 421 Left = 453
Hint = 'miscellaneous messages, custom tools output, etc' Hint = 'miscellaneous messages, custom tools output, etc'
Top = 2 Top = 2
Caption = 'Misc.' Caption = 'Misc.'
end end
object btnClearCat: TBitBtn
Left = 1
Height = 24
Top = 2
Width = 27
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00015F9000002B
550001568600002B5500014C7B00002B550000315C47002D57CC002C56CC002B
5548002C570000335E00003C680001010100014B7900014B7A00015F9000002B
550001568600002B5500014C7B00002B5548002B55CC5494B7FF34679AFF0030
5ACA002D584800335E00003C680001010100014B7900014B7A00015F9000002B
550001568600002B5500014D7C41014B79BB3A719FFF386F9DFF5F9FC0FF4578
ABFF003763C600356046003C680001010100014B7900014B7A00015F9000002B
550001568600002B5548002B55CC4F8DB3FF68ACC8FF4880ACFF5087B3FF6AAA
C8FF5588BBFF00416EC1003E6A4401010100014B7900014B7A00015F9000002B
55000157873F015585B65FA1C0FF3F79A3FF4278A7FF66A6C5FF619DC2FF5E95
C1FF74B4D1FF6598CBFF010101AB0101013C014B7900014B7A00015F9000002B
5548002B55CC336898FF508CB3FF69ABC8FF67A7C6FF4D80B3FF71B1CEFF6EA9
CDFF6CA3CEFF6D6D6DFFAA9999FF010101A5014C7A42014B7A000160913E015E
8FB16AAEC9FF66A8C5FF5692B8FF4B80AFFF5D97BFFF77B9D2FF669DC8FF7BBA
D5FF7E7E7EFFCEC0C0FF797979FF5588BBFF014F7EA6014E7D0001629383126D
9BB82078A2C33385ABD058A2C0E774B9D1FB6EACCCFF669DC8FF83C7DAFF8888
88FFD3CACAFF838383FF60A4C6FF63A7C9FF015382A501528100016395050163
9414016293280161924101619277106C9AAB4B9BBADB79B9D5FC919191FFD9D4
D4FF8D8D8DFF68ACCEFF74B8D4FF015887B40156864001558400016395000163
9400016293000161920001629300016293100162936D00000069DDDCDCFF9494
94FF70B4D6FF80C4DBFF015C8DB2001A63CC0013584800226E00016395000163
94000162930001619200016293000162930001639400000000240000006788CC
DDFF87CBDDFF016091AF003080CC3F72B6FF002774CC00247048016395000163
940001629300016192000162930001629300016394000000000001334C390165
969C0164959C0163943E00398B48003688CC5285C9FF002E7ECC016395000163
940001629300016192000162930001629300016394000000000001334C000165
97000164960001639400003A8C00003E9248003C8FCC00378A48FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
TabOrder = 0
end
object ToolButton1: TToolButton
Left = 28
Top = 2
Width = 5
Caption = 'ToolButton1'
Style = tbsDivider
end
end end
end end
end end
inherited contextMenu: TPopupMenu inherited contextMenu: TPopupMenu
left = 16 left = 32
top = 40 top = 40
end end
object imgList: TImageList[2] object imgList: TImageList[2]
left = 56 left = 72
top = 40 top = 40
Bitmap = { Bitmap = {
4C69050000001000000010000000CF986200D1996200D1996234D0965DBCCF94 4C69050000001000000010000000CF986200D1996200D1996234D0965DBCCF94

25
src/ce_messages.pas
View File

@ -6,8 +6,9 @@ interface
uses uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, ComCtrls, Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, ComCtrls,
lcltype, ce_widget, ActnList, Menus, clipbrd, AnchorDocking, process, asyncprocess, lcltype, ce_widget, ActnList, Menus, clipbrd, AnchorDocking, process,
ce_common, ce_project, ce_synmemo, ce_dlangutils, ce_interfaces, ce_observer; asyncprocess, Buttons, ce_common, ce_project, ce_synmemo, ce_dlangutils,
ce_interfaces, ce_observer;
type type
@ -22,10 +23,12 @@ type
{ TCEMessagesWidget } { TCEMessagesWidget }
TCEMessagesWidget = class(TCEWidget, ICEMultiDocObserver, ICEProjectObserver, ICELogMessageObserver) TCEMessagesWidget = class(TCEWidget, ICEMultiDocObserver, ICEProjectObserver, ICELogMessageObserver)
btnClearCat: TBitBtn;
imgList: TImageList; imgList: TImageList;
List: TTreeView; List: TTreeView;
selCtxt: TToolBar; selCtxt: TToolBar;
btnSelAll: TToolButton; btnSelAll: TToolButton;
ToolButton1: TToolButton;
ToolButton10: TToolButton; ToolButton10: TToolButton;
btnSelMisc: TToolButton; btnSelMisc: TToolButton;
ToolButton2: TToolButton; ToolButton2: TToolButton;
@ -38,7 +41,7 @@ type
procedure ListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure ListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
private private
fActClearAll: TAction; fActClearAll: TAction;
fActClearEdi: TAction; fActClearCurCat: TAction;
fActSaveMsg: TAction; fActSaveMsg: TAction;
fActCopyMsg: TAction; fActCopyMsg: TAction;
fActSelAll: TAction; fActSelAll: TAction;
@ -48,7 +51,7 @@ type
fCtxt: TCEAppMessageCtxt; fCtxt: TCEAppMessageCtxt;
procedure filterMessages(aCtxt: TCEAppMessageCtxt); procedure filterMessages(aCtxt: TCEAppMessageCtxt);
procedure clearOutOfRangeMessg; procedure clearOutOfRangeMessg;
procedure actClearEdiExecute(Sender: TObject); procedure actClearCurCatExecute(Sender: TObject);
procedure actClearAllExecute(Sender: TObject); procedure actClearAllExecute(Sender: TObject);
procedure actSaveMsgExecute(Sender: TObject); procedure actSaveMsgExecute(Sender: TObject);
procedure actCopyMsgExecute(Sender: TObject); procedure actCopyMsgExecute(Sender: TObject);
@ -108,9 +111,9 @@ begin
fActClearAll := TAction.Create(self); fActClearAll := TAction.Create(self);
fActClearAll.OnExecute := @actClearAllExecute; fActClearAll.OnExecute := @actClearAllExecute;
fActClearAll.caption := 'Clear all messages'; fActClearAll.caption := 'Clear all messages';
fActClearEdi := TAction.Create(self); fActClearCurCat := TAction.Create(self);
fActClearEdi.OnExecute := @actClearEdiExecute; fActClearCurCat.OnExecute := @actClearCurCatExecute;
fActClearEdi.caption := 'Clear editor messages'; fActClearCurCat.caption := 'Clear filtered messages';
fActCopyMsg := TAction.Create(self); fActCopyMsg := TAction.Create(self);
fActCopyMsg.OnExecute := @actCopyMsgExecute; fActCopyMsg.OnExecute := @actCopyMsgExecute;
fActCopyMsg.Caption := 'Copy message(s)'; fActCopyMsg.Caption := 'Copy message(s)';
@ -132,6 +135,8 @@ begin
btnSelApp.OnClick := @selCtxtClick; btnSelApp.OnClick := @selCtxtClick;
btnSelAll.OnClick := @selCtxtClick; btnSelAll.OnClick := @selCtxtClick;
// //
btnClearCat.OnClick := @actClearCurCatExecute;
//
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
EntitiesConnector.endUpdate; EntitiesConnector.endUpdate;
end; end;
@ -237,7 +242,7 @@ function TCEMessagesWidget.contextAction(index: integer): TAction;
begin begin
case index of case index of
0: result := fActClearAll; 0: result := fActClearAll;
1: result := fActClearEdi; 1: result := fActClearCurCat;
2: result := fActCopyMsg; 2: result := fActCopyMsg;
3: result := fActSelAll; 3: result := fActSelAll;
4: result := fActSaveMsg; 4: result := fActSaveMsg;
@ -250,9 +255,9 @@ begin
lmClearbyContext(amcAll); lmClearbyContext(amcAll);
end; end;
procedure TCEMessagesWidget.actClearEdiExecute(Sender: TObject); procedure TCEMessagesWidget.actClearCurCatExecute(Sender: TObject);
begin begin
lmClearbyData(@fDoc); lmClearbyContext(fCtxt);
end; end;
procedure TCEMessagesWidget.actCopyMsgExecute(Sender: TObject); procedure TCEMessagesWidget.actCopyMsgExecute(Sender: TObject);