25.11.2012, 01:46
|
 |
.
|
|
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
|
|
OnDrawBar - рисует "столбики", OnDrawWave - "волну". Создать битмапы в которые будет происходить отрисовка. Последние строки
Код:
// update the display
BitBlt(MainDC, 3, 132, BarBitmap.aWidth, BarBitmap.aHeight, BarBitmap.DC, 0, 0, SRCCOPY);
...
// update the display
BitBlt(MainDC, 379, 132, WaveBitmap.aWidth, WaveBitmap.aHeight, WaveBitmap.DC, 0, 0, SRCCOPY);
выводят в нужное место. Если вместо MainDC написать PaintBox1.Canvas.Hadle, то больше никаких изменений не потребуется, кроме координат выода. |