[CheshireCat]

Hello Oconnel,

you can use the following workaround until a solution was found by Serge.

Code:

procedure TForm1.mi_CopyFileAdvancedDrawItem(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
var
bmp: TBitmap;
begin
ACanvas.FillRect(ARect) ;

//zeichne text/draw text
ACanvas.TextRect(ARect, 40 + ARect.Left, 10 + ARect.Top, mi_CopyFile.Caption) ;

//zeichne Bitmap aus ImageList/draw bitmap from imagelist
bmp := TBitmap.Create;
try
menuImages.GetBitmap(mi_CopyFile.ImageIndex, bmp) ;
ACanvas.Draw(ARect.Top, ARect.Left, bmp) ;
finally
bmp.Free;
end;
end;

The example is based on a 32×32 pixel imagelist.

[Oconnel]

It cannot work. Because you are deleting AC skinning with FillRect. Result = proper item caption position, but broken skinning:

[CheshireCat]

Hello Oconnel,

sorry, I have not tested the code before. You can try to set the canvas brush color to global skin color, but it works not for all skins and there is no clean solution.

[Oconnel]

Yeah, but I need clean solution. Some of the skins have textures/gradient in popupmenu so getting single color is not what I want…

[Support]

I'll check it and I'll fix it soon.

[Support]

Try attached file, please.

[Author]

Posts