GExperts 1.3.19 Alpha 2 for Delphi 11 Patch 2

[dummzeuch 1515]

Embarcadero has released a second patch (called November Patch) for Delphi 11 which seems to fix several issues that blocked further progress on GExperts for Delphi 11. So here it is, fresh out of the compiler: The second Alpha version of GExperts for Delphi 11.

Please keep in mind: This is not even a Beta version! There will be bugs and these will not only be UI glitches but functionality failures!

You have been warned!

 

read on in the blog post.

[pyscripter 694]

I am afraid the download link does not work.

[santiago 37]

3 hours ago, pyscripter said:

I am afraid the download link does not work.

I was able to figure out the correct download link (by looking at the first alpha download link.  🙂

The correct link is:

https://download.dummzeuch.de/GExperts/1.3.19_2021-11-26_for_Delphi11-Patch2/GXRS11_1.3.19_ALPHA2_experimental-twm_2021-11-26.exe

[dummzeuch 1515]

Thanks! I just fixed the link.

 

Note to self: Always check those links!

[pyscripter 694]

Toolbar images are not scaled but otherwise looks good!

[dummzeuch 1515]

3 hours ago, pyscripter said:

Toolbar images are not scaled but otherwise looks good!

Kinda fixed that today for two dialogs.

[dummzeuch 1515]

Fixed the toolbars for all dialogs.

[pyscripter 694]

3 hours ago, dummzeuch said:

Fixed the toolbars for all dialogs

An alternative to the method Žarko Gajić described is the following code:

 

function ScaleImageList(Source: TCustomImageList; M, D: Integer): TCustomImageList;
const
  ANDbits: array[0..2*16-1] of  Byte = ($FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF,
                                        $FF,$FF);
  XORbits: array[0..2*16-1] of  Byte = ($00,$00,
                                        $00,$00,
                                        $00,$00,
                                        $00,$00,
                                        $00,$00,
                                        $00,$00,
                                        $00,$00,
                                        $00,$00,
                                        $00,$00,
                                        $00,$00,
                                        $00,$00,
                                        $00,$00,
                                        $00,$00,
                                        $00,$00,
                                        $00,$00,
                                        $00,$00);
var
  I: integer;
  Icon: HIcon;
begin
  Result := TCustomImageList.CreateSize(MulDiv(Source.Width, M, D), MulDiv(Source.Height, M, D));

  if M = D then
  begin
    Result.Assign(Source);
    Exit;
  end;

  Result.ColorDepth := cd32Bit;
  Result.DrawingStyle := Source.DrawingStyle;
  Result.BkColor := Source.BkColor;
  Result.BlendColor := Source.BlendColor;
  for I := 0 to Source.Count-1 do
  begin
    Icon := ImageList_GetIcon(Source.Handle, I, LR_DEFAULTCOLOR);
    if Icon = 0 then
    begin
      Icon := CreateIcon(hInstance,16,16,1,1,@ANDbits,@XORbits);
    end;
    ImageList_AddIcon(Result.Handle, Icon);
    DestroyIcon(Icon);
  end;
end;

It is simpler and I think works better.