paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 09:58:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Minor refactoring of "bgra" demo

Browse Source 
git-svn-id: trunk@40082 -
This commit is contained in:
ask 2013-01-31 05:10:57 +00:00
parent 0b5f32e4bd
commit 9e61f1b1e4
2 changed files with 11 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/demo/bgra/Main.lfm
View File

@ -172,17 +172,10 @@ object Form1: TForm1
OnClick = btnStartStopClick
TabOrder = 1
end
object lblSkipped: TLabel
Left = 9
Height = 1
Top = 340
Width = 1
ParentColor = False
end
object Image1: TImage
Left = 9
Left = 10
Height = 148
Top = 176
Top = 146
Width = 61
Picture.Data = {
1754506F727461626C654E6574776F726B477261706869636D0C000089504E47

24
components/tachart/demo/bgra/Main.pas
View File

@ -26,7 +26,6 @@ type
chSliceScaling: TChart;
chSliceScalingBarSeries1: TBarSeries;
Image1: TImage;
lblSkipped: TLabel;
ListChartSource1: TListChartSource;
PageControl1: TPageControl;
PaintBox1: TPaintBox;
@ -50,12 +49,10 @@ type
procedure rgMethodClick(Sender: TObject);
private
FAnimatedSource: TCustomAnimatedChartSource;
FSliceScaling: TBGRASliceScaling;
procedure OnGetItem(
ASource: TCustomAnimatedChartSource;
AIndex: Integer; var AItem: TChartDataItem);
procedure OnStop(ASource: TCustomAnimatedChartSource);
public
sliceScaling: TBGRASliceScaling;
end;
var
@ -105,11 +102,14 @@ var
temp: TBGRABitmap;
sz: TPoint;
begin
Unused(ASender);
Unused(APointIndex, AStackIndex);
ADoDefaultDrawing := false;
sz := ARect.BottomRight - ARect.TopLeft;
temp := TBGRABitmap.Create(
sliceScaling.BitmapWidth, Round(sliceScaling.BitmapWidth * sz.Y / sz.X));
FSliceScaling.BitmapWidth, Round(FSliceScaling.BitmapWidth * sz.Y / sz.X));
try
sliceScaling.Draw(temp, 0, 0, temp.Width, temp.Height);
FSliceScaling.Draw(temp, 0, 0, temp.Width, temp.Height);
temp.Draw(ACanvas, ARect);
finally
temp.Free;
@ -123,16 +123,15 @@ begin
FAnimatedSource.AnimationInterval := 30;
FAnimatedSource.AnimationTime := 1000;
FAnimatedSource.OnGetItem := @OnGetItem;
FAnimatedSource.OnStop := @OnStop;
chSliceScalingBarSeries1.Source := FAnimatedSource;
sliceScaling := TBGRASliceScaling.Create(Image1.Picture.Bitmap, 70, 0, 35, 0);
sliceScaling.AutodetectRepeat;
FSliceScaling := TBGRASliceScaling.Create(Image1.Picture.Bitmap, 70, 0, 35, 0);
FSliceScaling.AutodetectRepeat;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
sliceScaling.Free;
FSliceScaling.Free;
end;
procedure TForm1.PaintBox1Paint(Sender: TObject);
@ -175,11 +174,6 @@ begin
end;
end;
procedure TForm1.OnStop(ASource: TCustomAnimatedChartSource);
begin
lblSkipped.Caption := Format('Skipped frames: %d', [ASource.SkippedFramesCount]);
end;
procedure TForm1.rgMethodClick(Sender: TObject);
begin
FAnimatedSource.Start;