Testers needed for GExperts Instant Grep expert

[dummzeuch 1505]

46 minutes ago, baka0815 said:

So, something like this?

Filename.pas | if (True) then
Line 1234    |   DoSomething()
             | else
-------------+---------------------------
Filename.pas | // Comment
Line 4567    | DoSomething();
             |

 

Yes.

[ULIK 16]

I have change the code a little bit and this is my current result of Instant Grep dialog:

 

 

If the active editor file changes, the dialog changes it's caption too. If you are interested, I can send the necessary modifications.

[dummzeuch 1505]

1 hour ago, ULIK said:

I have change the code a little bit and this is my current result of Instant Grep dialog:

 

 

If the active editor file changes, the dialog changes it's caption too. If you are interested, I can send the necessary modifications.

I'm always interested in possible improvements.

[ULIK 16]

I have attached you a Subversion patch file. It's just a quick&dirty change, so have a look on it (especially for the new resource string. This might not be necessary).

GX_GrepInstantGrep.pas.patch

[Stefan Glienke 2002]

Putting the line number to the left into a gutter just like in the editor would save a lot of vertical space - take a look at the Notepad++ search results window

Edited October 18, 2023 by Stefan Glienke

[dummzeuch 1505]

2 hours ago, Stefan Glienke said:

Putting the line number to the left into a gutter just like in the editor would save a lot of vertical space

Yes, I was thinking about that already but didn't find the time to check it out yet.

[dummzeuch 1505]

4 hours ago, ULIK said:

I have attached you a Subversion patch file. It's just a quick&dirty change, so have a look on it (especially for the new resource string. This might not be necessary).

GX_GrepInstantGrep.pas.patch

Thanks. Commited as revision #4070. I have made a small change thoug: I prefixed the file name to "- instant grep" like it is shown in e.g. the project manager window so the importantpart (the file name) is visible even if the window is too narrow to display the full title.

 

An unfortunate side effect is that the original position entry now doesn't even show "original position" in the caption. It needs some other way to be distinguished from the other entries.

[ULIK 16]

Minor glitch: label l_PressEsc should set Layout to tlCenter to align it with checkbox (but I'm not sure, if this property is available back to Delphi 7).

 

A suggestion for an interim solution for the missing 'Original Position':

procedure PaintFileHeader(_Rect: TRect);
...
LineText := Format(SLine, [Res.Idx + 1]);
    
// Add additional text for original position, which is always the very first entry on listbox
if _Index = 0 then
  LineText := LineText + ' (' + Module + ')';
...

You might also use a different color for original position:

 

procedure PaintLines(_Rect: TRect);
...
    if odSelected in _State then begin
      BGNormal := clHighLight;
      LbCanvas.Font.Color := clHighLightText;
      BGMatch := BGNormal;
    end else if _Index = 0 then begin  // as original position is not a real result, just let it gray
      BGNormal := clBtnFace;
      LbCanvas.Font.Color := clWindowText;
      BGMatch := BGNormal;
    end else begin
      BGNormal := clWindow;
      LbCanvas.Font.Color := clWindowText;
      BGMatch := RGB(250, 255, 230);
    end;

 

 

Just some ideas, but a gutter would be much better. Feel free to add what you like.

[ULIK 16]

I played around with this expert and added two things:

- display with gutter:

 

 

- two buttons to refresh or clear results: refresh can be used, when typing something on editor itself that modifies the result positions.

 

If you like it, feel free to add it to repository. Please note: all modifications were only tested on Delphi XE11, but they should run on earlier versions too. As I'm not familiar with GX development: I have simply assigned two icons from GX Icon folder to speedbutton glyph, which probably is not the common way for GX. So you might change this to better fit the GX universe.

 

Attached is a patch file with my changes:

InstantGrepWithGutter.patch

Edited October 25, 2023 by ULIK

[dummzeuch 1505]

3 hours ago, ULIK said:

I played around with this expert and added two things:

- display with gutter:

- two buttons to refresh or clear results: refresh can be used, when typing something on editor itself that modifies the result positions.

Thanks! I was about to add these two myself, the next time I find some free time. Having your patch will make that happen a lot faster. I still need some time for this anyway.

3 hours ago, ULIK said:

As I'm not familiar with GX development: I have simply assigned two icons from GX Icon folder to speedbutton glyph, which probably is not the common way for GX. So you might change this to better fit the GX universe.

You are correct. The right way is to use the image lists in Source\Framework\GX_SharedImages, or since Delphi 11, to assign these lists at runtime. See any of the dialogs that have a tool bar on how this is done.

[dummzeuch 1505]

57 minutes ago, dummzeuch said:

I still need some time for this anyway.

I just made some time for it. I have quite a bit of overtime to work off anyway.

#revision 4072

Edited October 25, 2023 by dummzeuch

[ULIK 16]

Thanks!

[Pat Foley 51]

Here's my shot at it. Leaving GExperts as is and extend functionality with outside exe.  There's a fantastic amount of work in GExperts and I am learning a lot reviewing the source and the comments in @dummzeuch Blog is quite helpful. Thanks.    

 

Running a task bar manager surfaces the GExperts showing in other desktops. What's interesting GExperts moves the active Delphi instance behind the taskbar with only the titlebar showing. Unsure here some GExperts hide with Delphi instance and docking forms get a taskbar icon.       

[dummzeuch 1505]

"Jump List for Delphi 11" is the "jump list" for the Delph icon on the taskbar, that is the popup menu you get when you click on that icon with the right mouse button. That's a Windows feature.

[Pat Foley 51]

Thanks does GExperts have anything that looks at file age, I found that mentioned in Ray Lischner Hidden Paths of Delphi 3  wooden book.  Then look at timestamps of the DCU to if the Build all compile processed everything. Sometimes the source needs saved first.  GExperts actually catches when a license check fails which again is some good work.     

[dummzeuch 1505]

37 minutes ago, Pat Foley said:

Does GExperts have anything that looks at file age, I found that mentioned in Ray Lischner Hidden Paths of Delphi 3  wooden book.  Then look at timestamps of the DCU to if the Build all compile processed everything. Sometimes the source needs saved first.  GExperts actually catches when a license check fails which again is some good work.     

I'm not quite sure what you mean here. The Delphi compiler automatically checks if the internal timestamp of a dcu file is older than the currentl source code of a unit and recompiles it, if necessary. But what exactly does hat have to do with GExperts?

[Pat Foley 51]

20 minutes ago, dummzeuch said:

...the internal timestamp of a dcu file is older than the currentl source code of a unit and recompiles it, if necessary. But what exactly does hat have to do with GExperts?

I plan to code an expert to verify the dcus are kept current with current source code because sometimes the current source code needs saved before the dcus are recompiled. I need to simply review and learn more before making additional comment.

 

 

Edited November 3, 2023 by Pat Foley
Change but to because.

[dummzeuch 1505]

If you were seeing an access violation with a self compiled GExperts DLL and the latest code, you should update the sources to at least revsion #4079. I fixed a bug there that caused an AV.

[Ian Branch 127]

Rev 4079 D11.3.1:

On download:

Restored 'GExperts\ExternalSource\OmniXML.pas'
Skipped 'GExperts\Source\Grep\GX_GrepInstantGrep.pas' -- Node remains in conflict
Checked out revision 4079.

 

On Build:

GExpertsRS110.dpr(258): error F1026: File not found: '..\..\Source\Grep\GX_GrepInstantGrep.pas' [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj]
Done Building Project "D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target(s)) -- FAILED.

Build FAILED.

"D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target) (1) ->
(_PasCoreCompile target) ->
  GExpertsRS110.dpr(258): error F1026: File not found: '..\..\Source\Grep\GX_GrepInstantGrep.pas' [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj]

    0 Warning(s)
    1 Error(s)

 

Edited November 4, 2023 by Ian Branch

[KHJ 8]

With SVN Tortoise Update and Alexandria (11.3) no issues for me and no access violation.

[Ian Branch 127]

Interesting.

I just repeated the download/build process, I had done it twice before with the result as reported above, this time all is good.  Download and build, no issues.

The errors I were getting when exiting Delphi have also seem to have disappeared.  Fingers crossed.  😉