View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0001827JEDI VCL02 Installationpublic2004-06-02 08:032004-06-03 00:25
ReporterwestphalAssigned Touser72 
PrioritynormalSeverityblockReproducibilityalways
Status resolvedResolutionfixed 
Product Version 
Target VersionFixed in Version 
Summary0001827: D5 can't compile JvDynControlEngineVCL
Descriptionproposed modifications
//in JvDynControlEngineJVCL.pas
//(1586) Error: Undeclared identifier: 'Header'
//(1608) Error: Undeclared identifier: 'Header'
procedure TJvDynControlVCLCheckListBox.ControlSetHeader(Index: Integer; Value: Boolean);
begin
  {$IFDEF COMPILER6_UP}
  {$IFDEF VCL}
  Header[Index] := Value;
  {$ENDIF}
  {$ENDIF}
end;

function TJvDynControlVCLCheckListBox.ControlGetHeader(Index: Integer): Boolean;
begin
  {$IFDEF COMPILER6_UP}
  {$IFDEF VCL}
  Result := Header[Index];
  {$ENDIF}
  {$ENDIF}
end;


//in JvDynControlEngineJVCL.pas
procedure TJvDynControlJVCLCheckListBox.ControlSetHeader(Index: Integer; Value: Boolean);
begin
  {$IFDEF COMPILER6_UP}
  {$IFDEF VCL}
  Header[Index] := Value;
  {$ENDIF}
  {$ENDIF}
end;

function TJvDynControlJVCLCheckListBox.ControlGetHeader(Index: Integer): Boolean;
begin
  {$IFDEF COMPILER6_UP}
  {$IFDEF VCL}
  Result := Header[Index];
  {$ENDIF}
  {$ENDIF}
end;

// in JvParameterList.pas(811) Error: Undeclared identifier: 'EVariantTypeCastError'


procedure TJvBaseParameter.SetWinControlData(Value: Variant);
begin
  if Assigned(JvDynControlData) then
    try
      JvDynControlData.ControlValue := Value;
    except
  {$IFDEF COMPILER6_UP}
      on e:EVariantTypeCastError do
  {$else}
      on e:EVariantError do
  {$endif}
    end;
end;
TagsNo tags attached.

Activities

user72

2004-06-03 00:25

  ~0004442

Fixed in CVS

Issue History

Date Modified Username Field Change
2004-06-02 08:03 westphal New Issue
2004-06-03 00:25 user72 Status new => resolved
2004-06-03 00:25 user72 Resolution open => fixed
2004-06-03 00:25 user72 Assigned To => user72
2004-06-03 00:25 user72 Note Added: 0004442