4

我有 ListView (vsReport) 和 StringGrid，我想要的是如果我单击 ListView 中的某个元素，StringGrid 中的特定单元格必须更改颜色。我该怎么做？

路径填充有 1（上移）和 0（右移），它从左下角开始，到右上角结束，我必须为这些单元格着色。

感谢您的回答，我解决了我的问题，但还有另一个小问题，我怎样才能让单元格中的文本可见？FillRect 填充整个单元格。

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
var aRect: TRect;
     a,x,y:integer;
     path:string;
begin
  path:=ListView1.Items[Item.Index].Caption;

  x:=0;
  y:=StringGrid1.RowCount;
for a := 0 to length(path) do
  begin
   if path[a]='1' then y:=y-1 else x:=x+1;
   aRect := StringGrid1.CellRect(x-1,y-1);
   StringGrid1.Canvas.Brush.Color := clBlue;
   StringGrid1.Canvas.FillRect(aRect);
   end;
end;
4

1 回答 1

6
  1. 意识到单元格的颜色变化应该是永久性的，因此当再次绘制 StringGrid 时，例如当 StringGrid 被对话框混淆时，也应该再次绘制特殊颜色。
  2. 因此，您需要将所需的颜色存储在某处。假设您想为此使用数组，然后在以下选项中做出选择：
    • 将特殊颜色与网格坐标一起存储在一维数组中。这有利于内存使用，但您需要在整个数组中搜索 StringGrid 的OnDrawCell处理程序（参见步骤 3）提供的特定坐标，
    • 仅将特殊颜色存储在二维数组中。这对绘制时的速度很有好处，但是您需要将数组的列和行边界与 StringGrid 的边界同步，
    • 或者，当您出于任何目的不需要ObjectsStringGrid 的属性时，您可以通过将颜色类型转换为TObject. 如果您需要帮助，请大声喊叫。
  3. 在 StringGrid 的事件处理程序中绘制彩色单元格（在需要帮助时在OnDrawCellStack Overflow 上搜索[Delphi] StringGrid OnDrawCell ）。
  4. ListView 的OnSelectItem事件公开了被单击或以其他方式选择的项目。
  5. 从该项目或其子项目中检索必要信息以确定哪个单元格将更改为哪种颜色。
  6. 将该信息添加到步骤 2 中选择的存储解决方案中。
  7. 意识到现在所有的绘画都是“自动”完成的，只需要一个电话就StringGrid.Repaint足够了。
于 2012-01-31T19:00:22.477 回答