[Solved] How to Add Google Search to popupmenu in Editor.

[loaded]

Hi All,
Can I add items to the popup menu on the editor?
In the menu I added;
What do I need to do to be able to use the selected text on the editor in Google Searches?

[winni]

Hi!

A simple solution:

Code: Pascal  [Select][+][-]

1. uses ...,LCLIntf;
2.  
3. procedure TForm1.Button1Click(Sender: TObject);
4. var s : string;
5.     i: integer;
6. begin
7. s := edit1.text;
8. for i := 1 to length(s) do
9.    if s[i] = #32 then s[i] := '+';
10. openUrl('https://www.google.com/search?q='+s);
11. end;                

Winni

[loaded]

Thank you very much for reply winni.
Yes it can be done with external code, but I want the IDE to do it.

[Thaddy]

Michael van Canneyt wrote a tutorial on how to extend the Lazarus IDE.
See https://www.freepascal.org/~michael/articles/lazide3/lazide3.pdf
It is rather old, though. I have no idea how current it is.

[loaded]

Thank you very much for reply Thaddy.
Yes this looks like a nice resource, I hope it helps me achieve what I want.

[GetMem]

@loaded

This is quite simple. Create a DesignTime only package, add the following code on the registration method:

Code: Pascal  [Select][+][-]

1. uses MenuIntf, SrcEditorIntf, LCLIntf;  
2.  
3. procedure DoOnMenuClick;
4. var
5.   Str: String;
6.   I: Integer;
7. begin
8.   Str := SourceEditorManagerIntf.ActiveSourceWindow.ActiveEditor.Selection;
9.   //apply winni sugestion here
10.   for I := 1 to length(Str) do
11.     if Str[I] = #32 then
12.       Str[I] := '+';
13.   OpenUrl('https://www.google.com/search?q=' + Str);
14. end;
15.  
16. procedure Register;
17. var
18.   IDEMenuItem: TIDEMenuItem;
19.   M: TMethod;
20. begin
21.   IDEMenuItem := TIDEMenuItem.Create('Google search...');
22.   M.Data := nil;
23.   M.Code := @DoOnMenuClick;
24.   IDEMenuItem.OnClick := TNotifyEvent(M);
25.   SourceEditorMenuRoot.AddFirst(IDEMenuItem);
26. end;
27.  

Compile then install the package.



PS: Actually this is very good idea. It should be implemented in Lazarus trunk, directly in sourceeditor not in a package of course.

[loaded]

Master Getmem, once again I express my gratitude to you. Numbers are not enough to say thank you anymore.
Thanks to you, I both solved my problem and made me sweat a bit, but I wrote my first package.
Maybe it will help someone;
I'm attaching the package I wrote here, it may be an amateur, don't laugh. 
May God increase your knowledge.

[GetMem]

@loaded

You're welcome! Small correction: you should check if the string is empty before opening the browser:

Code: Pascal  [Select][+][-]

1. uses Dialogs;
2.  
3. procedure DoOnMenuClick(Sender: TObject);
4. var
5.   Str: String;
6.   I: Integer;
7. begin
8.   Str := SourceEditorManagerIntf.ActiveSourceWindow.ActiveEditor.Selection;
9.   if Trim(Str) = '' then //add this
10.   begin
11.     MessageDlg('Please select something first!', mtInformation, [mbOk], 0);
12.     Exit;
13.   end;
14.   //apply winni sugestion here
15.   for I := 1 to length(Str) do
16.     if Str[I] = #32 then
17.       Str[I] := '+';
18.   OpenUrl('https://www.google.com/search?q=' + Str);
19. end;

Also instead of google use DuckDuckGo.

[loaded]

Master Getmem, yes, you are right as usual, I am making the relevant corrections.
There is so much to learn from you Masters !!!