[Dmitry_DM]

Здравствуйте! Недавно возник вопрос, поэтому прошу вашей помощи. Есть у меня моя программа для обработки звука и недавно я откопал у себя еще одну небольшую программу: Music Spectrum Analyser. Она в формате dpr вся, без формы, но скомпилированный exe имеет нормальную красивую форму. Я бы хотел интегрировать ее в мою программу, основанную на формах и т.д. Но не знаю как. Единое, что я смог сделать - это запускать ее кнопкой вот так:

Код:

procedure TForm1.sButton1Click(Sender: TObject);
begin
windows.WinExec('histogram.exe',windows.SW_NORMAL);
end;

А хотелось бы, чтобы она была в форме. Есть ли такая возможность и как это осуществить?

[Bargest]

Решение "в лоб" - вручную поменять стиль окна этой проги на "окно без границ", поставить парентом своё и растянуть на все свое окно. Как - см. WinAPI, SetWindowLong, ...
Решение не в лоб - разобраться в коде этой проги и внедрить в свой код.

[Dmitry_DM]

Сообщение от Bargest

Решение "в лоб" - вручную поменять стиль окна этой проги на "окно без границ", поставить парентом своё и растянуть на все свое окно. Как - см. WinAPI, SetWindowLong, ...
Решение не в лоб - разобраться в коде этой проги и внедрить в свой код.

Наверное, легче будет использовать "решение не в лоб". Можно попробовать вытащить нужную часть, главное не нарушить функционал. Но самое интересное, что я не знаю на чем произвести рисование. В самом Music Spectrum Analyser оно так хитро рисуется, что я даже не понял как. Вот выложу ее, может кто посмотрит и даст рекомендации по переводу кода на компонент..

[Bargest]

Код:

procedure UpdateSpectrum(uTimerID, uMsg, dwUser, dw1, dw2 : Integer); stdcall;
begin
  if isPlayed then
  begin
    OnDrawData;
    OnDrawBar;
    OnDrawWave;
  end;
end;

Вся отрисовка внутри этих функций видимо.
UPD:

Код:

MoveToEx(BarBitmap.DC, I * (ColWidth + 2) + Offset, BarBitmap.aHeight - fftPeaks[i], NIL);
      LineTo(BarBitmap.DC, I * (ColWidth + 2) + ColWidth + Offset, BarBitmap.aHeight - fftPeaks[i]);

      SetRect(aRect, I * (ColWidth + 2) + Offset, BarBitmap.aHeight - FFTFallOff[i], I * (ColWidth + 2) + ColWidth + Offset, BarBitmap.aHeight);
      SetRect(bRect, aRect.Left, BarBitmap.aHeight, aRect.Right, BarBitmap.aHeight - 1);

      J := aRect.Bottom - aRect.Top;
      repeat
        B := 0;
        R := 255 div BarBitmap.aHeight * (aRect.Bottom - aRect.Top - J);
        G := 256 - R;
	FillRect(BarBitmap.DC, bRect, RGB(R, G, B));
	OffsetRect(bRect, 0, -1);
        dec(J);
      until J < 0;

[angvelem]

Ничего у меня там сложного нет. Рисуется на трёх битмапах, затем они копируются на канвас окна.

[Dmitry_DM]

Сообщение от angvelem

Ничего у меня там сложного нет. Рисуется на трёх битмапах, затем они копируются на канвас окна.

Хм.. Все же на Canvas рисование выполняется? Ок, эта ваша программа, я вспомнил. Может вы подскажете где и в каких местах нужно немного по колдовать, что бы перевести эту программу на форму? P.S Программа превосходна!

[Alegun]

Сообщение от Dmitry_DM

... Она в формате dpr вся, без формы...
А хотелось бы, чтобы она была в форме. Есть ли такая возможность и как это осуществить?

Есть, прога написана без использования VCL, на "чистом" API, путей здесь пара: или сначало "по одному" компоненту (включая и главную форму) перевести их из рантайма в "нормальный" вид - смотреть в коде где и что появляется и заменять их видимыми компонентами;, либо найти в коде только нужное действие (извнт, не знаю что она "хистограмирует") и использовать только его.