[SzakiLaci]

After last upgrade (v14.26) TsVirtualImageList started to show images loaded from TsAlphaImageList badly.

Everything is faded fully, colorless, if the PNG has 8bit alphaChannel.

[attachment=9348:bad_alpha1.jpg]

[attachment=9349:bad_alpha2.jpg]

Tried to turn Masked:=False; … no difference.

Added a png to test with.

VTV source link

Delphi7 download…

[Support]

Please, look this message: http://www.alphaskins.com/forum/index.php?showtopic=10363&view=findpost&p=54041

I think, this is a same issue.

[SzakiLaci]

– Yes, it seems to be the same issue. :a1:

– It appears, VirtualTree does not supports properly 8-bit alpha channels at all.

– But how can it be, that there was no such problems with version with AC v14.19 ?

– Can you recommend a line of code that circumvents the problem?

(I'm thinking about: overriding VTV's paint procedure by calling YOURS!)

Code:

procedure TBaseVirtualTree.PaintImage(var PaintInfo: TVTPaintInfo; ImageInfoIndex: TVTImageInfoIndex; DoOverlay: Boolean);
begin
… ? >> calling AlphaSkin's TsVirtualImageList's draw method
Exit;

or… instead of modifying the source of it > I could disallow the component to draw the images, and use OnAfterItemPaint:

Code:

procedure TForm1.VSTAfterItemPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; ItemRect: TRect);
begin
// ???
end;

(It would be a “nice” method, but would make step-by-step code debugging nearly impossible. )

[Support]

'SzakiLaci' wrote:

– But how can it be, that there was no such problems with version with AC v14.19 ?

The BlendColor property was not supported in old versions of the package.

http://www.alphaskins.com/forum/index.php?showtopic=10249&view=findpost&p=53933

I will think, maybe I will find an idea.

[SzakiLaci]

Found a workaround for this:

Drawing pictures to canvas directly…link

[Author]

Posts