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

26
src/ce_search.pas
View File

@ -86,10 +86,6 @@ type
procedure docFocused(aDoc: TCESynMemo); procedure docFocused(aDoc: TCESynMemo);
procedure docChanged(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 actFindNextExecute(sender: TObject);
procedure actReplaceNextExecute(sender: TObject); procedure actReplaceNextExecute(sender: TObject);
end; end;
@ -171,6 +167,7 @@ constructor TCESearchWidget.Create(aOwner: TComponent);
var var
fname: string; fname: string;
begin begin
inherited;
fActFindNext := TAction.Create(self); fActFindNext := TAction.Create(self);
fActFindNext.Caption := 'Find'; fActFindNext.Caption := 'Find';
fActFindNext.OnExecute := @actFindNextExecute; fActFindNext.OnExecute := @actFindNextExecute;
@ -180,7 +177,6 @@ begin
fActReplaceAll := TAction.Create(self); fActReplaceAll := TAction.Create(self);
fActReplaceAll.Caption := 'Replace all'; fActReplaceAll.Caption := 'Replace all';
fActReplaceAll.OnExecute := @actReplaceAllExecute; fActReplaceAll.OnExecute := @actReplaceAllExecute;
inherited;
// //
fSearchMru := TCEMruList.Create; fSearchMru := TCEMruList.Create;
fReplaceMru:= TCEMruList.Create; fReplaceMru:= TCEMruList.Create;
@ -220,26 +216,6 @@ end;
{$ENDREGION} {$ENDREGION}
{$REGION ICEContextualActions---------------------------------------------------} {$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; function TCESearchWidget.getOptions: TSynSearchOptions;
begin begin
result := []; result := [];