u6_3_2.cpp

来自「《C++ Builder 5程序设计——基础教学篇》程序源代码2.」· C++ 代码 · 共 54 行

//-----------------  u6_3_2  ----------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "U6_3_2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tf6_3_2 *f6_3_2;
//---------------------------------------------------------------------------
__fastcall Tf6_3_2::Tf6_3_2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tf6_3_2::btnEndClick(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall Tf6_3_2::btnSmallClick(TObject *Sender)
{
   int i;
   for (i=120 ;i>=50; i-=2)
    {
      imgMonky->Width=i;
      imgMonky->Height=i;
      Refresh();
    }
   btnSmall->Enabled=False;
   btnLarge->Enabled=True;
}
//---------------------------------------------------------------------------
void __fastcall Tf6_3_2::btnLargeClick(TObject *Sender)
{
  int i;
   for (i=50 ;i<=120; i+=2)
    {
      imgMonky->Width=i;
      imgMonky->Height=i;
      Refresh();
    }
   btnSmall->Enabled=True;
   btnLarge->Enabled=False;
}
//---------------------------------------------------------------------------
void __fastcall Tf6_3_2::FormCreate(TObject *Sender)
{
   imgMonky->AutoSize=False;
   imgMonky->Stretch=True;
   btnLarge->Enabled=False;
}
//---------------------------------------------------------------------------