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 - clemenzi@cpcug.org
URL: http:// cpcug.org / user / clemenzi / technical / Languages / Delphi / Canvas.html