From 8e458bc5c9d0639e50dd9dad7e6784b98f977f19 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 15 Mar 2012 18:34:20 +0200 Subject: wuline demo: removed all redundant BeginDraw..EndDraw calls. --- examples/gui/wulinetest/wuline_test.lpr | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'examples') diff --git a/examples/gui/wulinetest/wuline_test.lpr b/examples/gui/wulinetest/wuline_test.lpr index 57632036..a726d843 100644 --- a/examples/gui/wulinetest/wuline_test.lpr +++ b/examples/gui/wulinetest/wuline_test.lpr @@ -45,7 +45,6 @@ end; procedure TMainForm.HandlePaint; begin - Canvas.BeginDraw; inherited HandlePaint; if rbSpokes.Checked then @@ -54,8 +53,6 @@ begin DrawLines else if rbSpiral.Checked then DrawSpiral; - - Canvas.EndDraw; end; procedure TMainForm.btnQuitClicked(Sender: TObject); @@ -69,8 +66,6 @@ var x1, y1, x2, y2: integer; theta: double; begin - Canvas.BeginDraw; - theta := phase; while theta < (360+phase) do begin @@ -85,7 +80,6 @@ begin theta := theta + 10; end; - Canvas.EndDraw; end; procedure TMainForm.DrawSpiral; @@ -96,7 +90,7 @@ begin X1 := 300; Y1 := 100; Theta := 0; - Canvas.BeginDraw; + while Theta < 15 * 3.1415926535 do begin X2 := trunc(X1 + Cos(Theta) * Theta); @@ -106,7 +100,7 @@ begin X1 := X2; Y1 := Y2; end; - Canvas.EndDraw; + end; procedure TMainForm.DrawLines; -- cgit v1.2.3-70-g09d2