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

remove context menu from the search widget

This commit is contained in:
Basile Burg 2015-09-08 00:07:46 +02:00
parent a8f2f442d4
commit 9bc1db76ca
2 changed files with 7 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_search.lfm
View File

@ -130,7 +130,7 @@ inherited CESearchWidget: TCESearchWidget
Caption = 'Options'
ClientHeight = 77
ClientWidth = 382
TabOrder = 3
TabOrder = 4
object chkWWord: TCheckBox
Left = 8
Height = 23
@ -147,7 +147,7 @@ inherited CESearchWidget: TCESearchWidget
Top = 24
Width = 75
Caption = 'backward'
TabOrder = 2
TabOrder = 1
end
object chkFromCur: TCheckBox
Left = 8
@ -157,7 +157,7 @@ inherited CESearchWidget: TCESearchWidget
Caption = 'from cursor'
Checked = True
State = cbChecked
TabOrder = 3
TabOrder = 2
end
object chkCaseSens: TCheckBox
Left = 128
@ -165,7 +165,7 @@ inherited CESearchWidget: TCESearchWidget
Top = 0
Width = 95
Caption = 'case sensitive'
TabOrder = 4
TabOrder = 3
end
object chkPrompt: TCheckBox
Left = 128
@ -173,7 +173,7 @@ inherited CESearchWidget: TCESearchWidget
Top = 24
Width = 64
Caption = 'prompt'
TabOrder = 1
TabOrder = 4
end
object chkRegex: TCheckBox
Left = 128
@ -230,7 +230,7 @@ inherited CESearchWidget: TCESearchWidget
4766E69547FFE69A4EFFE2904122FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
TabOrder = 4
TabOrder = 3
end
object Panel1: TPanel[5]
Left = 4

26
src/ce_search.pas
View File

@ -86,10 +86,6 @@ type
procedure docFocused(aDoc: TCESynMemo);
procedure docChanged(aDoc: TCESynMemo);
//
function contextName: string; override;
function contextActionCount: integer; override;
function contextAction(index: integer): TAction; override;
//
procedure actFindNextExecute(sender: TObject);
procedure actReplaceNextExecute(sender: TObject);
end;
@ -171,6 +167,7 @@ constructor TCESearchWidget.Create(aOwner: TComponent);
var
fname: string;
begin
inherited;
fActFindNext := TAction.Create(self);
fActFindNext.Caption := 'Find';
fActFindNext.OnExecute := @actFindNextExecute;
@ -180,7 +177,6 @@ begin
fActReplaceAll := TAction.Create(self);
fActReplaceAll.Caption := 'Replace all';
fActReplaceAll.OnExecute := @actReplaceAllExecute;
inherited;
//
fSearchMru := TCEMruList.Create;
fReplaceMru:= TCEMruList.Create;
@ -220,26 +216,6 @@ end;
{$ENDREGION}
{$REGION ICEContextualActions---------------------------------------------------}
function TCESearchWidget.contextName: string;
begin
exit('Search');
end;
function TCESearchWidget.contextActionCount: integer;
begin
exit(3);
end;
function TCESearchWidget.contextAction(index: integer): TAction;
begin
case index of
0: exit(fActFindNext);
1: exit(fActReplaceNext);
2: exit(fActReplaceAll);
else exit(nil);
end;
end;
function TCESearchWidget.getOptions: TSynSearchOptions;
begin
result := [];