¼ö¿ø¼º (°°æ¼ö)
|
|
Mouse·Î Move ¹× Zoom
=============================================
var C_X: integer = 0;
C_Y: integer = 0;
procedure TMainForm.ImgViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer);
begin
C_X := X;
C_Y := Y;
end;
procedure TMainForm.ImgViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer);
begin
if ssLeft in Shift then
begin
ImgView.Scroll(C_X-X, C_Y-Y);
C_X := X;
C_Y := Y;
end;
end;
procedure TMainForm.ImgViewMouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
var
s: Single;
begin
s := ImgView.Scale * 1.1;
if s > 20 then s := 20;
ImgView.Scale := s;
ScaleCombo.Text := IntToStr(Round(s * 100)) + '%';
end;
procedure TMainForm.ImgViewMouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
var
s: Single;
begin
s := ImgView.Scale / 1.1;
if s < 0.2 then s := 0.2;
ImgView.Scale := s;
ScaleCombo.Text := IntToStr(Round(s * 100)) + '%';
end;
2020-08-04 ¿ÀÀü 11:07:34
|
|