The Delphi Canvas

from SoundAnalysisFrm.pas Unbuffered output Image1: TImage; procedure DisplayBuffer(Buffer: TWaveBuffer); var i: integer; begin with Form1.Image1.Canvas do begin MoveTo(1,Buffer.Mono8[1]); for i:=1 to 1000 do LineTo(i, Buffer.Mono8[i]); end; end; procedure ClearDisplay(); begin with Form1.Image1.Canvas do begin Rectangle(0, 0, Form1.Image1.width, Form1.Image1.Height); end; end;

Additional Resources

SMBevel component - Inherited from TBevel class with the extended features. Has the ability to draw raised and etched lines with and without arrows.

Author: Robert Clemenzi -
URL: http:// / user / clemenzi / technical / Languages / Delphi / Canvas.html