demo/combobox/main.pas

121   ser: TAreaSeries;
125   ser := ChartListbox1.Series[ChartListbox1.ItemIndex] as TAreaSeries;
126   ser.AreaBrush.Color := CbAreaSerBrushColor.Selected;
127   ser.AreaBrush.Style := CbAreaserBrushStyle.BrushStyle;
130     ser.AreaBrush.Bitmap := CbAreaSerBrushStyle.BrushBitmap;
135   ser: TAreaSeries;
139   ser := ChartListbox1.Series[ChartListbox1.ItemIndex] as TAreaSeries;
140   ser.AreaContourPen.Color := CbAreaSerContourColor.Selected;
141   ser.AreaContourPen.Width := CbAreaSerContourWidth.PenWidth;
142   ser.AreaContourPen.Style := CbAreaSerContourStyle.PenStyle;
143   if ser.AreaContourPen.Style = psPattern then
144     CbAreaSerContourStyle.SetPenPattern(ser.AreaContourPen);
149   ser: TAreaSeries;
153   ser := ChartListbox1.Series[ChartListbox1.ItemIndex] as TAreaSeries;
154   ser.AreaLinesPen.Color := CbAreaSerLinesColor.Selected;
155   ser := ChartListbox1.Series[ChartListbox1.ItemIndex] as TAreaSeries;
156   ser.AreaLinesPen.Width := CbAreaSerLinesWidth.PenWidth;
157   ser.AreaLinesPen.Style := CbAreaSerLinesStyle.PenStyle;
158   if ser.AreaLinesPen.Style = psPattern then
159     CbAreaSerLinesStyle.SetPenPattern(ser.AreaLinesPen);
167   ser: TbarSeries;
171   ser := ChartListbox1.Series[ChartListbox1.ItemIndex] as TBarSeries;
172   ser.BarBrush.Color := CbBarSerBrushColor.Selected;
173   ser.BarBrush.Style := CbBarSerBrushStyle.BrushStyle;
176     ser.BarBrush.Bitmap := CbBarSerBrushStyle.BrushBitmap;
181   ser: TBarSeries;
185   ser := ChartListbox1.Series[ChartListbox1.ItemIndex] as TBarSeries;
186   ser.BarPen.Color := CbBarSerPenColor.Selected;
187   ser.BarPen.Width := CbBarSerPenWidth.PenWidth;
188   ser.BarPen.Style := CbBarSerPenStyle.PenStyle;
189   if ser.BarPen.Style = psPattern then
190     CbBarSerPenStyle.SetPenPattern(ser.BarPen);
197   ser: TLineSeries;
201   ser := ChartListbox1.Series[ChartListbox1.ItemIndex] as TLineSeries;
202   ser.LinePen.Color := CbLineSerLinePenColor.Selected;
203   ser.LinePen.Width := CbLineSerLinePenWidth.PenWidth;
204   ser.LinePen.Style := CbLineSerLinePenStyle.PenStyle;
205   if ser.LinePen.Style = psPattern then
206     CbLineSerLinePenStyle.SetPenPattern(ser.LinePen);
207   ser.ShowLines := cbShowLines.Checked;
212   ser: TLineSeries;
216   ser := ChartListbox1.Series[ChartListbox1.ItemIndex] as TLineSeries;
217   ser.Pointer.Pen.Color := CbLineSerPointerBorderColor.Selected;
218   ser.Pointer.Brush.Color := CbLineSerPointerBrushColor.Selected;
219   ser.Pointer.Style := CbLineSerPointerStyle.PointerStyle;
220   ser.Pointer.HorizSize := EdLineSerPointerSize.Value;
221   ser.Pointer.VertSize := EdLineSerPointerSize.Value;
222   ser.ShowPoints := CbShowPoints.Checked;
230   ser: TCustomChartSeries;
232   ser := ChartListbox1.Series[ChartListbox1.ItemIndex];
233   ser.Active := CbShow.Checked;
238   ser: TCustomChartSeries;
240   ser := ChartListbox1.Series[ChartListbox1.ItemIndex];
241   if ser is TLineSeries then begin
243     CbShowLines.Checked := TLineSeries(ser).ShowLines;
244     CbLineSerLinePenStyle.SetPenPattern(TLineSeries(ser).LinePen);
245     CbLineSerLinePenStyle.Cosmetic := TLineSeries(ser).LinePen.Cosmetic;
246     CbLineSerLinePenStyle.PenStyle := TLineSeries(ser).LinePen.Style;
247     CbLineSerLinePenWidth.PenWidth := TLineSeries(ser).LinePen.Width;
248     CbLineSerLinePenColor.Selected := TLineSeries(ser).LinePen.Color;
251     CbShowPoints.Checked := TLineSeries(ser).ShowPoints;
252     EdLineSerPointerSize.Value := TLineSeries(ser).Pointer.HorizSize;
253     CbLineSerPointerStyle.PointerStyle := TLineSeries(ser).Pointer.Style;
254     CbLineSerPointerBorderColor.Selected := TLineSeries(ser).Pointer.Pen.Color;
255     CblineSerPointerBrushColor.Selected := TLineSeries(ser).Pointer.Brush.Color;
260   if ser is TBarSeries then begin
262     CbBarSerPenStyle.PenStyle := TBarSeries(ser).BarPen.Style;
263     CbBarSerPenWidth.PenWidth := TBarseries(ser).BarPen.Width;
264     CbBarSerPenColor.Selected := TBarSeries(ser).BarPen.Color;
265     CbBarSerBrushColor.Selected := TBarSeries(ser).BarBrush.Color;
266     CbBarSerBrushStyle.BrushStyle := TBarSeries(ser).BarBrush.Style;
268   else if ser is TAreaSeries then begin
270     CbAreaSerBrushColor.Selected := TAreaSeries(ser).AreaBrush.Color;
271     CbAreaSerBrushStyle.BrushStyle := TAreaSeries(ser).AreaBrush.Style;
272     CbAreaSerContourStyle.PenStyle := TAreaSeries(ser).AreaContourPen.Style;
273     CbAreaSerContourWidth.PenWidth := TAreaSeries(ser).AreaContourPen.Width;
274     CbAreaSerContourColor.Selected := TAreaSeries(ser).AreaContourPen.Color;
275     CbAreaSerLinesStyle.PenStyle := TAreaSeries(ser).AreaLinesPen.Style;
276     CbAreaSerLinesWidth.PenWidth := TAreaSeries(ser).AreaLinesPen.Width;
277     CbAreaSerLinesColor.Selected := TAreaSeries(ser).AreaLinesPen.Color;
279   LblSeries.Caption := ser.Title;
280   CbShow.Checked := ser.Active;
286   ser: TChartSeries;
289   ser := TChartSeries(TDataPointClickTool(ATool).Series);
290   if ser <> nil then begin
291     ChartListbox1.ItemIndex := ChartListbox1.FindSeriesIndex(ser);