Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=424578&view=findpost&p=3888906 Thu, 30 Mar 2023 20:12:42 +0000 TChart, TGanttSeries: как самому отрисовать серию https://forum.sources.ru/index.php?showtopic=424578&view=findpost&p=3888906
Ниже приведен пример функции, которая рассчитывает координаты прямоугольника для отображения значения в графике Гантта. Функция учитывает толщину линии и размеры указателя.
    CollapsedWrap disabledLine numbers off
    void __fastcall TMуGanttSeries::DrawValue(int ValueIndex)
    {
    if (isMy)
    {
    int yT;
    TRect rc;
     
    int thickness = ParentChart->Canvas->Pen->Width;
    int pointerSize = Pointer->VertSize;
     
    rc.Left  = ParentChart->BottomAxis->CalcPosValue(StartValues->Value[ValueIndex]) - thickness / 2;
    rc.Right = ParentChart->BottomAxis->CalcPosValue(EndValues->Value[ValueIndex]) + thickness / 2;
     
    yT = ParentChart->LeftAxis->CalcYPosValue(YValues->Value[ValueIndex]);
     
    rc.Top    = yT - pointerSize - thickness / 2;
    rc.Bottom = yT + pointerSize + thickness / 2;
     
    // Отрисовка прямоугольника
    ParentChart->Canvas->ReferenceCanvas->Brush->Color = SeriesColor;
    ParentChart->Canvas->ReferenceCanvas->FillRect(rc);
    }
    else
    {
    TGanttSeries::DrawValue(ValueIndex);
    }
    }


Этот код должен учитывать толщину линии и размеры указателя, чтобы правильно расположить прямоугольник в графике Гантта. Попробуйте использовать этот код в своем проекте и посмотрите, решает ли он вашу проблему.]]> MaIron Borland C++ Builder/Turbo C++ Explorer https://forum.sources.ru/index.php?showtopic=424578&view=findpost&p=3855830 Tue, 07 Dec 2021 16:31:03 +0000 TChart, TGanttSeries: как самому отрисовать серию https://forum.sources.ru/index.php?showtopic=424578&view=findpost&p=3855830 Проблема в определении прямоугольника, в котором рисую. Делаю так:
    void __fastcall TMуGanttSeries::DrawValue(int ValueIndex)
    {
      if (isMy)
      {
        int yT;
        TRect rc;
     
        rc.Left  = ParentChart->BottomAxis->CalcPosValue(StartValues->Value[ValueIndex]);
        rc.Right = ParentChart->BottomAxis->CalcPosValue(EndValues->Value[ValueIndex]);
     
        yT  = ParentChart->LeftAxis->CalcYPosValue(YValues->Value[ValueIndex]);
        rc.Top    = yT - Pointer->VertSize;
        rc.Bottom = yT + Pointer->VertSize;
     
        ...
     
        ParentChart->Canvas->ReferenceCanvas->Brush->Color = SeriesColor;           //  для примера
        ParentChart->Canvas->ReferenceCanvas->FillRect(rc);                         //  для примера
     
     
      }
      else
        TGanttSeries::DrawValue(ValueIndex);
    }

Всё похоже на стандартную отрисовку TGanttSeries::DrawValue(ValueIndex), но не всегда совпадают по одному пикселу по горизонтали.
Не смог найти исходник функции DrawValue, чтобы увидеть, как они рисуют. Т.е. мне нужно узнать точные координаты прямоугольника для закраски.

Может, кто-то поможет или даст ссылку на исходник этой функции?
Спасибо.]]> vlad2 Borland C++ Builder/Turbo C++ Explorer