Вывод HBITMAP

[AidarBik]

Рисую на окне HBITMAP но если переместить окно за пределы экрана то пропадают все остальные контролы
Static и Button'ы я вроде смог вернуть, но ListView не получается.

procedure ShowBitMap(Wnd: HWND; Bit: HBITMAP; X, Y: Integer);
var
  BitMap: TBitmap;
  Width, Height: Integer;
  DC, DCMem: HDC;
  OldBitmap: HBITMAP;
begin
  GetObject(Bit, SizeOf(BITMAP), @BitMap);
  Height:=BitMap.bmHeight;
  Width:=BitMap.bmWidth;
  DC:=GetDC(Wnd);
  DCMem:=CreateCompatibleDC(DC);
  OldBitmap:=HBITMAP(SelectObject(DCMem, Bit));
  //HBITMAP OldBitmap=SelectBitmap(hdc,Bit);
  BitBlt(DC, X, Y, Width, Height, DCMem, 0, 0, SRCCOPY);    //PATCOPY
  SelectObject(DCMem, OldBitmap);
  //SelectBitmap(hdcMem,OldBitmap);
  ReleaseDC(Wnd, DC);
  DeleteDC(DCMem);
end;
...
  WM_PAINT:
  begin
    SetBkMode(GetDC(WindowCaptionStatic), TRANSPARENT);
    HDCClient:=BeginPaint(UsersWindow, PaintStruct);
    GetClientRect(UsersWindow, WndRect);
    PaintStruct.rcPaint:=WndRect;
    BitBlt(HDCClient, 0, 0, 315, 332, UsersBackground, 0, 0, SRCAND);
    ReleaseDC(UsersWindow, HDCWindow);}

    ShowBitMap(UsersWindow, UsersBackground, 0, 0);
    EndPaint(UsersWindow, PaintStruct);
    //Восстанавливаю элементы
    GetWindowText(WindowCaptionStatic, TmpAChar, GetWindowTextLength(WindowCaptionStatic) + 1);
    SetWindowText(WindowCaptionStatic, TmpAChar);
    GetWindowText(AddUser, TmpAChar, GetWindowTextLength(AddUser) + 1);
    SetWindowText(AddUser, TmpAChar);
    GetWindowText(ChangeUser, TmpAChar, GetWindowTextLength(ChangeUser) + 1);
    SetWindowText(ChangeUser, TmpAChar);   
    GetWindowText(DeleteUser, TmpAChar, GetWindowTextLength(DeleteUser) + 1);
    SetWindowText(DeleteUser, TmpAChar);   
    GetWindowText(OK, TmpAChar, GetWindowTextLength(OK) + 1);
    SetWindowText(OK, TmpAChar);
  end;

[Arigato]

После отрисовки тебе нужно вызвать стандартный виндовый обработчик:
DefWindowProc (Wnd, WM_PAINT, wParam, lParam);

[AidarBik]

Все равно не показывается ListView

[Arigato]

Полностью код обработчика сообщений приведите.

[AidarBik]

function UsersWindowProc(Wnd: HWND; Msg: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  //TmpDC: HDC;
  PaintStruct: tagPAINTSTRUCT;
  HDCClient, HDCWindow: HDC;
  WndRect: TRect;
  TmpAChar: Array [0..255] of Char;
  CursorPos: TPoint;
begin
  Result:=0;
  //GetWindowRect(Wnd, WndRect);
  //DrawGradient(GetDC(Wnd), WndRect, False, [$00000000, $FFFFFFFF]);
  case Msg of
  WM_PAINT:
  begin
    SetBkMode(GetDC(WindowCaptionStatic), TRANSPARENT);
    HDCClient:=BeginPaint(UsersWindow, PaintStruct);
    GetClientRect(UsersWindow, WndRect);
    PaintStruct.rcPaint:=WndRect;
    {HDCWindow:=GetWindowDC(UsersWindow);
    //TmpDC:=GetDC(UsersWindow);
    BitBlt(HDCClient, 0, 0, 315, 332, UsersBackground, 0, 0, SRCAND);
    ReleaseDC(UsersWindow, HDCWindow);}

    ShowBitMap(UsersWindow, UsersBackground, 0, 0);
    EndPaint(UsersWindow, PaintStruct);

    GetWindowText(WindowCaptionStatic, TmpAChar, GetWindowTextLength(WindowCaptionStatic) + 1);
    SetWindowText(WindowCaptionStatic, TmpAChar);
    GetWindowText(AddUser, TmpAChar, GetWindowTextLength(AddUser) + 1);
    SetWindowText(AddUser, TmpAChar);
    GetWindowText(ChangeUser, TmpAChar, GetWindowTextLength(ChangeUser) + 1);
    SetWindowText(ChangeUser, TmpAChar);   
    GetWindowText(DeleteUser, TmpAChar, GetWindowTextLength(DeleteUser) + 1);
    SetWindowText(DeleteUser, TmpAChar);   
    GetWindowText(OK, TmpAChar, GetWindowTextLength(OK) + 1);
    SetWindowText(OK, TmpAChar);
    //RedrawWindow(WindowCaptionStatic, GetRectOfWindow(WindowCaptionStatic), 0, 0);
    //DeleteDC(TmpDC);
    SendMessage(UsersListView, WM_PAINT, 0, 0);
    SetBkMode(GetDC(OK), TRANSPARENT);
  end;
  WM_CREATE:
  begin
    UsersBackground:=LoadImage(0, PChar(ExtractFilePath(ParamStr(0)) + 'Skins\Default\Users-Background.bmp'), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE);
    with Tray do
    begin
      cbSize:=SizeOf(TNotifyIconData);
      Wnd:=Wnd;
      uID:=13;
      uFlags:=NIF_MESSAGE + NIF_ICON + NIF_TIP;
      //StrCopy(szTip, ProgrammName);
      //hIcon:=GetIcon();
      uCallBackMessage:=WM_USER + 13;
    end;
    Tray.Wnd:=Wnd;
    Shell_NotifyIcon(NIM_ADD, @Tray);
    TrayMenu:=CreatePopupMenu;
    AppendMenu(TrayMenu, MF_STRING or MF_DEFAULT, 1, 'Учетные записи...');
    AppendMenu(TrayMenu, MF_SEPARATOR, 0, nil);
    SubMenu:=CreatePopupMenu;
    AppendMenu(SubMenu, MF_STRING or mf_, 3, '1 минуту');
    AppendMenu(SubMenu, MF_STRING, 4, '2 минуты');
    AppendMenu(SubMenu, MF_STRING, 5, '5 минут');
    AppendMenu(SubMenu, MF_STRING, 6, '10 минут');
    AppendMenu(SubMenu, MF_STRING or MF_SEPARATOR, 0, nil);
    AppendMenu(SubMenu, MF_STRING, 7, 'Другое...');
    AppendMenu(TrayMenu, MF_STRING or MF_POPUP, SubMenu, 'Проверять каждые');       
    AppendMenu(TrayMenu, MF_STRING, 8, 'Проверить сейчас');
    AppendMenu(TrayMenu, MF_STRING, 9, 'Запускать вместе с Windows');
    AppendMenu(TrayMenu, MF_STRING, 10, 'Оповещать при любом изменении');
    AppendMenu(TrayMenu, MF_STRING, 11, 'Настройки...');
    AppendMenu(TrayMenu, MF_SEPARATOR, 0, nil);
    AppendMenu(TrayMenu, MF_STRING, 13, 'О программе...');
    AppendMenu(TrayMenu, MF_STRING, 666, 'Выход');
    SetMenu(Wnd, TrayMenu);
  end;
  WM_COMMAND:
  begin
    case LOWORD(wParam) of
    //1: ;//ModifyMenu(TrayMenu, 0, MF_BYPOSITION or MF_STRING, 1, 'Запускать вместе с Windows');
    //2: ;

    666: SendMessage(UsersWindow, WM_DESTROY, 0, 0);
    end;
  end;
  WM_USER + 13:
  case lParam of
  WM_RBUTTONUP:
  begin
    GetCursorPos(CursorPos);
    SetForegroundWindow(Wnd);
    TrackPopupMenu(TrayMenu, TPM_RIGHTBUTTON, CursorPos.X, CursorPos.Y, 0, Wnd, nil);
    PostMessage(Wnd, WM_NULL, 0, 0);
  end;
  end;
  WM_SHOWWINDOW: LoadUsersList;
  WM_CLOSE: ShowWindow(Wnd, SW_HIDE);
  WM_DESTROY:
  begin
    SetLength(Users, 0);
    ShowWindow(AddUserWindow, SW_HIDE);
    ShowWindow(Wnd, SW_HIDE);
    DeleteObjects([UsersWindow, WindowCaptionStatic, UsersListView, AddUser, ChangeUser, DeleteUser, OK]);
    Shell_NotifyIcon(NIM_DELETE, @Tray);
    PostQuitMessage(0);
    Exit;
  end;
  WM_NCHITTEST: Result:=HTCAPTION;
  else
  Result:=DefWindowProc(Wnd, Msg, wParam, lParam);
  end;
end;

[Arigato]

И все равно я не вижу в обработчике события WM_PAINT вызова DefWindowProc
Попробуйте так:

   WM_PAINT:  
   begin  
     SetBkMode(GetDC(WindowCaptionStatic), TRANSPARENT);  
     HDCClient:=BeginPaint(UsersWindow, PaintStruct);  
     GetClientRect(UsersWindow, WndRect);  
     PaintStruct.rcPaint:=WndRect;  
     ShowBitMap(UsersWindow, UsersBackground, 0, 0);  
     EndPaint(UsersWindow, PaintStruct);  
     SetBkMode(GetDC(OK), TRANSPARENT);  
     DefWindowProc (Wnd, WM_PAINT, wParam, lParam);
   end;

[AidarBik]

Я его уже стер потом.
С ним все равно не получается.

[B_N]

Не нужно вызывать DefWindowProc из WM_PAINT. Нужно установить стиль WS_CLIPCHILDREN для главного окна.