distancepage.cpp

参数化车间设备资源绘制程序

// DistancePage.cpp : 实现文件
//

#include "stdafx.h"
#include "VisDraw.h"
#include "DistancePage.h"


// CDistancePage 对话框

IMPLEMENT_DYNAMIC(CDistancePage, CPropertyPage)
CDistancePage::CDistancePage()
	: CPropertyPage(CDistancePage::IDD)
{
}

CDistancePage::~CDistancePage()
{
}

void CDistancePage::DoDataExchange(CDataExchange* pDX)
{
	CPropertyPage::DoDataExchange(pDX);
	DDX_Control(pDX, IDC_SCROLLBAR1, m_scroll);

}


BEGIN_MESSAGE_MAP(CDistancePage, CPropertyPage)

	ON_WM_HSCROLL()
	ON_WM_PAINT()

END_MESSAGE_MAP()


// CDistancePage 消息处理程序
void CDistancePage::OnHScroll(UINT nSBCode, UINT nPos, CScrollBar* pScrollBar) 
{
	// TODO: Add your message handler code here and/or call default
	INT nMax;
	INT nMin;
	m_Distance=pScrollBar->GetScrollPos();
	pScrollBar->GetScrollRange(&nMin,&nMax);
	switch(nSBCode)
	{
	case SB_LINERIGHT:
	m_Distance+=2;
	break;
	case SB_LINELEFT:
		m_Distance-=2;
		break;
	default:
		break;
	}
	pScrollBar->SetScrollPos(m_Distance);
	if(m_Distance<nMin||m_Distance>nMax)return;
	InvalidateRect(m_rect,TRUE);
	CDialog::OnHScroll(nSBCode, nPos, pScrollBar);
}

void CDistancePage::OnPaint() 
{
	CPaintDC dc(this); // device context for painting
	
	// TODO: Add your message handler code here
	CBrush brushNew(RGB(100,200,180));
	CBrush *brushOld=dc.SelectObject(&brushNew);
	dc.Rectangle(m_rect);
	dc.MoveTo(50,60);
	dc.LineTo(140,60);
	dc.PatBlt(95-m_Distance/2,60-m_Distance/2,
		m_Distance,m_Distance,DSTINVERT);
	dc.SelectObject(brushOld);
	// Do not call CPropertyPage::OnPaint() for painting messages
}

BOOL CDistancePage::OnInitDialog() 
{
	CPropertyPage::OnInitDialog();
	
	// TODO: Add extra initialization here
	m_rect=CRect(30,30,160,90);
//	m_Distance=7;
	m_scroll.SetScrollRange(5,13,TRUE);
	m_scroll.SetScrollPos(m_Distance);
		CPaintDC dc(this); // device context for painting
	
	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}