View Issue Details

IDProjectCategoryView StatusLast Update
0005635JEDI VCL00 JVCL Componentspublic2012-06-11 17:08
ReporterMad CatAssigned Toobones 
PrioritynormalSeveritymajorReproducibilityalways
Status resolvedResolutionsuspended 
Product Version3.40 
Target VersionFixed in Version 
Summary0005635: JvImage 'Disabled' picture is not correctly displayed
Descriptionif Assigned(Pictures.Disabled) and (Enabled = False) then 'bug';

State = stDisabled
OnMouseEnter => State = stEntered
OnMouseLeave => State = stDefault
OnMouseEnter => State = stEntered
OnMouseLeave => State = stDefault
Additional InformationMay be change code like this (it works for me):

procedure TJvImage.MouseEnter(Control: TControl);
begin
  if csDesigning in ComponentState then
    Exit;
  if not MouseOver then
  begin
    if UsesPictures and Enabled then
      State := stEntered
    else
      State := stDisabled;
    inherited MouseEnter(Control);
  end;
end;

procedure TJvImage.MouseLeave(Control: TControl);
begin
  if MouseOver then
  begin
    if UsesPictures and Enabled then
      ApplyClick
    else
      State := stDisabled;
    inherited MouseLeave(Control);
  end;
end;
TagsNo tags attached.

Activities

2011-08-10 11:18

 

JvImage.pas (12,650 bytes)

obones

2011-09-21 12:00

administrator   ~0018944

Please provide the zipped sources of a sample application showing this

obones

2012-02-23 11:20

administrator   ~0019503

We really need a demo application to test this

obones

2012-06-11 17:08

administrator   ~0019822

Last edited: 2012-06-11 17:08

No answers, suspending the issue

Issue History

Date Modified Username Field Change
2011-08-10 11:18 Mad Cat New Issue
2011-08-10 11:18 Mad Cat File Added: JvImage.pas
2011-09-21 12:00 obones Note Added: 0018944
2011-09-21 12:00 obones Status new => feedback
2012-02-23 11:20 obones Note Added: 0019503
2012-06-11 17:08 obones Note Added: 0019822
2012-06-11 17:08 obones Status feedback => resolved
2012-06-11 17:08 obones Resolution open => suspended
2012-06-11 17:08 obones Assigned To => obones