unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(OpenPictureDialog1->Execute())
        {  
                myBitmap=new Graphics::TBitmap;
                myJpeg=new TJPEGImage;
                if(OpenPictureDialog1->FilterIndex==1)
                {
                        myBitmap->LoadFromFile(OpenPictureDialog1->FileName);
                        Image1->Canvas->Draw(0,0,myBitmap);
                        Button3->Enabled=true;
                        Button4->Enabled=false;
                        Button3->SetFocus();
                }
                else
                {
                        myJpeg->LoadFromFile(OpenPictureDialog1->FileName);
                        Image2->Canvas->Draw(0,0,myJpeg);
                        Button4->Enabled=true;
                        Button3->Enabled=false;
                        Button4->SetFocus();
                }
                Button2->Enabled=false;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
        myJpeg->Assign(myBitmap);
        Image2->Canvas->Draw(0,0,myJpeg);
        Button2->Enabled=true;
        save_flag=true;
        Button2->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
        myBitmap->Assign(myJpeg);
        Image1->Canvas->Draw(0,0,myBitmap);
        Button2->Enabled=true;
        save_flag=false; 
        Button2->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
        if(save_flag)
                SavePictureDialog1->FilterIndex=2;
        else
                SavePictureDialog1->FilterIndex=1;
        if(SavePictureDialog1->Execute())
                if(save_flag)
                        Image2->Picture->SaveToFile(SavePictureDialog1->FileName+".jpg");
                else
                        Image1->Picture->SaveToFile(SavePictureDialog1->FileName+".bmp");
}
//---------------------------------------------------------------------------