home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Anthology
/
aDELPHI.iso
/
ActiveX
/
THBResize.ActiveX.v2.0.Win9xNT.Incl.Keymaker-CORE
/
data1.cab
/
Example_Files
/
VcDemo1
/
DialogNoFontResize.cpp
< prev
next >
Wrap
C/C++ Source or Header
|
1999-10-24
|
2KB
|
82 lines
// DialogNoFontResize.cpp : implementation file
//
#include "stdafx.h"
#include "VcDemo1.h"
#include "DialogNoFontResize.h"
#include "thbresizespecial.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
/////////////////////////////////////////////////////////////////////////////
// CDialogNoFontResize dialog
CDialogNoFontResize::CDialogNoFontResize(CWnd* pParent /*=NULL*/)
: CDialog(CDialogNoFontResize::IDD, pParent)
{
//{{AFX_DATA_INIT(CDialogNoFontResize)
// NOTE: the ClassWizard will add member initialization here
//}}AFX_DATA_INIT
}
void CDialogNoFontResize::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CDialogNoFontResize)
DDX_Control(pDX, IDC_EDIT4, m_edNoRes4);
DDX_Control(pDX, IDC_EDIT3, m_edNoRes3);
DDX_Control(pDX, IDC_EDIT6, m_edRes6);
DDX_Control(pDX, IDC_EDIT5, m_edRes5);
DDX_Control(pDX, IDC_EDIT2, m_edRes2);
DDX_Control(pDX, IDC_EDIT1, m_edRes1);
DDX_Control(pDX, IDC_THBRESIZE1, m_THBResize);
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CDialogNoFontResize, CDialog)
//{{AFX_MSG_MAP(CDialogNoFontResize)
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CDialogNoFontResize message handlers
BOOL CDialogNoFontResize::OnInitDialog()
{
CDialog::OnInitDialog();
// TODO: Add extra initialization here
m_edRes1.SetWindowText("Resize me");
m_edRes2.SetWindowText("Resize me");
m_edNoRes3.SetWindowText("Don't touch my font");
m_edNoRes4.SetWindowText("Don't touch my font");
m_edRes5.SetWindowText("Resize me");
m_edRes6.SetWindowText("Resize me");
CTHBResizeSpecial sp;
sp.CreateDispatch("THBCom.THBResizeSpecial.20");
HWND Item = ::GetDlgItem(this->GetSafeHwnd(), IDC_EDIT3);
sp.SetHWnd((long)Item);
sp.SetNoFontResize(TRUE);
m_THBResize.AddResizeSpecial(sp.m_lpDispatch);
CTHBResizeSpecial sp2;
sp2.CreateDispatch("THBCom.THBResizeSpecial.20");
Item = ::GetDlgItem(this->GetSafeHwnd(), IDC_EDIT4);
sp2.SetHWnd((long)Item);
sp2.SetNoFontResize(TRUE);
m_THBResize.AddResizeSpecial(sp2.m_lpDispatch);
m_THBResize.SetHWnd((long)this->GetSafeHwnd());
return TRUE; // return TRUE unless you set the focus to a control
// EXCEPTION: OCX Property Pages should return FALSE
}