Canvas.textout 在新系列可见后不显示文本

Question

因此，我正在使用以下代码在teechart图表上显示鼠标指针的x和y值，在onmousemove事件中：

oscilografia.Repaint;
if ((x>236) and (x<927)) and ((y>42) and (y<424)) then
begin
  oscilografia.Canvas.Brush.Style := bsSolid;
  oscilografia.Canvas.Pen.Color := clBlack;
  oscilografia.Canvas.Brush.Color := clWhite;
  oscilografia.Canvas.TextOut(x+10,y,datetimetostr(oscilografia.Series[0].XScreenToValue(x))+','+FormatFloat('#0.00',oscilografia.series[0].YScreenToValue(y)));
  edit1.Text:=inttostr(x)+'  '+inttostr(y);
end;

代码正常工作，但是当我通过在传说中选择另一个系列可见时会发生问题：canvas.textout创建的框中的文本不再显示。

盒子仍在鼠标之后，但没有任何文本。因此，我想解决这个问题。

Answer 1

基本问题取决于绘画的工作原理。Windows没有持久的绘图表面。下次系统需要重新粉刷它时，您在窗口上绘制的内容将被覆盖。

您需要安排所有绘画都响应WM_PAINT消息。用delphi术语，通常意味着您将绘画代码放在覆盖的Paint方法中。

因此，基本过程是这样的：

1. 得出图表控件的子类，并在该类中覆盖Paint。调用继承的Paint方法，然后执行您的代码以显示所需的文本。
2. 在您的OnMouseMove事件处理程序中，如果您检测到需要更新鼠标坐标文本，请在图表上调用Invalidate。
3. 对Invalidate的呼叫将标记该窗口是脏窗口的，并且在下一个油漆周期发生时，将执行Paint中的代码。
4. 更多的是，当发生其他任何迫使油漆周期的事情，例如对图表的其他修改，您的油漆代码将再次执行。

注意，作为子类别的替代方法，您可以使用TChart事件OnAfterDraw。但是我不是TChart的专家，所以不确定。

Answer 2

在您写的评论中，我看到您遵循此示例。
请注意，它不会绘制任何矩形；它仅绘制文字，所以我不确定要了解鼠标的盒子。
还要注意该示例称为Invalidate，正如David Heffernan在答案中所建议的那样。在同一示例的修改版本下面查找，在文本之前绘制矩形。

procedure TForm1.FormCreate(Sender: TObject);
begin
    Series1.FillSampleValues(10);
    Chart1.View3D := False;
end;
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var tmpL,tmpL2,ClickedValue : Integer;
    tmpWidth, tmpHeight: Integer;
    tmpText: string;
begin
    clickedvalue := -1;
    tmpL2:= -1;
    With Chart1 do
    begin
        If (Series1.Clicked(X, Y) <> -1) And (not OnSeriesPoint) Then
        begin
            Canvas.Brush.Style := bsSolid;
            Canvas.Pen.Color := clBlack;
            Canvas.Brush.Color := clWhite;
            tmpText:=FormatFloat('#.00',Series1.XScreenToValue(x))+','+FormatFloat('#.00',Series1.YScreenToValue(y));
            tmpWidth:=Canvas.TextWidth(tmpText)+10;
            tmpHeight:=Canvas.TextHeight(tmpText);
            Canvas.Rectangle(x+5, y, x+tmpWidth, y+tmpHeight);
            Canvas.TextOut(x+10,y,tmpText);
            OnSeriesPoint := True;
            ClickedValue:= Series1.Clicked(x,y);
        End;
        //Repaint Chart to clear Textoutputted Mark
        If (ClickedValue=-1) And (OnSeriesPoint) Then
        begin
            OnSeriesPoint := False;
            Invalidate;
        End;
        tmpL := Chart1.Legend.Clicked(X, Y);
        If (tmpL <> -1) And ((tmpL <> tmpL2) Or (not OnLegendPoint)) Then
        begin
            repaint;
            Canvas.Brush.Color := Series1.LegendItemColor(tmpL);
            Canvas.Rectangle( X, Y, X + 20, Y + 20);
            Canvas.Brush.Color := clWhite;
            Canvas.TextOut(x+15,y+7,FormatFloat('#.00',Series1.XValues.Items[Series1.LegendToValueIndex(tmpl)]));
            tmpL2 := tmpL;
            OnLegendPoint := True;
        End;
        If (tmpL2 = -1) And (OnLegendPoint) Then
        begin
            OnLegendPoint := False;
            Invalidate;
        End;
    End;
End;