SetWindowPos для дочерних окон и битмапов.

[Alex Cones]

Имеется окно. В нем на весь его размер дочернее. Что-то типа TImage:

Warehouse.Form[Index].Handle :=                                                                   // Create form handle.
   CreateWindowEx(0, Application.WinClass.lpszClassName, '',                                        // Set class name and caption. 
                  WS_POPUP,                                                                         // Set style.
                  Warehouse.Size[Warehouse.Form[Index].Index].Left,                                 // Set left.
                  Warehouse.Size[Warehouse.Form[Index].Index].Top,                                  // Set top.
                  Warehouse.Size[Warehouse.Form[Index].Index].Width,                                // Set width.
                  Warehouse.Size[Warehouse.Form[Index].Index].Height,                               // Set height.
                  0, 0, Application.Handle, Nil);                                                   // Set parent.

  Warehouse.Form[Index].Image.Handle :=                                                             // Create image handle.
   CreateWindow(APP_STATIC, '',                                                                     // Create TImage control.
                WS_CHILD Or SS_BITMAP Or WS_VISIBLE,                                                // Styles of control.
                0,                                                                                  // Set left.
                0,                                                                                  // Set top.
                Warehouse.Size[Warehouse.Form[Index].Index].Width,                                  // Set width.
                Warehouse.Size[Warehouse.Form[Index].Index].Height,                                 // Set height.
                Warehouse.Form[Index].Handle,                                                       // Set parent handle.
                0, Application.Handle, Nil);                                                        // Set main parent handle.

Дальше для "TImage" создаю структуру, в которой хранится "буфер" для изображения. Основа буфера - hBitMap.

Теперь ситуация. Мне нужно поменять размеры окна.

Раньше (в старой версии). Я делал DeleteObject для hBitMap, DestroyWindow для "TImage", затем вызываю SetWindowPos для главного окна, потом создаю дочернее и заново создаю hBitMap.

Теперь я немного изменил структуру - буфер для TImage теперь полноценная текстура из хранилища. Это дает больше возможностей для визуальных эффектов. Но теперь убийство "буфера" будет караться Access Violation, поэтому хотелось бы обойтись малой кровью.

Итак, полный список шагов, которые мне необходимо предпринять:
0)

╔═══╗
║   ║
╚═══╝

1) Вызываю SetWindowPos для главного окна:

╔═══╦╗
║   ║║
╠═══╝║
╚════╝

2) Вызываю SetWindowPos для дочернего окна (правильно ли это?)

╔════╗
║    ║
║    ║
╚════╝

3) Теперь нужно как то изменить размеры битмпа, на который ссылается hBitMap без потери того, что на нем уже нарисовано (если новый размер больше, или с обрезкой, если новый размер меньше).

В общем хотелось бы получить ответы от гуру на выделенные вопросы.

P.S. Подсветка кода опять отжигает.

[GreyScall]

Что-то типа TImage

TImage из VCL - это вообще не окно... Что есть "APP_STATIC"?

Теперь ситуация. Мне нужно поменять размеры окна.

Программно или пользователь мышкой изменяет? Впрочем неважно...

Раньше (в старой версии). Я делал DeleteObject для hBitMap, DestroyWindow для "TImage", затем вызываю SetWindowPos для главного окна, потом создаю дочернее и заново создаю hBitMap.

ам... Пересоздавать-то зачем? После изменения размеров окно получает сообщение WM_SIZE - как раз в нём и логичнее всего корректировать размеры и координаты дочерних окон... GetClientRect() + MoveWindow() + возможно пригодится InvalidateRect()...

А зачем при изменении размеров этого "APP_STATIC" изменять также и размеры HBITMAP? Просто выводите нужную его часть в нужной области (StretchBlt())...

Если для каких-то целей всё же требуется изменение размеров HBITMAP (например для сохранения в файл), то придётся создавать второй битмап (нового размера) и копировать в него нужную часть первого битмапа...

[Alex Cones]

TImage из VCL - это вообще не окно

Вообще-то TImage выше я взял в кавычки.

Что есть "APP_STATIC"?

Строковая константа, равная 'Static'

А зачем при изменении размеров этого "APP_STATIC" изменять также и размеры HBITMAP?

Да потому, что это его буфер и он перестает соответствовать его размерам.

Ладно, с буфером понятно. Я такк и не услышал ответ на первый вопрос - SetWindowPos подействует на дочернее окно?

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

Ладно, с буфером понятно. Я такк и не услышал ответ на первый вопрос - SetWindowPos подействует на дочернее окно?

вообще действует.

[Alex Cones]

вообще

Смущает меня это слово из вашего ответа. Действует, но с оговорками?