【搞定】关于甘特图（PSGanttGraph）定位的问题 **

yangfan

1、先判断传进来的参数是不是当前焦点；
2、把Bar的画笔颜色置为红色；
3、在最后加上GanttBar.DefaultPaint;就可以了。

因为我不知道如何得到甘特图中的一个PSGanttBar，所以上面的方法我没有测试过 ，请楼主试试，顺便共享一下方法，谢谢 。

linjiawei

定位DataGrid是可以了，但还是不知道如何定位TPSGanttBar

procedure TRPPROJECTSCHEDULEFORMDOC.PSGanttGraph1FocusBarChange(Sender: TPSGanttGraph; GanttBar: TPSGanttBar; var Allow: Boolean);
begin
  if TPSDataObject(GanttBar.DataObject).BarType=TPSBarType.btProjectSummary then
  begin
    Allow := False;
    Exit;
  end;
  With dsData.DataSet do
  begin
    DisableControls;
    Locate('GUID',TPSDataObject(GanttBar.DataObject).TaskName,[]);
    EnableControls;
  end;
end;

procedure TRPPROJECTSCHEDULEFORMDOC.DataGridClick(Sender: TObject);
var
  lGanttBar :TPSGanttBar;
begin
  lGanttBar :=PSGanttGraph1.GetGanttBar(dsData.DataSet.RecNo,1);  //数据的行和PSGanttBar的RowID是一一对应的
  if PSGanttGraph1.FocusBar<> lGanttBar then
  begin
     //这里咋整啊...
  end;
end;

yangfan

还是11楼的方法，在TPSGanttGraph的OnDrawBar事件中写如下代码：
procedure TPlanGanttView.GanttGraphDrawBar(Sender: TPSGanttGraph; GanttBar: TPSGanttBar);
begin
  if FSelectBarList.Indexof(GanttBar) <> -1 then
    GanttBar.Canvas.Brush.Assign(GanttBar.Owner.FocusBrush);
  GanttBar.DefaultPaint;
end;

看楼主12楼的方法，如果DataGrid中数据比较多的话，滚动数据可能会导致数据条与甘特图对应不在一行上面。

linjiawei

:jumpy:

yangfan

哦，太好了！
结贴：）

楼主，如果方便的话，把这个甘特图功能打个资源包搞上来，可以当作论坛的案例，也方便大家共同学习，谢谢。

linjiawei

打包

yangfan

感谢楼主：）

565118680

以备后用！

atiger

16楼的资源包适用于24XX以前的版本，以后的版本用此楼