🚀 go-pugleaf

> Don't know about TPrintDialog.
> Does it just wrap the common dialog?

Yes.

>>So .... Can I query the control to find out if it's checked
>>and dynamically check or uncheck it?
>
> The ID for Collate should be  PD_COLLATE
>
> So
> case WM_INITDIALOG:

I wanted to avoid using the win32 call so I just subclassed the control's 
Window Proc from
the Dialog's OnShow event:

//---------------------------------------------------------------------------
#ifdef STRICT
#define COLLATEWNDPROC WNDPROC
#else
#define COLLATEWNDPROC FARPROC
#endif
//---------------------------------------------------------------------------
    private:
        HWND CollateHandle;
        bool FCollate;
        LONG CollateWndProcPtr;
        COLLATEWNDPROC OldCollateWndProc;
        void __fastcall CollateWndProc( TMessage &Message );
        static bool __stdcall EnumChildCallBack( HWND hWnd, LPARAM lParam );
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TPreviewForm::PrintButtonClick(TObject *Sender)
{
    if( PrintDialog1->Execute() )
      {
          // check FCollate
      }
    if( CollateWndProcPtr ) FreeObjectInstance( 
reinterpret_cast<void*>(CollateWndProcPtr) );
}
//---------------------------------------------------------------------------
void __fastcall TPreviewForm::PrintDialog1Show(TObject *Sender)
{
    CollateHandle = NULL;
    CollateWndProcPtr = NULL;
    ::EnumChildWindows( PrintDialog1->Handle, 
(WNDENUMPROC)EnumChildCallBack, (LPARAM)this );
    if( CollateHandle )
      {
          CollateWndProcPtr = reinterpret_cast<LONG>( 
MakeObjectInstance(CollateWndProc) );
          OldCollateWndProc = reinterpret_cast<COLLATEWNDPROC>( 
::SetWindowLong(CollateHandle, GWL_WNDPROC, CollateWndProcPtr) );
      }
}
//---------------------------------------------------------------------------
bool __stdcall TPreviewForm::EnumChildCallBack( HWND hWnd, LPARAM lParam )
{
    char Buffer[256] = { 0 };
    if( ::GetClassName(hWnd, Buffer, 255) )
      {
          if( stricmp(Buffer, "Button") == 0 )
            {
                ::GetWindowText( hWnd, Buffer, 255 );
                if( stricmp(Buffer, "C&ollate") == 0 )
                  {
                      reinterpret_cast<TPreviewForm*>( 
lParam )->CollateHandle = hWnd;
                      return FALSE;
                  }
            }
      }
    return TRUE;
}
//---------------------------------------------------------------------------
void __fastcall TPreviewForm::CollateWndProc( TMessage &Message )
{
    if( Message.Msg == WM_DESTROY )
      {
          if( ::SendMessage(CollateHandle, BM_GETCHECK, NULL, NULL) == 
BST_CHECKED ) FCollate = true;
          else FCollate = false;
          Message.Result = ::CallWindowProc( OldCollateWndProc, 
CollateHandle, Message.Msg, Message.WParam, Message.LParam );
          ::SetWindowLong( CollateHandle, GWL_WNDPROC, 
reinterpret_cast<LONG>(OldCollateWndProc) );
      }
    else Message.Result = ::CallWindowProc( OldCollateWndProc, 
CollateHandle, Message.Msg, Message.WParam, Message.LParam );
}
//---------------------------------------------------------------------------

~ JD