GExperts 1.3.20 experimental twm 2022-01-30 released

[dummzeuch 1505]

The new GExperts version still supports all Delphi versions back to Delphi 6 (with the notable exception of Delphi 😎 and even the Delphi 11 version is no longer in Alpha state (but it’s still beta, there will be glitches!). Support for per monitor DPI awareness should now work (in Delphi 11, and definitely better than in the IDE itself).

There are even a few new features ...

 

Read on in the blog post.

[Ian Branch 127]

Hi Thomas,

Thank you once again for all your work on and support for GExperts.

Greatly appreciated.

Ian

[emileverh 21]

Thank you for all the good work!!

[Ralf Kaiser 2]

This version works as expected (i have found no error during work so far)

 

However when i quit Delphi i get a lot of access violations when GExperts shuts down:

 

GExperts error destroying expert 1 - GrepMenuEntry: Zugriffsverletzung bei Adresse 50171CD8 in Modul 'rtl280.bpl'. Lesen von Adresse 1FB444A0
GExperts error destroying expert 3 - ExpertManager: Zugriffsverletzung bei Adresse 50171CD8 in Modul 'rtl280.bpl'. Lesen von Adresse 1FB444A0
GExperts error destroying expert 4 - TAddDockWindowExpert: Zugriffsverletzung bei Adresse 50171CD8 in Modul 'rtl280.bpl'. Lesen von Adresse 1FB444A0

[... and so on ...]

In that case i terminate Delphi using the task manager.

 

Please let me know if i can provide additional info (are there logfiles?)

[tgbs 14]

How to find in DFM caption like that "Булстат" ?

DFM is text but text is Caption = #1041#1091#1083#1089#1090#1072#1090

Thanks

[Lajos Juhász 293]

You should construct a search string. Something like this. I believe that Delphi is only coded between 32 and 127 stores as string.
 

procedure TForm1.FormCreate(Sender: TObject);
var
  x: string;
  i: integer;
  s: string;
begin
  x:='1Булстат';
  s:='Caption = ';
  i:=1;
  while i<=length(x) do
  begin
    if (ord(x[i])>=32) and (ord(x[i])<=127) then
    begin
      s:=s+'''';
      while (i<=length(x)) and (ord(x[i])>=32) and (ord(x[i])<=127) do
      begin
        s:=s+x[i];
        inc(i);
      end;
      s:=s+'''';
    end
    else
    begin
      s:=s+'#'+IntToStr(ord(x[i]));
      inc(i);
    end;
  end;
  edit1.Text:=s;

end;

 

[tgbs 14]

I thought GExpert could handle that. We have our find / replace utility