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::OpenClick(TObject *Sender)
{
        if(OpenPictureDialog1->Execute())
        {
                Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
                bitmap1=new Graphics::TBitmap;
                bitmap2=new Graphics::TBitmap;
                bitmap1->Width=Image1->Width;
                bitmap1->Height=Image1->Height;
                bitmap1->Assign(Image1->Picture);
                bitmap1->PixelFormat=pf24bit;
                bitmap2->PixelFormat=pf24bit;
                Rotate->Enabled=true;
                Overturn->Enabled=true;
                Form1->Canvas->FillRect(Form1->Canvas->ClipRect);
                Form1->Canvas->Draw(18,18,bitmap1);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ResumeClick(TObject *Sender)
{
        Form1->Canvas->FillRect(Form1->Canvas->ClipRect);
        Form1->Canvas->Draw(18,18,bitmap1);
}                                      
//---------------------------------------------------------------------------
void __fastcall TForm1::ExitClick(TObject *Sender)
{
        Form1->Close();
}
//---------------------------------------------------------------------------
//旋转180°
void __fastcall TForm1::R_180Click(TObject *Sender)
{
        Form1->Canvas->FillRect(Form1->Canvas->ClipRect);
        bitmap2->Width=bitmap1->Width;
        bitmap2->Height=bitmap1->Height;
        int i,j;
        for(i=0;i<bitmap2->Height;i++)
        {
                ptr=(PicByte*)bitmap1->ScanLine[i];
                newline=(PicByte*)bitmap2->ScanLine[bitmap1->Height-1-i];
                for(j=0;j<bitmap1->Width;j++)
                        newline[bitmap1->Width-1-j]=ptr[j];
        }
        Form1->Canvas->Draw(18,18,bitmap2);
}
//---------------------------------------------------------------------------
//顺时针旋转90°
void __fastcall TForm1::S_90Click(TObject *Sender)
{
        Form1->Canvas->FillRect(Form1->Canvas->ClipRect);
        bitmap2->Height=bitmap1->Width;
        bitmap2->Width=bitmap1->Height;
        int i,j;
        for(i=0;i<bitmap1->Width;i++)
        {
                newline=(PicByte*)bitmap2->ScanLine[i];
                for(j=0;j<bitmap1->Height;j++)
                {
                        ptr=(PicByte*)bitmap1->ScanLine[j];
                        newline[bitmap1->Height-1-j]=ptr[i];
                }
        }
        Form1->Canvas->Draw(58,18,bitmap2);
}
//---------------------------------------------------------------------------
//逆时针旋转90°
void __fastcall TForm1::Z_90Click(TObject *Sender)
{
        Form1->Canvas->FillRect(Form1->Canvas->ClipRect);
        bitmap2->Height=bitmap1->Width;
        bitmap2->Width=bitmap1->Height;
        int i,j;
        for(i=0;i<bitmap1->Width;i++)
        {
                newline=(PicByte*)bitmap2->ScanLine[i];
                for(j=0;j<bitmap1->Height;j++)
                {
                        ptr=(PicByte*)bitmap1->ScanLine[j];
                        newline[j]=ptr[bitmap1->Width-1-i];
                }
        }
        Form1->Canvas->Draw(58,18,bitmap2);
}
//---------------------------------------------------------------------------
//沿水平线翻转
void __fastcall TForm1::O_horizontalClick(TObject *Sender)
{
        Form1->Canvas->FillRect(Form1->Canvas->ClipRect);
        bitmap2->Width=bitmap1->Width;
        bitmap2->Height=bitmap1->Height;
        int i,j;
        for(i=0;i<bitmap2->Height;i++)
        {
                ptr=(PicByte*)bitmap1->ScanLine[i];
                newline=(PicByte*)bitmap2->ScanLine[bitmap1->Height-1-i];
                for(j=0;j<bitmap1->Width;j++)
                        newline[j]=ptr[j];
        }
        Form1->Canvas->Draw(18,18,bitmap2);
}
//---------------------------------------------------------------------------
//沿垂直线翻转
void __fastcall TForm1::O_verticalClick(TObject *Sender)
{
        Form1->Canvas->FillRect(Form1->Canvas->ClipRect);
        bitmap2->Width=bitmap1->Width;
        bitmap2->Height=bitmap1->Height;
        int i,j;
        for(i=0;i<bitmap2->Height;i++)
        {
                ptr=(PicByte*)bitmap1->ScanLine[i];
                newline=(PicByte*)bitmap2->ScanLine[i];
                for(j=0;j<bitmap1->Width;j++)
                        newline[j]=ptr[bitmap1->Width-1-j];
        }
        Form1->Canvas->Draw(18,18,bitmap2);
}
//---------------------------------------------------------------------------