[C++ Builder] MDI app MainForm een achtergrond geven

[Raafz0r]

Ik heb een MDI applicatie, en daar wil ik graag de MainForm een achtergrond geven, dus dat je niet meer dat standaard grijs achter je schermpjes hebt als er een niet gemaximized is, maar een leuk plaatje.
Dit lukt echter niet door gewoon een TImage in de MainForm te zetten. In C++ builder lijkt het goed, maar als je dan runt zie je geen plaatje.

Iemand enig idee hoe dit komt? Of moet ik het sowieso op een andere manier doen?

[LordLarry]

(Q1.7) How do I paint a background image on an MDI form?

(A1.7) To do this, you'll need to draw directly to the client window.
More specifically, subclass the client window (access its
handle via the ClientHandle property) and render the image in
response to the WM_ERASEBKGND message.

C:

 // in header...
     FARPROC NewClientWP;
     FARPROC OldClientWP;
     void __fastcall MDIClientWndProc(TMessage &Msg);


 // in source...
 __fastcall TMainForm::TMainForm(TComponent *Owner)
     : TForm(Owner)
 {
    NewClientWP = reinterpret_cast<FARPROC>
        (MakeObjectInstance(MDIClientWndProc));

    OldClientWP = reinterpret_cast<FARPROC>
        (SetWindowLong(ClientHandle, GWL_WNDPROC,
                       reinterpret_cast<LONG>(NewClientWP)));
 }

 void __fastcall TMainForm::MDIClientWndProc(TMessage &Msg)
 {
     switch (Msg.Msg)
     {
        // draw the image to the device context of the
        // client window
        case WM_ERASEBKGND:
        {
           HDC Hdc = reinterpret_cast<HDC>(Msg.WParam);
           SelectPalette(Hdc,
                         Image1->Picture->Bitmap->Palette,
                         true);
           RealizePalette(Hdc);
           StretchBlt(Hdc, 0, 0,
                      Image1->Width, Image1->Height,
                      Image1->Canvas->Handle,
                      0, 0,
                      Image1->Picture->Bitmap->Width,
                      Image1->Picture->Bitmap->Height,
                      SRCCOPY);

           Msg.Result = 0;
           return;
        }

        // handle the palette changes
        case WM_QUERYNEWPALETTE:
        {
            HDC Hdc = GetDC(ClientHandle);
            SelectPalette(Hdc,
                          Image1->Picture->Bitmap->Palette,
                          true);
            RealizePalette(Hdc);
            InvalidateRect(ClientHandle, NULL, true);
            ReleaseDC(ClientHandle, Hdc);

            Msg.Result = 0;
            return;
        }
        case WM_PALETTECHANGED:
        {
            if (reinterpret_cast<HWND>(Msg.WParam) != ClientHandle)
            {
                HDC Hdc = GetDC(ClientHandle);
                SelectPalette(Hdc,
                              Image1->Picture->Bitmap->Palette,
                              true);
                RealizePalette(Hdc);
                UpdateColors(Hdc);
                ReleaseDC(ClientHandle, Hdc);
            }

            Msg.Result = 0;
            return;
       }

       // refresh the image upon scrolling
       case WM_HSCROLL:
       case WM_VSCROLL:
       {
           InvalidateRect(ClientHandle, NULL, true);
           break;
       }

       // un-subclass the client window
       case WM_DESTROY:
       {
           SetWindowLong(ClientHandle, GWL_WNDPROC,
                        reinterpret_cast<LONG>(OldClientWP));
           FreeObjectInstance(NewClientWP);
       }
    }

    // call the default window procedure
    Msg.Result = CallWindowProc(OldClientWP, ClientHandle, Msg.Msg,
                                Msg.WParam, Msg.LParam);
 }

[ Voor 3% gewijzigd door LordLarry op 02-02-2003 21:21 ]

[Raafz0r]

Ok, das dus nog niet zo simpel als ik dacht, maar bedankt, zal dit eens gaan proberen

[TG]

ik heb een vermoeden dat lordlarry vc++ gebruikt wegens het zelf afhandelen van messages
onder bcb is dat wel mogelijk maar niet noodzakelijk

wat je denk ik beter kan doen is een bmp (of een "resource") tekenen naar het canvas van de mdi form

/edit
en na het beter lezen van het bericht van lordlarry kom ik tot de conclussie dat die toch wel BCB gebruikt
bij deze excusses voor het beledigen

[ Voor 27% gewijzigd door TG op 02-02-2003 21:48 ]

[Raafz0r]

Okee, ik dacht eerst ook zoiets, maar de pagina waar hij het vandaan heeft is toch echt voor BCB. En ik had ergens anders gelezen dat je niet makkelijk naar het canvas van een form kon tekenen, omdat ie zichzelf telkens ververst ofzo.