View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0002158JEDI VCL00 JVCL Componentspublic2004-09-19 11:432004-09-25 02:07
Reporterdeks-denAssigned Touser72 
PrioritynormalSeveritycrashReproducibilityalways
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:

JvXPButtons.pas:

procedure TJvXPCustomButton.SetDefault(Value: Boolean);
begin
  if Value <> FDefault then
  begin
    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}
  end;
end;
TagsNo tags attached.

Activities

user72

2004-09-25 02:07

  ~0005261

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