Steema Software - Customer Support Forums
https://www.steema.com/support/
Code: Select all
procedure TForm4.Chart1UndoZoom(Sender: TObject);
begin
Chart1.Axes.Left.Automatic:=true;
Chart1.Axes.Bottom.Automatic:=true;
end;OnScroll event to synchronize the (horizontal, i.e. date) position of our Gantt chart with a corresponding workload chart we display below it. When panning via mouse button this works by simply setting
Code: Select all
dbChartLoad.BottomAxis.SetMinMax(dbChartGantt.TopAxis.Minimum,
dbChartGantt.TopAxis.Maximum);
OnScroll event handler.Code: Select all
type
TkoDBChartAccessor = class(TDBChart);
var
fSyncMouseWheelTarget : TDBChart;
procedure TSomeFrame.dbChartGanttOrLoadMouseWheel(Sender: TObject;
Shift: TShiftState; WheelDelta: Integer;
MousePos: TPoint; var Handled: Boolean);
begin
if Sender = fSyncMouseWheelTarget then
begin
//end recursion: don't propagate any further, but don't prevent the
//scrolling either
exit;
end;
if Sender = dbChartGantt then
begin
fSyncMouseWheelTarget := dbChartLoad;
end
else //Sender = dbChartLoad
begin
fSyncMouseWheelTarget := dbChartGantt;
end;
try
TkoDBChartAccessor(fSyncMouseWheelTarget).DoMouseWheel(Shift, WheelDelta,
MousePos);
finally
fSyncMouseWheelTarget := nil;
end;
end;
TChartScrollBar but it did not trigger the OnScroll event either. Since I ran into some other trouble with it also, we postponed that. In any case, supporting the OnScroll-Event no matter the scrolling method would provide for a straightforward and clean solution.OnScroll event from the mouse wheel.