View Issue Details

IDProjectCategoryView StatusLast Update
0004385JEDI VCL00 JVCL Componentspublic2008-11-01 17:17
ReporterivivanAssigned ToAHUser 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
Product Version3.33 
Target VersionFixed in Version3.36 
Summary0004385: transparency bug in TJvgGroupBox
DescriptionIf TJvgGroupBox.transparent is true and the label on it is also transparent, after changing the labels, they are drawn over each other.

Working solution:

To the begining of the paint method:
OldDC: Integer;

  OldDC:=SaveDC(Canvas.Handle);
  try
    MoveWindowOrg(Canvas.Handle, -Left, -Top);
    Canvas.Lock;
    try
      Parent.Perform(WM_ERASEBKGND, Canvas.Handle, Canvas.Handle);
      Parent.Perform(WM_PAINT, Canvas.Handle, 0);
    finally
      Canvas.Unlock;
    end;
  finally
    RestoreDC(Canvas.Handle,OldDC);
  end;

Delete the following line:
SetBkMode(Handle, Integer(TRANSPARENT));
TagsNo tags attached.

Activities

2008-07-06 02:28

 

TJvgGroupBox test.zip (317,236 bytes)

ivivan

2008-07-06 02:30

reporter   ~0014371

I upload a simple example about the bug. This example show a bug in TJvgCheckbox too.

obones

2008-07-15 00:59

administrator   ~0014376

Thanks for the report and the demo application

AHUser

2008-11-01 17:17

developer   ~0014947

Fixed in SVN.

Issue History

Date Modified Username Field Change
2008-06-30 07:29 ivivan New Issue
2008-07-06 02:28 ivivan File Added: TJvgGroupBox test.zip
2008-07-06 02:30 ivivan Note Added: 0014371
2008-07-15 00:59 obones Note Added: 0014376
2008-07-15 00:59 obones Status new => acknowledged
2008-11-01 17:17 AHUser Status acknowledged => resolved
2008-11-01 17:17 AHUser Fixed in Version => Daily / SVN
2008-11-01 17:17 AHUser Resolution open => fixed
2008-11-01 17:17 AHUser Assigned To => AHUser
2008-11-01 17:17 AHUser Note Added: 0014947