QBasic & Borland Pascal & C/Delphi5.iso/C/BC_502/COLORDLG.PAK/COLORDLG.CPP

C/C++ Source or Header | 1997-05-06 | 5.8 KB | 233 lines

//----------------------------------------------------------------------------
// ObjectWindows
// Copyright (c) 1991, 1995 by Borland International, All Rights Reserved
//
//  This file implements a custom control (TColorControl) and a
//  dialog box (TColorDialog) that uses them.
//----------------------------------------------------------------------------
#include <owl/pch.h>
#include <owl/applicat.h>
#include <owl/scrollba.h>
#include <owl/dc.h>
#include <stdio.h>
#include <string.h>
#include <dos.h>
#include <mem.h>
#include "colordlg.rh"
#include "colordlg.h"

const unsigned int CN_CLICKED = 1;      // color control notifications

//
//
//
DEFINE_RESPONSE_TABLE1(TColorControl, TControl)
  EV_WM_LBUTTONDOWN,
  EV_WM_PAINT,
END_RESPONSE_TABLE;

//
// This is only included if we're building the DLL version of colordlg
//
#if defined(BUILDEXAMPLEDLL)

  // This exported function provides C (non-OWL) access to the dialog
  //
  extern "C" bool FAR PASCAL __export
  GetColor(HWND parentHWnd, COLORREF& colorBuffer)
  {
    // Create an alias OWL application object when called from a non-OWL
    // program so that TDialog is happy
    //
    TModule* appModule;
    TApplication dummyApp("color dialog app", appModule);
    TWindow parentAlias(parentHWnd, ::Module);
    return TColorDialog(&parentAlias, (TColor&)colorBuffer).Execute() == IDOK;
  }
#endif

//
//
//
TColorControl::TColorControl(TWindow* parent, int resId, TColor color)
:
  TControl(parent, resId, ::Module),
  Color(color)
{
  DisableTransfer();
}

//
// Must use EvPaint since TControl assumes a pre-defined class control has a
// window's class that paints it. (see source\owl/control.cpp)
//
void
TColorControl::EvPaint()
{
  TPaintDC dc(*this);
  dc.FillRect(GetClientRect(), TBrush(Color));
}


//
//
//
void
TColorControl::SetColor(TColor color)
{
  Color = color;
  Invalidate();
}

//
//
//
uint
TColorControl::Transfer(void* buffer, TTransferDirection direction)
{
  if (direction == tdGetData)
    memcpy(buffer, &Color, sizeof Color);

  else
    if (direction == tdSetData)
      memcpy(&Color, buffer, sizeof Color);

  return sizeof Color;
}

//
// Notify parent of a CN_CLICKED event by sending a WM_COMMAND message
//
void
TColorControl::EvLButtonDown(uint, TPoint&)
{
  Parent->SendNotification(Attr.Id, CN_CLICKED, HWindow);
}

//
//
//
DEFINE_RESPONSE_TABLE1(TColorDialog, TDialog)
  EV_CHILD_NOTIFY(ID_COLOR1,CN_CLICKED,ClickFmControl1),
  EV_CHILD_NOTIFY(ID_COLOR2,CN_CLICKED,ClickFmControl2),
  EV_CHILD_NOTIFY(ID_COLOR3,CN_CLICKED,ClickFmControl3),
  EV_CHILD_NOTIFY(ID_COLOR4,CN_CLICKED,ClickFmControl4),
  EV_CHILD_NOTIFY(ID_COLOR5,CN_CLICKED,ClickFmControl5),
  EV_CHILD_NOTIFY(ID_COLOR6,CN_CLICKED,ClickFmControl6),
  EV_CHILD_NOTIFY(ID_COLOR7,CN_CLICKED,ClickFmControl7),
  EV_CHILD_NOTIFY(ID_COLOR8,CN_CLICKED,ClickFmControl8),
  EV_SB_ENDSCROLL(ID_COLORBAR1,SetColorFmSlider),
  EV_SB_ENDSCROLL(ID_COLORBAR2,SetColorFmSlider),
  EV_SB_ENDSCROLL(ID_COLORBAR3,SetColorFmSlider),
END_RESPONSE_TABLE;

//
//
//
static void
DisableChildTransfer(TWindow* w, void*)
{
  w->DisableTransfer();
}

//
//
//
TColorDialog::TColorDialog(TWindow* parent, TColor& color)
:
  TDialog(parent, IDD_COLORDLG, ::Module)
{
  new TColorControl(this, ID_COLOR1, TColor(000, 000, 000));
  new TColorControl(this, ID_COLOR2, TColor(255, 255, 255));
  new TColorControl(this, ID_COLOR3, TColor(255, 000, 000));
  new TColorControl(this, ID_COLOR4, TColor(000, 255, 000));
  new TColorControl(this, ID_COLOR5, TColor(000, 000, 255));
  new TColorControl(this, ID_COLOR6, TColor(000, 255, 255));
  new TColorControl(this, ID_COLOR7, TColor(255, 000, 255));
  new TColorControl(this, ID_COLOR8, TColor(255, 255, 000));

  ColorBar1 = new TScrollBar(this, ID_COLORBAR1, ::Module);
  ColorBar2 = new TScrollBar(this, ID_COLORBAR2, ::Module);
  ColorBar3 = new TScrollBar(this, ID_COLORBAR3, ::Module);

  ForEach(DisableChildTransfer);

  SelColor = new TColorControl(this, ID_SELCOLOR, color);
  SelColor->EnableTransfer();

  TransferBuffer = &color;
}

//
// Handlers for each custom control
//
void TColorDialog::ClickFmControl1() {SetColorFmControl(ID_COLOR1);}
void TColorDialog::ClickFmControl2() {SetColorFmControl(ID_COLOR2);}
void TColorDialog::ClickFmControl3() {SetColorFmControl(ID_COLOR3);}
void TColorDialog::ClickFmControl4() {SetColorFmControl(ID_COLOR4);}
void TColorDialog::ClickFmControl5() {SetColorFmControl(ID_COLOR5);}
void TColorDialog::ClickFmControl6() {SetColorFmControl(ID_COLOR6);}
void TColorDialog::ClickFmControl7() {SetColorFmControl(ID_COLOR7);}
void TColorDialog::ClickFmControl8() {SetColorFmControl(ID_COLOR8);}

//
// Update the selected color control and bars with the chosen color
//
void
TColorDialog::SetColorFmControl(uint id)
{
  TColorControl* control = TYPESAFE_DOWNCAST(ChildWithId(id), TColorControl);
  if (control) {
    TColor color = control->GetColor();
    SelColor->SetColor(color);
    UpdateBars(color);
  }
}

//
// Update the selected color control with the current slider values
//
void
TColorDialog::SetColorFmSlider()
{
  SelColor->SetColor(TColor(ColorBar1->GetPosition(),
  ColorBar2->GetPosition(), ColorBar3->GetPosition()));
}

//
//
//
void
TColorDialog::SetupWindow()
{
  TDialog::SetupWindow();
  ColorBar1->SetRange(0, 255);
  ColorBar2->SetRange(0, 255);
  ColorBar3->SetRange(0, 255);

  UpdateBars(SelColor->GetColor());
}


//
//
//
void
TColorDialog::TransferData(TTransferDirection transferFlag)
{
  TDialog::TransferData(transferFlag);
  if (transferFlag == tdSetData)
    UpdateBars(SelColor->GetColor());
}

//
//
//
void
TColorDialog::UpdateBars(TColor color)
{
  ColorBar1->SetPosition(color.Red());
  ColorBar2->SetPosition(color.Green());
  ColorBar3->SetPosition(color.Blue());
}