unit1.cpp

BCB 的数控实验的子程序

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

#include <vcl.h>
#pragma hdrstop

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i,j;
for (i=0;i<Form1->Height;i++ )

    {  for (j=0;j<Form1->Width;j++)
   Canvas->Pixels[j][i]=TColor(0x100*random(256));
     }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  int i,j;
for (i=0;i<Form1->Height;i++)

    {  for (j=0;j<Form1->Width;j++)
   Canvas->Pixels[j][i]=TColor((0x100*i)/Height*random(256));
     }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  Graphics::TBitmap*Bitmap=new Graphics::TBitmap();

  TRect Rect1;
   Rect1.Left=0;
   Rect1.Right=Width;
   Rect1.Top=0;
   Rect1.Bottom=Height;
   OpenDialog1->Filter=  "Bitmap file(*.bmp)|*.bmp";



   if ( OpenDialog1->Execute())

  { Bitmap->LoadFromFile (OpenDialog1->FileName);
   Form1->Canvas->StretchDraw(Rect1,Bitmap);
   Bitmap->FreeImage();
   delete Bitmap;}


}
//---------------------------------------------------------------------------