I was recently asked to write an application for a company
that wanted their logo on every single window in the program. As
the application grew there became less and less space for a
company bitmap logo within some of the tabbed-dialog boxes. Due
to this I decided to see if I could place the bitmap logo in the
PropertySheet area that is normally only used by the the OK,
Cancel and Apply buttons. The picture below shows what I
achived…
To do this is quite easy.
1. Firstly create a subclass of
CPropertySheet called CMyPropertySheet.
2. Override the WM_PAINT message by creating
an OnPaint() member function for CMyPropertySheet, and paste the
follwing code into it.
CBitmap bmp, *poldbmp; CDC memdc; CRect rect; //Load the bitmap resource bmp.LoadBitmap(IDB_BITMAPLOGO); //Create a compatible memory DC memdc.CreateCompatibleDC(&dc); //Select the bitmap into the DC poldbmp = memdc.SelectObject(&bmp);//bmp //Get size of PropertySheet GetClientRect(&rect); //Copy (BitBlt) bitmap from memory DC to screen DC dc.BitBlt(left, rect.bottom - lower, w, h, &memdc, 0, 0, SRCCOPY); memdc.SelectObject(poldbmp);
The dc.BitBlt places a w pixel wide by
h pixel high image left pixels away from the
left hand edge, and lower pixels away from the bottom of
the PropertySheet. Change these values as you see fit.
3. #include "MyPropertSheet.h"
in the calling dialog that you wish to use the new property page
in.
4. Add PropertyPages to the PropertySheet and
call it, e.g…..
CMyPropertySheet sheet("Personnel Details");
CPerFildlg perfildlgPage;
CAddDetdlg adddetdlgPage;
CDelDetdlg deldetdlgPage;
sheet.AddPage(&perfildlgPage);
sheet.AddPage(&adddetdlgPage);
sheet.AddPage(&deldetdlgPage);
sheet.DoModal();
More advanced code for drawing bitmaps / DIBs which also uses
palettes may be found on this site.
Date Posted: 05/04/98