search

bgrabitmap / bgracontrols

🆗 BGRA Controls is a set of graphical UI elements that you can use with Lazarus LCL applications.
https://bgrabitmap.github.io/bgracontrols/
182 stars 30 forks source link

TBGRAImageList Draw method not virtual #187

Closed maxm74 closed 1 month ago

maxm74 commented 1 month ago

Has anyone tried compiling the bgraimagelist unit with gtk? I don't have the ability to do that at the moment. I wanted to modify the unit to add an event but (only in Windows?) the Draw method of the TCustomImageList base class is not virtual.

imglist.pp in lcl

procedure Draw(ACanvas: TCanvas; AX, AY, AIndex: Integer; ADrawingStyle: TDrawingStyle; AImageType: TImageType;
      ADrawEffect: TGraphicsDrawEffect); overload;

In our class it is declared as:

procedure Draw(ACanvas: TCanvas; AX, AY, AIndex: integer;
      ADrawingStyle: TDrawingStyle; AImageType: TImageType;
      ADrawEffect: TGraphicsDrawEffect); override;
maxm74 commented 1 month ago

After a long discussion with Lazarus Team (see freepascal.org/lazarus/lazarus!308](https://gitlab.com/freepascal.org/lazarus/lazarus/-/merge_requests/308) i think i have to add this featues in our code on TBGRAImageList class... but after a well-deserved holiday. 🍻