//
/// Constructs a TPreviewPage object where parent is the parent window, printout is
/// a reference to the corresponding TPrintout object, prndc is a reference to the
/// TPrintPreviewDC object, printExtent is the extent (width and height) in logical
/// units of the printed page, and pagenum is the number of the preview page.
/// TPreviewPage has the attributes of a visible child window with a thin border.
/// Sets the background color of the preview page window to white.
//
TPreviewPage::TPreviewPage(TWindow* parent, TPrintout& printout,
TPrintDC& prndc, TSize& printExtent, int pagenum)
:
TWindow(parent),
PageNum(pagenum),
PrintExtent(printExtent),
Printout(printout),
PrintDC(prndc)
{
Attr.Style = WS_CHILD | WS_BORDER | WS_VISIBLE;
SetBkgndColor(TColor::White);
}
TPlayWindow::TPlayWindow(TWindow* parent, const char far* title, const char far* midiTitle)
: TFrameWindow(parent, title)
{
Attr.Style |= WS_CHILD | WS_VISIBLE | WS_THICKFRAME;
Running = 0;
Pause = 0;
MidiLength = MidiRatio = 0;
strcpy(MidiTitle, midiTitle);
SoundBar = new TSoundBar(this, ID_SCROLL, 50, 40, 300, 40);
SetBkgndColor(RGB(196, 196, 196));
}
TFuncSpecView::TFuncSpecView(TSwitchDoc& doc, TWindow* parent)
:
TWindowView(doc, parent)
{
// INSERT>> Your constructor code here.
Attr.ExStyle |= WS_EX_CONTEXTHELP;
swdoc=&doc;
SetBkgndColor(GetSysColor(COLOR_3DFACE));
wTabs=new TPropertyWindow(this, 0, TShouldDelete::Delete);
wTabs->SetButtons(TPropertyWindow::BtnApply | TPropertyWindow::BtnHelp | TPropertyWindow::BtnCanClose);
SetViewMenu(new TMenuDescr(IDM_SPECVIEW));
DirtyFlag=false;
pInputData=NULL;
}
TSoundBar(TWindow* parent, int id, int x, int y, int w, int h,
TModule* module = 0)
: THSlider(parent, id, x, y, w, h, IDB_HSLIDERTHUMB, module)
{ SetBkgndColor(RGB(196, 196, 196)); }
