Контролы поверх картинки

[ДралсяСошибками]

Всем привет, есть пример сплеша

procedure TForm1.FormCreate(Sender: TObject);
var
  GPImage: TGPImage;
  GPGraph: TGPGraphics;
  m_Image: TGPImage;
  m_hdcMemory: HDC;
  hdcTemp: HDC;
  hdcScreen: HDC;
  hBMP: HBITMAP;
  sizeWindow: SIZE;
  dwExStyle: DWORD;
  rct: TRect;
  ptWinPos: TPoint;
  ptSrc: TPoint;
  m_Blend: BLENDFUNCTION;
  ResStream: TResourceStream;
  Stream: IStream;
begin
  m_Blend.BlendOp := 0;
  m_Blend.BlendFlags := 0;
  m_Blend.AlphaFormat := 1;
  m_Blend.SourceConstantAlpha := 255;

  try
    // ХвКЗґУЧКФґЦРТФБчµД·ЅКЅФШИлµД
    ResStream := tresourcestream.Create(hinstance, PChar('SplashPng'),
      PChar('PngFile'));
    Stream    := TStreamAdapter.Create(ResStream);
    GPImage   := TGPImage.Create();
    m_Image   := GPImage.FromStream(Stream);

    // Из№ыТЄґУОДјюЦРФШИлЛьУРёц FromFile·Ѕ·Ё
    // GPImage.FromFile(xxx);

  finally

    ResStream.Free;
    Stream._Release();
  end;

  Width := m_Image.GetWidth();
  Height := m_Image.GetHeight();

  hdcTemp := GetDC(0);
  m_hdcMemory := CreateCompatibleDC(hdcTemp);
  hBMP := CreateCompatibleBitmap(hdcTemp, m_Image.GetWidth(),
    m_Image.GetHeight());
  SelectObject(m_hdcMemory, hBMP);

  m_Blend.SourceConstantAlpha := Round(100 * 2.55); // 1~255
  hdcScreen := GetDC(0);
  GetWindowRect(Handle, rct);
  ptWinPos.X := rct.Left;
  ptWinPos.Y := rct.Top;

  GPGraph := TGPGraphics.Create(m_hdcMemory);
  GPGraph.DrawImage(m_Image, 0, 0, m_Image.GetWidth(), m_Image.GetHeight());

  sizeWindow.cx := m_Image.GetWidth();
  sizeWindow.cy := m_Image.GetHeight();

  ptSrc.x := 0;
  ptSrc.y := 0;

  // ОЄґ°МеФцјУА©Х№СщКЅ
  dwExStyle := GetWindowLong(Handle, GWL_EXSTYLE);
  if ((dwExStyle and $80000) <> $80000) then
    SetWindowLong(Handle, GWL_EXSTYLE, dwExStyle xor $80000);

  UpdateLayeredWindow(Handle, hdcScreen, @ptWinPos, @sizeWindow,
    m_hdcMemory, @ptSrc, 0, @m_Blend, 2);

  // КН·ЕЧКФґ
  GPGraph.ReleaseHDC(m_hdcMemory);
  ReleaseDC(0, hdcScreen);
  hdcScreen := 0;

  ReleaseDC(0, hdcTemp);
  hdcTemp := 0;

  DeleteObject(hBMP);

  DeleteDC(m_hdcMemory);

  m_hdcMemory := 0;
  m_Image.Free;
  GPGraph.Free;

end;

как сделать, чтобы поверх отрисовались кнопки, прогрессбар???

[Stilet]

Не оч. понял как на данный момент выглядит окно, что контролы за картинку залезли...

[ДралсяСошибками]

на форме 2 кнопки, только не одной не видно, понимаю, что надо как-то их рисовать, но не знаю как. гуглю на эту тему, но безрезультатно пока(

добавил файл ресурс в котором эта картинка

я не китаец, исходник с китайской помойки))

[Stilet]

А-а-а, дошло...
Была у меня похожая проблема, я не стал париться просто к рисунку (а точнее на сам рисунок) пририсовал кнопки, а в программе анализировал координаты клика мышки. Если они совпадали с координатами рисунков (их то я четко знал) - производилось действие. Проблема оставалась оживить кнопки на время клика - просто при зажатии ЛКМ рисовал другой рисунок на той канве поверх этого.
А стандартные контролы я тоже отмел.

[ДралсяСошибками]

ну я хотел сплэш сделать на подобии как у фотошопа, тут мне координаты мышки не особо помогут(((
единственное решение пока, это вырезать на картинке середину и подложить под эту форму другую форму с контролами, но это как-то муторно(((

[Stilet]

тут мне координаты мышки не особо помогут(

Че это так? Ты же все равно рисуешь на чем-то? Почему нельзя узнать над какими координатами этого чего-то прошла мышка?

[ДралсяСошибками]

если это сплэш будет, то зачем по нему мышью водить? мне там надо будет например прогресс рисовать))

[ZuBy]

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

 UpdateLayeredWindow(Handle, hdcScreen, @ptWinPos, @sizeWindow,
    m_hdcMemory, @ptSrc, 0, @m_Blend, 2);

предпологает что обновлением будет заниматься сам разработчик.

[Stilet]

например прогресс рисовать

Я бы не надеялся сильно на стандартные формовые контролы. Согласен с Зубом - рисовать по своему получится лучше.

[саша40]

Если картинка твоя это наследник TComponent, то достаточно контролам присвоить свойству Parent значение этой картинки(точнее указателя на неё) и тогда контролы будут отрисовываться поверх неё.