삭제를 위한 암호를 넣어 주세요

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

삭제를 위한 암호를 넣어 주세요

스크롤을 움직인다는 생각을 전혀 못했네요 너무 감사합니다~ 
2020-08-04 오전 11:55:38