View Issue Details

IDProjectCategoryView StatusLast Update
0004236JEDI VCL00 JVCL Componentspublic2008-07-23 07:18
ReporterssamayoaAssigned Toobones 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionsuspended 
Product Version3.32 
Target VersionFixed in Version 
Summary0004236: JvXPBar doesn't shown transparent bitmaps
DescriptionJvXPBar doesn't shown transparent bitmaps.
Additional InformationWhile converting TJvXPBar to lazarus I found a small problem with the
painting of the image of the item. Just try WinXPBarDemo: The background
of the image is white instead of transparent. Arround line 900 of
JvXPBar.pas (v11043 of JVCL 3.32) begins the method:

procedure TJvXPBarItem.DrawItem(AWinXPBar: TJvXPCustomWinXPBar; ACanvas:
TCanvas;

find the code of the image painting:

    if HasImages then
    begin
      Draw(Rect.Left + 1, Rect.Top + (LBar.FItemHeight - Bitmap.Height)
div 2, Bitmap);
      Inc(Rect.Left, Self.Images.Width + 4);
    end

And change for:

    if HasImages then
    begin
      if (Self.ImageIndex <> -1) then
         Self.Images.Draw(ACanvas, Rect.Left + 1,
           Rect.Top + (LBar.FItemHeight - Bitmap.Height) div 2,
Self.ImageIndex);
      Inc(Rect.Left, Self.Images.Width + 4);
    end

I'm not a JVCL commiter, please take this simple change to the main branch.

Regards.
TagsNo tags attached.

Activities

obones

2007-10-12 08:52

administrator   ~0013940

I do not agree with your change, it should be done in TJvXPCustomWinXPBar.DoDrawItem as this is where the bitmap is created.

obones

2008-02-21 03:51

administrator   ~0014237

Hello? Any reactions?

obones

2008-07-23 07:18

administrator   ~0014434

No news, no action

Issue History

Date Modified Username Field Change
2007-09-24 08:46 ssamayoa New Issue
2007-10-12 08:52 obones Note Added: 0013940
2007-10-12 08:52 obones Status new => feedback
2008-02-21 03:51 obones Note Added: 0014237
2008-07-23 07:18 obones Status feedback => resolved
2008-07-23 07:18 obones Resolution open => suspended
2008-07-23 07:18 obones Assigned To => obones
2008-07-23 07:18 obones Note Added: 0014434