Nicht schön, aber wirkungsvoll:
Ich hab mal zusätzlich ein Image aufgezogen, dass die selbe Grösse des Charts hat.
Im
TChart.OnAfterDraw kopier ich den ganzen Schmö dann auf das Canvas vom Image:
Delphi-Quellcode:
{...}
procedure TForm1.Chart1AfterDraw(Sender: TObject);
begin
with Chart1.Canvas do begin
Image1.Canvas.CopyRect (
ReferenceCanvas.ClipRect,
ReferenceCanvas,
ReferenceCanvas.ClipRect
);
end;
end;
{...}
Clicks könnte man widerum rückwärts holen, indem man auf
onClick oder
onMouseDown auf dem Image den Punkt am Chart abfragt. Der Zoom ist ein wenig umfangreicher, aber auch noch rekonstruierbar. Ebenso das panning. Ich hoffe das hilft (und spart die 150 €)
