procedure TC_ReportF.DrawShape(TopLeft, BottomRight: TPoint; AMode: TPenMode);
begin
with scrn_rect do
begin
Pen.Mode := AMode;
Rectangle(TopLeft.X, TopLeft.Y, BottomRight.X, BottomRight.Y);
end;
end;
procedure TC_ReportF.imageMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer);
begin
if Button = mbright then
begin
MouseDragging := True;
Image.Cursor := crHandPoint;
OldMousePos := Point(X, Y);
end;
mx := mouse.CursorPos.x;
my := mouse.CursorPos.y;
bx := x;
by := y;
if (not PicDraging) and (button = mbLeft) then
begin
mouse2down := true;
Origin := mouse.CursorPos; // ClientToScreen(Point(X, Y));
MovePt := Origin;
end;
end;
procedure TC_ReportF.imageMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer; Layer: TCustomLayer);
begin
if mouse2down then
begin
if (x > bx) and (y > by) then
Scrn_Rect.Pen.Color := COLOR_KUANG_BIG
else
Scrn_Rect.Pen.Color := COLOR_KUANG_AUTO;