opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Upgrading to new compiler/Delphi version 11.3.

Browse Source 
Remove workaround for a VCL bug in TVirtualImageList.DoDraw, as https://quality.embarcadero.com/browse/RSP-29438 was fixed for Delphi 11.3
This commit is contained in:
Ansgar Becker
2023-07-15 12:16:51 +02:00
parent d512e890e0
commit b0e2ef2783
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/virtualtreeview/Source/VirtualTrees.Utils.pas
View File

@@ -1282,10 +1282,7 @@ procedure DrawImage(ImageList: TCustomImageList; Index: Integer; Canvas: TCanvas
begin
if Enabled then
// HeidiSQL fix for #1045, required until Embarcadero fixes TVirtualImageList.DoDraw:
//TCustomImageListCast(ImageList).DoDraw(Index, Canvas, X, Y, Style, Enabled)
ImageList_DrawEx(ImageList.Handle, Index, Canvas.Handle, X, Y, 0, 0,
GetRGBColor(ImageList.BkColor), GetRGBColor(ImageList.BlendColor), Style)
TCustomImageListCast(ImageList).DoDraw(Index, Canvas, X, Y, Style, Enabled)
else
DrawDisabledImage(ImageList, Canvas, X, Y, Index);
end;