Ver Mensaje Individual
  #3  
Antiguo 13-06-2011
CarlosAlberto CarlosAlberto is offline
Miembro
 
Registrado: ago 2010
Posts: 78
Reputación: 14
CarlosAlberto Va por buen camino
Usar gráficos de lineas - Chart Series

Estimado Casimiro: éste es el código:

Código Delphi [-]
procedure TForm1.b4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var i,k:integer;
a,b,paso,x,y1,y:real;
begin
if key=vk_return then begin
 chart1.Series[5].clear;
 chart1.Series[18].clear;
 listbox7.Clear;
 listbox8.Clear;
 a:=strtoreal(a4.Text);
 b:=strtoreal(b4.Text);
 y:=strtoreal(mayor.Text)+10;
 paso:=strtoreal(combobox5.text);
 x:=strtoreal(menor.Text)-10;
repeat
  x:=x+paso;
  y1:=a*x+b;
  listbox7.Items.Add(realtostr(x));
  listbox8.Items.Add(realtostr(y1));
  if (combobox4.Text='=') or (combobox4.Text='>=')or (combobox4.Text='<=') then
 chart1.Series[5].addxy(x,y1) else  chart1.Series[18].AddXY(x,y1);
until x>=y;
if key=vk_return then button8.SetFocus;
end;
end;

La series[5] es linea solida y la series[18] es punteada. Para evitar tener que duplicar las series 5 y 18. ¿cómo procedo para cambiar de sólido a punteada?
Gracias.
Carlos

Última edición por Casimiro Notevi fecha: 13-06-2011 a las 14:50:46. Razón: Poner etiquetas [delphi] [/delphi]
Responder Con Cita