G'Day,

D3.02Pro TChart 3.0 Std......

Given the following:

type TGraphRunsPerOverOpt = record
     TheChart : TChart;
     MatchID : TMatchID;
(etc)
end;

and a form with a TChart on it called chtRunsPerOver why does the following
Assign fail? I need to do the assign as the Graphic_GraphRunsPerOver() is an
asynchronous process. It will also free up the chart created.....

procedure TfrmGraphRunsPerOver.namWizButtonsFinishClick(Sender: TObject);
var
   GraphOptions : TGraphRunsPerOverOpt;
begin
     try
        try
           GraphOptions.TheChart := TChart.Create(nil);
           GraphOptions.TheChart.Assign(chtRunsPerOver);
           Graphic_GraphRunsPerOver(frmMain.namDigiMix,
LAY_FFGRAPH_RUNSPEROVER, GraphOptions);
        finally
           //Make sure we close the wizard even if there is an error
           Self.Close;
        end;
     except
       on E : Exception do
          Handle_AppExceptions(UNIT_NAME, PROC_NAME, ERR_MSG, E.Message,
FALSE);
     end;
end;

TChart is after all a TPersistent descendent. I am missing something really
basic here I know so be gentle.... *smile*

------------------------------------------------------------------------
--Donovan
Donovan J. Edye [www.edye.wattle.id.au]
Namadgi Systems, Delphi Developer
Web: www.namsys.com.au E-Mail: [EMAIL PROTECTED]
Voice: +61 2 6285-3460 Fax: +61 2 6285-3459
TVisualBasic = Class(None);
------------------------------------------------------------------------

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz

Reply via email to