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

#include "u7_5_1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tf7_5_1 *f7_5_1;
//---------------------------------------------------------------------------
__fastcall Tf7_5_1::Tf7_5_1(TComponent* Owner)
    : TForm(Owner)
{
}
//--------------------------------------------------------------------------
int draw = 0;
void __fastcall Tf7_5_1::FormCreate(TObject *Sender)
{
 imgLeft->Canvas->Refresh();
 imgRight->Canvas->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall Tf7_5_1::imgLeftMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
  if (draw == 1) imgLeft->Canvas->LineTo(X,Y);
}
//---------------------------------------------------------------------------
void __fastcall Tf7_5_1::imgLeftMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  draw=1;
  imgLeft->Canvas->MoveTo(X,Y);
}
//---------------------------------------------------------------------------
void __fastcall Tf7_5_1::imgLeftMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  draw=0;
}
//---------------------------------------------------------------------------
void __fastcall Tf7_5_1::btnSaveClick(TObject *Sender)
{
  imgLeft->Picture->SaveToFile("../c7_5_1.bmp");
}
//---------------------------------------------------------------------------
void __fastcall Tf7_5_1::btnLoadClick(TObject *Sender)
{
  Graphics::TBitmap *load_graph;
  load_graph = new Graphics::TBitmap();
  load_graph->LoadFromFile("../c7_5_1.bmp");
  imgRight->Canvas->Draw(0,0,load_graph);
  delete load_graph;
}
//---------------------------------------------------------------------------
void __fastcall Tf7_5_1::btnClsClick(TObject *Sender)
{
  Graphics::TBitmap *cls_graph;
  cls_graph = new Graphics::TBitmap();
  cls_graph->Width=imgRight->Width;
  cls_graph->Height=imgRight->Height;
  imgRight->Canvas->Draw(0,0,cls_graph);
  imgLeft->Canvas->Draw(0,0,cls_graph);
  delete cls_graph;
}
//---------------------------------------------------------------------------
void __fastcall Tf7_5_1::btnEndClick(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------