🚀 go-pugleaf

"FrankW" <nospam@nospam.com> wrote in message
news:3eb8a7f7@newsgroups.borland.com...

> I came across a Delphi code 'ScreenShot', but have
> problem converting it to C++

It would help if you would specify the actual problems you are having with
it.

Here is a translation for you:

    void __fastcall ScreenShot(HWND hWindow, Graphics:::TBitmap *bm)
    {
        LONG Left, Top, Width, Height;
        RECT R;
        HDC dc;
        PLOGPALETTE lpPal;

        // Check if valid window handle
        if( !IsWindow(hWindow) ) return;

        // Retrieves the rectangular coordinates of the specified window
        GetWindowRect(hWindow, &R);
        Left = R.left;
        Top = R.top;
        Width = (R.right - R.left);
        Height = (R.bottom - R.top);

        bm->Width = Width;
        bm->Height = Height;

        // get the screen dc
        dc = GetDC(0);
        if( dc == NULL ) return;

        // do we have a palette device?
        if( (::GetDeviceCaps(dc, RASTERCAPS) & RC_PALETTE) == RC_PALETTE )
        {
            // allocate memory for a logical palette
            lpPal = (PLOGPALETTE) ::GlobalAlloc(GPTR, sizeof(LOGPALETTE) +
(255 * sizeof(PALETTEENTRY)));

            // fill in the palette version
            lpPal->palVersion = 0x300;

            // grab the system palette entries
            lpPal->palNumEntries = ::GetSystemPaletteEntries(dc, 0, 256,
lpPal->palPalEntry);
            if( lpPal->palNumEntries != 0 )
            {
                // create the palette
                bm->Palette = ::CreatePalette(lpPal);
            }

            ::GlobalFree((HGLOBAL)lpPal);
        }

        // copy from the screen to the bitmap
        ::BitBlt(bm->Canvas->Handle, 0, 0, Width, Height, dc, Left, Top,
SRCCOPY);

        // release the screen dc
        ReleaseDC(0, dc);
    }


Gambit