Прозрачность в PAintBox

[DIgorevich]

Лови: Project1.rar
надеюсь, так нужно?

var
  Form1: TForm1;
  Channel: DWORD;
  TempBMP: TBitmap;
implementation

{$R *.dfm}

procedure TForm1.tmrFFTTimer(Sender: TObject);
var
  FFTFata: TFFTData;
begin
  if BASS_ChannelIsActive(Channel) <> BASS_ACTIVE_PLAYING then Exit;
  BASS_ChannelGetData(Channel, @FFTFata, BASS_DATA_FFT1024);
  Spectrum.Draw(boxPaint.Canvas.Handle, FFTFata, 2, -2);
  Spectrum.SetBackground(True,TempBMP);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if not BASS_Init(1, 44100, BASS_DEVICE_3D, Handle, nil) then
  begin
      exit;
  end;
  BASS_Start;

end;

procedure TForm1.Button1Click(Sender: TObject);
var  Drect,srect:TRect;
begin
  Spectrum:= TSpectrum.Create(boxPaint.Width, boxPaint.Height);
  Spectrum.Height:= boxPaint.Height - 5;
  Spectrum.Mask:= clGray;
  srect:=Bounds(boxPaint.left,boxPaint.top,boxPaint.Width,boxPaint.Height);
  drect:=Bounds(0,0,boxPaint.Width,boxPaint.Height);
  TempBMP:=TBitmap.Create;
  TempBMP.Width:=boxPaint.Width;
  TempBMP.Height:=boxPaint.Height;
  TempBMP.Canvas.CopyRect(Drect, Form1.Canvas, srect);
if opendialog1.Execute then 
 begin
  tmrFFT.Enabled:=true;
   Channel := BASS_StreamCreateFile(FALSE, PChar(opendialog1.FileName), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
      BASS_ChannelPlay(Channel, False);
 end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  TempBMP.Free;
  Spectrum.Free;
  BASS_Free;
end;

[phphel]

У меня в твоем примере если открыть файл форма закрывается..подозреваю что идет переполнение стека

[DIgorevich]

я переделал пример, не качай. Ты лучше код посмотри, он рабочий, без переполнения уже.

[phphel]

Что значит не качай?

[DIgorevich]

там экзешка была старая, от другого кода...
Рабочий код: двумя моими постами выше... Ты просто вставь его и проверь

[phphel]

В примере работает, а у меня нет. почему то берет фон с формы 1, а мне надо с формы2, + желательно было бы делать отрисовку в OnPaint а не в таймере

[DIgorevich]

ну делай Copyrect с формы2... а отрисовку ТОЛЬКО при обновлении Spectrum'a

  srect:=Bounds(boxPaint.left,boxPaint.top,boxPaint.Width,boxPaint.Height);
  drect:=Bounds(0,0,boxPaint.Width,boxPaint.Height);
  TempBMP:=TBitmap.Create;
  TempBMP.Width:=boxPaint.Width;
  TempBMP.Height:=boxPaint.Height;
  TempBMP.Canvas.CopyRect(Drect, Form1.Canvas, srect);

здесь прописываются координаты откуда брать фоновое изображение

[phphel]

DIgorevich....мда.

[DIgorevich]

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

DIgorevich....мда.

что значит? не вижу трудностей...

[DomiNick]

варианты типа "Юзай TImage" не катят, по многим причинам.

За что ж немилость-то такая?

Возможно пригодится: http://programmersforum.ru/showthread.php?t=108931