Деструктор

#include <owl\framewin.h>
 
#include <owl\dialog.h>
 
#include <owl\edit.h>
 
#include <owl\scroller.h>
 
#include <owl\validate.h>
 
#include <stdlib.h>
 
#include <owl\opensave.h>
 
 
#include "bmp.rh"
 
 
float kof;
 
class Myclass: public TApplication
 
{
 
public:
 
virtual void InitMainWindow();
 
};
class DeWin: public TFrameWindow
 
{
 
protected:
int N;
 
TBitmap * Pic;
 
TBitmap * M;
 
TDib* dib;
 public:
 
DeWin (TWindow*parent, const char far*title);
 protected:
 
~DeWin();
 
void About();
 
void ImFile();
 
void Clr();
 
bool CanClose();
 
void Paint (TDC&,bool,TRect&);
 
DECLARE_RESPONSE_TABLE(DeWin);
 
};
 
bool DeWin::CanClose()
 
{int res =MessageBox("Zakrit Prilozhenie?","",
 MB_ICONQUESTION | MB_YESNO);
 if(res == IDYES) return true;
  else return false;
  }
DEFINE_RESPONSE_TABLE1(DeWin,TFrame Window);
EV_COMMAND(100,About),
EV_COMMAND(201,ImFile),
EV_COMMAND(202,ImRw),
EV_COMMAND(203,Clr),
END_RESPONSE_TABLE;
}
DeWin::DeWin(TWindow*parent, const char far*title):
TFrameWindow(parent,title)
{
AssignMenu("MENU_l");
SetBkgndColor(COLOR_WINDOWFRAME+1);
Attr.X=0;
Attr.Y=0;
Attr.Style|=WS_VSCROLL|WS_HSCROLL;
Scroller=new TScroller (this, 10,10,200,400);
Attr.AccelTable = "MENU_1";
Pic=new TBitmap(*GetModule(),IDB_BITMAP 1);
N = 0;
kof=l;
}
DeWin::~DeWin()
{
delete Pic;
}
void DeWin::GetWindowClass(WNDCLASS&wc)
{TWindow::GetWindowClass(wc);
wc.style=CS_VREDRAW|CS_HREDRAW ;
}
void DeWin::About()
{
MessageBox (" Programma prosmotorchik failov.bmp "
 " \n Razrabotanna studentom gruppy  "
" \n Vasye Vasye"
,"0 programme",
MB_ICONINFORMATION| MB_OK);
}
void DeWin::ImRw()
{
N=2 ;
Invalidate();
}
void DeWin::ImFile()
{N=0;
Invalidate();
TOpenSaveDialog::TData fileData
(OFN_FILEMUSTEXIST|OFN_PATHMUSTEXIST|OFN_HIDEREADONLY,//|
OFN_OVERWRITEPROMPT,
"Bitmap Files (*.BMP)|*.bmp|", 0, "", "BMP");
TFileOpenDialog *dialog= new TFileOpenDialog(this,fileData);
int res=dialog->Execute();
if (res==IDOK)
{try
{dib = new TDib(fileData.FileName);}
catch(TGdiObject::TXGdi&)
{MessageBox("Invalid Bitmap File", GetApplication()->GetName(), MB_OK);
 }
N=1;
Invalidate();
}
else
delete dialog;
};
void DeWin::Clr()
{
N=0;
Invalidate();
}
void DeWin::Paint (TDC&dc,bool,TRect&)
{
if(N==2)
{
TMemoryDC memDC(dc);
memDC.SelectObject(*Pic);
(dc).StretchBlt(0,0,kof*(Pic->Width()),kof*(Pic->Height()),memDC,0,0,
(Pic->Width()),(Pic->Height()),SRCCOPY);
}
if(N==1)
{
TMemoryDC*memDC =new TMemoryDC(dc);
M=new TBitmap(dc,*dib,0);
memDC->SetDIBits(*M,*dib);
memDC->SelectObject(*M);
(dc).StretchBlt( 0,0,kof*(M->Width()),kofi:(M->HeightO),*memDC,0,0,M->
Width(),M->Height(),SRCCOPY);
 delete memDC;
}
}
void Myclass::InitMainWindow()
{
TFrameWindow *wndw=new MyWin(0,"Risunki");
SetMainWindow(wndw);
wndw->SetIcon(this,IDI_ICON 1);
wndw->SetIconSm(this,IDI_ICON 1);
wndw->SetCursor(this,IDC_CURSOR1);
}
int OwlMain(int,char*[])
{
return Myclass().Run();
}