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

[phphel]

Я не просто вывожу текст, это было лишь в качестве примера

[DIgorevich]

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

Я не просто вывожу текст, это было лишь в качестве примера

и что из этого следует? мы же тут не телепаты... сформулируй, пожалуйста, четко вопрос. или покажи проблемный участок кода.

[phphel]

Пример, нужно что бы был прозрачным paintbox
кто сталкивался прошу помочь

[DIgorevich]

Пока еще не смотрел (только начал архив распаковывать), но тебе надо посетить эту ветку: http://programmersforum.ru/showthread.php?t=60120

[phphel]

DIgorevich, не надо.

[DIgorevich]

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

DIgorevich, не надо.

Надо, у тебя делфя заражена...
По делу. Измени код создания формы на:

procedure TForm1.FormCreate(Sender: TObject);
begin
  if not BASS_Init(1, 44100, BASS_DEVICE_3D, Handle, nil) then
  begin
      exit;
  end;
  BASS_Start;
  Spectrum:= TSpectrum.Create(boxPaint.Width, boxPaint.Height);
  Spectrum.BackColor:=Form1.Color;
  Spectrum.Height:= boxPaint.Height - 5;
  Spectrum.Mask:= clGray;
end;

И будет он у тебя якобы прозрачный.

P.S.: Я тебе помочь пытаюсь, а не занудствую...

[phphel]

Не решает это проблему

....Spectrum.BackColor:=Form1.Color ;

Я то понимаю, что помочь пытаешься..только не нужно думать, что все вокруг дураки а ты умный...
я бы явно не стал постить тему если бы решение было столь простым..

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

[Пепел Феникса]

Font это шрифт

[DIgorevich]

В общем, пытался делать снимок формы и вставлять бэком в Spectrum, но почему-то во время проигрывания бэк затирается... пробовал таким же макаром вставлять в имейдж - всё пучком...

[phphel]

DIgorevich, и будет затираться..

с Image достаточно поставить Transparent в true, и все будет так как надо.