ガントチャートを作成する際の選択肢 (ID:150029)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

mamさん
返信ありがとうございます
TChartのガントチャートの情報があまりなくて、使い方に戸惑っている状況です…

とりあえず現状ここまではできたのですが
https://imgur.com/I5Qjjux

SG　　　一番下のグリッド 
Q_main　真ん中グリッドのQuery
FPanelCount　グローバル変数のパネルのカウント

procedure TF_yotei.setpanel;
var
  Panel:TPanel;
  i:Integer;
  Panels:TComponent;
begin
  for i := 1 to FPanelCount do
  begin
    Panels := Application.FindComponent('Panel'+IntToStr(i));
    if Panels <> nil then
       Panels.Free;
  end;

FPanelCount := 0;
  Q_main.DisableControls;

while not Q_main.Eof do
  begin
    Inc(FPanelCount);
    Panel := TPanel.Create(Application);
    with panel do
    begin
      //表示位置
      Left :=　パネルの左を設定
      Top  := パネルの上を設定
      Height := SG.DefaultRowHeight -1;
      Width := パネル長さ設定
      Name := 'Panel'+IntToStr(FPanelCount);
      Caption := 'テスト';
      Parent := SG;
      ParentBackground := false;
      Color := $0080FF80;
    end;
    Q_main.Next;
  end;

Q_main.First;
  Invalidate;
  Q_main.EnableControls;
end;

Parent := SG;にしているために、stringgridをスクロールバーで
左右に移動させても、パネルは定位置で中のグリッドのみ移動してしまいます。
グリッドの移動にも対応させる方法何かございませんでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る