chartfx3.pas

石油行业油井损害软件,有详细的油井损害模型,对石油建模有重要帮助

end;

function TChartfx.ShowDialog(nDialog: Smallint; lExtra: Integer): Integer;
begin
  Result := ControlInterface.ShowDialog(nDialog, lExtra);
end;

function TChartfx.PrintIt: Integer;
begin
  Result := ControlInterface.PrintIt;
end;

function TChartfx.Scroll(wParam, lParam: Integer): Integer;
begin
  Result := ControlInterface.Scroll(wParam, lParam);
end;

function TChartfx.SetStatusItem(index: Smallint; bText: WordBool; nID: Smallint; bFrame: WordBool; nWidth, nMin, nDesp: Smallint; dwStyle: Integer): Integer;
begin
  Result := ControlInterface.SetStatusItem(index, bText, nID, bFrame, nWidth, nMin, nDesp, dwStyle);
end;

function TChartfx.Paint(hDC: Integer; nLeft, nTop, nRight, nBottom, wAction: Smallint; lps: Integer): Integer;
begin
  Result := ControlInterface.Paint(hDC, nLeft, nTop, nRight, nBottom, wAction, lps);
end;

function TChartfx.SetStripe(index: Smallint; dMin, dMax: Double; rgb: TColor): Integer;
begin
  Result := ControlInterface.SetStripe(index, dMin, dMax, rgb);
end;

function TChartfx.Language(const sResource: WideString): Integer;
begin
  Result := ControlInterface.Language(sResource);
end;

function TChartfx.ExportFile(const lpszNewValue: WideString): Integer;
begin
  Result := ControlInterface.ExportFile(lpszNewValue);
end;

function TChartfx.ImportFile(const lpszNewValue: WideString): Integer;
begin
  Result := ControlInterface.ImportFile(lpszNewValue);
end;

function TChartfx.WriteTemplate(const lpszNewValue: WideString): Integer;
begin
  Result := ControlInterface.WriteTemplate(lpszNewValue);
end;

function TChartfx.ReadTemplate(const lpszNewValue: WideString): Integer;
begin
  Result := ControlInterface.ReadTemplate(lpszNewValue);
end;

function TChartfx.CopyData: Integer;
begin
  Result := ControlInterface.CopyData;
end;

function TChartfx.CopyBitmap: Integer;
begin
  Result := ControlInterface.CopyBitmap;
end;

procedure TChartfx.Refresh;
begin
  ControlInterface.Refresh;
end;

procedure TChartfx.AboutBox;
begin
  ControlInterface.AboutBox;
end;

function TChartfx.Get_hWnd: OLE_HANDLE;
begin
  Result := ControlInterface.hWnd;
end;

procedure TChartfx.Set_hWnd(var Value: OLE_HANDLE);
begin
  ControlInterface.hWnd := Value;
end;

function TChartfx.Get_Value(index: Smallint): Double;
begin
  Result := ControlInterface.Value[index];
end;

procedure TChartfx.Set_Value(index: Smallint; Value: Double);
begin
  ControlInterface.Value[index] := Value;
end;

function TChartfx.Get_XValue(index: Smallint): Double;
begin
  Result := ControlInterface.XValue[index];
end;

procedure TChartfx.Set_XValue(index: Smallint; Value: Double);
begin
  ControlInterface.XValue[index] := Value;
end;

function TChartfx.Get_IniValue(index: Smallint): Double;
begin
  Result := ControlInterface.IniValue[index];
end;

procedure TChartfx.Set_IniValue(index: Smallint; Value: Double);
begin
  ControlInterface.IniValue[index] := Value;
end;

function TChartfx.Get_Const_(index: Smallint): Double;
begin
  Result := ControlInterface.Const_[index];
end;

procedure TChartfx.Set_Const_(index: Smallint; Value: Double);
begin
  ControlInterface.Const_[index] := Value;
end;

function TChartfx.Get_Color(index: Smallint): TColor;
begin
  Result := ControlInterface.Color[index];
end;

procedure TChartfx.Set_Color(index: Smallint; Value: TColor);
begin
  ControlInterface.Color[index] := Value;
end;

function TChartfx.Get_BkColor(index: Smallint): TColor;
begin
  Result := ControlInterface.BkColor[index];
end;

procedure TChartfx.Set_BkColor(index: Smallint; Value: TColor);
begin
  ControlInterface.BkColor[index] := Value;
end;

function TChartfx.Get_Adm(index: Smallint): Double;
begin
  Result := ControlInterface.Adm[index];
end;

procedure TChartfx.Set_Adm(index: Smallint; Value: Double);
begin
  ControlInterface.Adm[index] := Value;
end;

function TChartfx.Get_Pattern(index: Smallint): Smallint;
begin
  Result := ControlInterface.Pattern[index];
end;

procedure TChartfx.Set_Pattern(index: Smallint; Value: Smallint);
begin
  ControlInterface.Pattern[index] := Value;
end;

function TChartfx.Get_Fonts(index: Smallint): Integer;
begin
  Result := ControlInterface.Fonts[index];
end;

procedure TChartfx.Set_Fonts(index: Smallint; Value: Integer);
begin
  ControlInterface.Fonts[index] := Value;
end;

function TChartfx.Get_Title(index: Smallint): WideString;
begin
  Result := ControlInterface.Title[index];
end;

procedure TChartfx.Set_Title(index: Smallint; const Value: WideString);
begin
  ControlInterface.Title[index] := Value;
end;

function TChartfx.Get_Legend(index: Smallint): WideString;
begin
  Result := ControlInterface.Legend[index];
end;

procedure TChartfx.Set_Legend(index: Smallint; const Value: WideString);
begin
  ControlInterface.Legend[index] := Value;
end;

function TChartfx.Get_SerLeg(index: Smallint): WideString;
begin
  Result := ControlInterface.SerLeg[index];
end;

procedure TChartfx.Set_SerLeg(index: Smallint; const Value: WideString);
begin
  ControlInterface.SerLeg[index] := Value;
end;

function TChartfx.Get_KeyLeg(index: Smallint): WideString;
begin
  Result := ControlInterface.KeyLeg[index];
end;

procedure TChartfx.Set_KeyLeg(index: Smallint; const Value: WideString);
begin
  ControlInterface.KeyLeg[index] := Value;
end;

function TChartfx.Get_FixLeg(index: Smallint): WideString;
begin
  Result := ControlInterface.FixLeg[index];
end;

procedure TChartfx.Set_FixLeg(index: Smallint; const Value: WideString);
begin
  ControlInterface.FixLeg[index] := Value;
end;

function TChartfx.Get_YLeg(index: Smallint): WideString;
begin
  Result := ControlInterface.YLeg[index];
end;

procedure TChartfx.Set_YLeg(index: Smallint; const Value: WideString);
begin
  ControlInterface.YLeg[index] := Value;
end;

function TChartfx.Get_KeySer(index: Smallint): WideString;
begin
  Result := ControlInterface.KeySer[index];
end;

procedure TChartfx.Set_KeySer(index: Smallint; const Value: WideString);
begin
  ControlInterface.KeySer[index] := Value;
end;

function TChartfx.Get_StatusText(index: Smallint): WideString;
begin
  Result := ControlInterface.StatusText[index];
end;

procedure TChartfx.Set_StatusText(index: Smallint; const Value: WideString);
begin
  ControlInterface.StatusText[index] := Value;
end;

function TChartfx.Get_RGBFont(index: Smallint): TColor;
begin
  Result := ControlInterface.RGBFont[index];
end;

procedure TChartfx.Set_RGBFont(index: Smallint; Value: TColor);
begin
  ControlInterface.RGBFont[index] := Value;
end;

function TChartfx.Get_HFont(index: Smallint): Smallint;
begin
  Result := ControlInterface.HFont[index];
end;

procedure TChartfx.Set_HFont(index: Smallint; Value: Smallint);
begin
  ControlInterface.HFont[index] := Value;
end;

function TChartfx.Get_ItemWidth(index: Smallint): Smallint;
begin
  Result := ControlInterface.ItemWidth[index];
end;

procedure TChartfx.Set_ItemWidth(index: Smallint; Value: Smallint);
begin
  ControlInterface.ItemWidth[index] := Value;
end;

function TChartfx.Get_ItemStyle(index: Smallint): Smallint;
begin
  Result := ControlInterface.ItemStyle[index];
end;

procedure TChartfx.Set_ItemStyle(index: Smallint; Value: Smallint);
begin
  ControlInterface.ItemStyle[index] := Value;
end;

function TChartfx.Get_ItemColor(index: Smallint): TColor;
begin
  Result := ControlInterface.ItemColor[index];
end;

procedure TChartfx.Set_ItemColor(index: Smallint; Value: TColor);
begin
  ControlInterface.ItemColor[index] := Value;
end;

function TChartfx.Get_DecimalsNum(index: Smallint): Smallint;
begin
  Result := ControlInterface.DecimalsNum[index];
end;

procedure TChartfx.Set_DecimalsNum(index: Smallint; Value: Smallint);
begin
  ControlInterface.DecimalsNum[index] := Value;
end;


procedure Register;
begin
  RegisterComponents('ActiveX', [TChartfx]);
end;

end.