Steema Central

Code: Select all

  Series1.Marks.ArrowLength:=-20;

Code: Select all

  Series1.MarksOnBar:=True;

Code: Select all

procedure TUnitBarSeries.DrawBar(BarIndex, StartPos, EndPos: Integer);

begin
  // go to dataset record for this index
  TkbmMemTable(self.DataSource).RecNo := BarIndex + 1;
  Brush.Style :=
    TBrushStyle(TkbmMemTable(self.DataSource).FieldByName('Pattern').asInteger); 
  Brush.Color :=
    TColor(TkbmMemTable(self.DataSource).FieldByName('Background').asInteger);
  Marks.Visible := True;
  Marks.ArrowLength :=
    -(TkbmMemTable(self.DataSource).FieldByName('Depth').asInteger) div 2;
  ShowInLegend := False;

  inherited DrawBar(BarIndex,StartPos,EndPos);

end;

Code: Select all

MarksLocation:=mlCenter;

Code: Select all

procedure TQSCollection.InsertGeologicalSeries(aCodeFld,aFld:string);

begin

// code here to load data from dataset into kbmMemTable and calculate depth increments

  SeriesListB.AddObject(sTitle, TUnitBarSeries.Create(Owner));
  iIndex := SeriesListB.IndexOf(sTitle);
  with TUnitBarSeries(SeriesListB.Objects[iIndex]) do
  begin
    AutoMarkPosition := false;
    MultiBar := mbSelfStack;
    CustomBarWidth := 80;
    Marks.Visible := True;
    MarksLocation := mlCenter;
    MarksOnBar := True;

// additional code here

  end;
end;

Code: Select all

procedure TQSCollection.ChartAfterDraw(Sender: TObject);
var
  DragTool: TDragMarksTool;
begin
  self.Owner.Chart.Tools.Add(TDragMarksTool);
  DragTool.Active := true;
end;

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
var
  DragTool: TDragMarksTool;
begin
  Chart1.AddSeries(TBarSeries).FillSampleValues();

  DragTool:=Chart1.Tools.Add(TDragMarksTool) as TDragMarksTool;
  DragTool.Active := true;
end;

Code: Select all

var HasBeenDragged: Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.Legend.Visible:=false;
  Chart1.View3D:=false;

  Chart1.AddSeries(TBarSeries).FillSampleValues;

  HasBeenDragged:=false;
  (Chart1.Tools.Add(TDragMarksTool) as TDragMarksTool).OnDraggedMark:=DraggedMark;
end;

procedure TForm1.DraggedMark(Sender:TDragMarksTool; Index:Integer; Button:TMouseButton; Shift: TShiftState; X,Y: Integer);
begin
  HasBeenDragged:=true;
end;

Code: Select all

uses Series;

procedure TForm1.FormCreate(Sender: TObject);
var s, i: Integer;
begin
  Chart1.Legend.Visible:=false;
  Chart1.View3D:=false;

  for s:=0 to 4 do
    with Chart1.AddSeries(TBarSeries) as TBarSeries do
    begin
      for i:=0 to 4 do
        Add(25+random*75, 'S' + IntToStr(s) + ', I' + IntToStr(i));

      MultiBar:=mbStacked;
      MarksLocation:=mlCenter;
      MarksOnBar:=true;
    end;

  PlaceMarks;
end;

procedure TForm1.PlaceMarks;
var s, i, tmpSize: Integer;
begin
  Chart1.Draw;

  for s:=0 to Chart1.SeriesCount-1 do
    if Chart1[s] is TBarSeries then
      with Chart1[s] as TBarSeries do
      begin
        for i:=0 to Count-1 do
          with Marks.Positions[i] do
          begin
            Custom:=true;
            LeftTop.X:=CalcXPos(i);

            if MarksLocation=mlEnd then
              LeftTop.Y:=CalcYPos(i)
            else
            begin
              tmpSize:=CalcYSizeValue(YValue[i]);
              if MarksLocation=mlStart then
                LeftTop.Y:=CalcYPos(i)+tmpSize-Marks.Height
              else
                LeftTop.Y:=CalcYPos(i)+(tmpSize div 2)-(Marks.Height div 2);
            end;
          end;
      end;
end;

procedure TForm1.Chart1Scroll(Sender: TObject);
begin
  PlaceMarks;
end;

procedure TForm1.Chart1Zoom(Sender: TObject);
begin
  PlaceMarks;
end;

procedure TForm1.Chart1UndoZoom(Sender: TObject);
begin
  PlaceMarks;
end;

Code: Select all

  with TUnitBarSeries(SeriesListB.Objects[iIndex]) do
  begin
    MultiBar := mbSelfStack;
    CustomBarWidth := 80;
    MarksLocation := mlCenter;
    MarksOnBar := True;
    Marks.Visible := self.owner.ShowLabelText;
    Marks.Font.Size := self.owner.LabelFont;
    ShowInLegend := false;
    HorizAxis := aBottomAxis;
    VertAxis := aLeftAxis;
...
    active := true;
  end;