sRect (R);
// Створення тимчасового об'єкта ВМСору :: TBitmap * BMCopy = new Graphics :: TBitmap;> Width = R.Right - R.Left;> Height = R.Bottom - R.Top;
{
// Копіювання фрагмента в
// Відновлення рамки> viewport-> Canvas-> DrawFocusRect (R);
}
__finally
{(savedlg-> Execute ())> SaveToFile (savedlg-> FileName);
// Звільнення пам'яті> Free ();;
}
}
// Скидання прапорів = false; = true;
}
// ---------------------------------------- ----------------------------------- XO, YO;// Координати для запам'ятовування початкового положення курсору миші
// Якщо кнопка миші нажата__fastcall Tmainform :: viewportMouseDown (TObject * Sender, Button, TShiftState Shift, int X, int Y)
{
// Якщо область вже виділялася раніше, то очищаємо попереднє виділення
if (RegionSelected == true)
{> viewport-> Canvas-> FillRect (R);> viewport-> Canvas-> Pen-> Color = clWhite; drawpyra (pyra); -> viewport -> Canvas -> Pen -> Color = pyr_color;
drawpyra (pyra);
}
// Запам'ятовування початкового положення курсору миші = X; = Y;
// Формування початкового положення області фрагмента
R.Top = X;. Bottom = X;. Left = Y;. Right = Y;
// Малювання рамки> viewport-> Canvas-> DrawFocusRect (R);
RBegin = true;// Прапор початку виділення - виділення розпочато = false;// Область виділення ще не вибрана
}
{(RBegin == true)
{
// Стирання колишньої рамки
mainform-> viewport-> Canvas-> DrawFocusRect (R);
// Формування області R (XO
{. Left = XO;. Right = X;
}
{. Left = X;. Right = XO;
} (YO
{. Top = YO;. Bottom = Y;
}
{. Top = Y;. Bottom = YO;
}
// Малювання нової рамки
mainform-> viewport-> Canvas-> DrawFocusRect (R);
}
}
// ---------------------------------------- -----------------------------------
// Якщо кнопка миші отжата__fastcall Tmainform :: viewportMouseUp (TObject * Sender, Button, TShiftState Shift, int X, int Y...
