mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-30 14:22:49 +02:00
50 lines
1.1 KiB
ObjectPascal
50 lines
1.1 KiB
ObjectPascal
unit Main;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, TAGraph,
|
|
TASeries, TASources;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
Chart1: TChart;
|
|
Chart1BarSeries1: TBarSeries;
|
|
RandomChartSource1: TRandomChartSource;
|
|
procedure Chart1BeforeDrawBackground(ASender: TChart; ACanvas: TCanvas;
|
|
const ARect: TRect; var ADoDefaultDrawing: Boolean);
|
|
procedure Chart1BeforeDrawBackWall(ASender: TChart; ACanvas: TCanvas;
|
|
const ARect: TRect; var ADoDefaultDrawing: Boolean);
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.Chart1BeforeDrawBackground(ASender: TChart; ACanvas: TCanvas;
|
|
const ARect: TRect; var ADoDefaultDrawing: Boolean);
|
|
begin
|
|
ACanvas.GradientFill(ARect, $FFFFFF, $FF8080, gdVertical);
|
|
ADoDefaultDrawing := false;
|
|
end;
|
|
|
|
procedure TForm1.Chart1BeforeDrawBackWall(ASender: TChart; ACanvas: TCanvas;
|
|
const ARect: TRect; var ADoDefaultDrawing: Boolean);
|
|
begin
|
|
ACanvas.GradientFill(ARect, $FFFFFF, $80FF80, gdVertical);
|
|
ADoDefaultDrawing := false;
|
|
end;
|
|
|
|
end.
|
|
|