K;
// --------------------------------------------- ------------------------------
# pragma package (smart_init)
# pragma link "CGRID"
# pragma link "PERFGRAP"
# pragma link "Word_2K_SRVR"
# pragma resource "*. dfm"
TForm1 * Form1;
TForm4 * Form4;
// --------------------------------------------- ------------------------------
__fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
fbMouseDown = 0;
}
// --------------------------------------------- ------------------------------
void __fastcall TForm1 :: N5Click (TObject * Sender)
{
Form1-> Close ();
}
// --------------------------------------------- ------------------------------
void __fastcall TForm1 :: Button1Click (TObject * Sender)
{
int i, j;
for (I = 0; i Width; i + +)
{for (J = 0; j Height; j + +)
Image1-> Canvas-> Pixels [i] [j] = clWhite;}
}
// --------------------------------------------- ------------------------------
void __fastcall TForm1 :: N8Click (TObject * Sender)
{
Image1-> Canvas-> Pen-> Style = psDot;
}
// --------------------------------------------- ------------------------------
void __fastcall TForm1 :: N9Click (TObject * Sender)
{
Image1-> Canvas-> Pen-> Style = psClear;
}
// --------------------------------------------- ------------------------------
void __fastcall TForm1 :: N2Click (TObject * Sender)
{
CColorGrid1-> Width = 90;
CColorGrid1-> Height = 90;
}
// --------------------------------------------- ------------------------------
void __fastcall TForm1 :: Button2Click (TObject * Sender)
{if (ComboBox1-> ItemIndex == 0)
{
Form4 = new TForm4 (Application);
Form4-> Table1-> Active = false;
Form4-> Table2-> Active = false;
Form4-> Show ();
}
else
{Application-> MessageBox ("Захист конфіденційності інформації", "Введіть пароль", MB_OK);
Edit1-> Visible = true;
Button3-> Visible = true;}}
// --------------------------------------------- ------------------------------
void __fastcall TForm1 :: Image1MouseDown (TObject * Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Image1-> Canvas-> LineTo (X, Y);
}
// --------------------------------------------- ------------------------------
void __fastcall TForm1 :: CColorGrid1Change (TObject * Sender)
{
Image1-> Canvas-> Brush-> Color = CColorGrid1-> BackgroundColor;
Image1-> Canvas-> Rectangle (0,0,265,385);
Image1-> Canvas-> Pen-> Width = 1;
Image1-> Canvas-> Pen-> Color =...
