unit2.cpp

本书《C++Builder与WindowsAPI经典范例》附含配套光盘包括132个WindowsAPI函数及206个完整、可执行的实例

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//将Image1备份，新图文件为来源图文件
bakImg = new TImage(Form1);
bakImg->Parent = Form1;
bakImg->Picture = Image1->Picture;
bakImg->Hide();
//显示ScrollBar1移动位置
Form1->Caption = "ScrollBar1位置在 255";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete bakImg;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
//当ScrollBar1移动时，即更新Image1，以便
Image1->Picture = bakImg->Picture;
//显示ScrollBar1移动位置
Form1->Caption = "ScrollBar1位置在"+ AnsiString(ScrollBar1->Position);
//色盘数组声明