View Issue Details

IDProjectCategoryView StatusLast Update
0002158JEDI VCL00 JVCL Componentspublic2004-09-25 02:07
Reporterdeks-denAssigned Touser72 
Status resolvedResolutionfixed 
Product Version3.00 BETA 
Target VersionFixed in Version3.00 RC 1 
Summary0002158: TJvXPCustomButton.SetDefault raise an exeption when placed on frame and .Default property set to True
DescriptionTJvXPCustomButton.SetDefault raise an exeption when placed on frame and .Default property set to True
Additional InformationFix:


procedure TJvXPCustomButton.SetDefault(Value: Boolean);
  if Value <> FDefault then
    FDefault := Value;
    {$IFDEF VCL}
    if GetParentForm(self) <> nil then
      with GetParentForm(Self) do
        Perform(CM_FOCUSCHANGED, 0, Longint(ActiveControl));
    {$ENDIF VCL}
    {$IFDEF VisualCLX}
    if GetParentForm(Self) <> nil then
      QWindows.Perform(GetParentForm(Self), CM_FOCUSCHANGED, 0, Longint(GetParentForm(Self).ActiveControl));
    {$ENDIF VisualCLX}
TagsNo tags attached.



2004-09-25 02:07


Fixed in CVS. Thanks

Issue History

Date Modified Username Field Change
2004-09-19 11:43 deks-den New Issue
2004-09-25 02:07 user72 Status new => resolved
2004-09-25 02:07 user72 Resolution open => fixed
2004-09-25 02:07 user72 Assigned To => user72
2004-09-25 02:07 user72 Note Added: 0005261