The Delphi Canvas
<![CDATA[
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