Forum: Multimedia
Delphi
by Volker Z.,
24. Sep 2013
Hallo,
hast Du schon mal folgendes versucht (ich beschränke mich auf das Wesentliche, ansonsten Dein Code wie gehabt)
procedure TForm1.DrawSpectrum;
begin
// clear background
Buffer.Canvas.Brush.Color := TStyleManager.ActiveStyle.GetStyleColor (scWindow);
Buffer.Canvas.FillRect(Rect(0, 0, Buffer.Width, Buffer.Height));
Forum: Multimedia
Delphi
by Volker Z.,
21. Sep 2013
Hallo,
Was zeichnest Du?
Wir wären für jeden weiteren Input dankbar.
Ich lege mir eine Paintbox und ImageList (14 Bitmaps 256x256 Pixel) auf ein Formular und lass mir mal was in der Paintbox zeichnen
procedure TForm1.PaintBox1Paint(Sender: TObject);