var

  myForm: TclForm;

  gestureImg: TClImage;

  statusLbl: TclLabel;

  currentScale: Single; 

  ProPanel1 : TclProPanel;

void OnGestureDetected;

{

  //  SINIR KONTROLLERİ

  // Sol Sınır

  if gestureImg.Position.X < 0 

    gestureImg.Position.X = 0;

    

  // Sağ Sınır

  if gestureImg.Position.X > (ProPanel1.Width - gestureImg.Width) 

    gestureImg.Position.X = ProPanel1.Width - gestureImg.Width;

    

  // Üst Sınır

  if gestureImg.Position.Y < 0 

    gestureImg.Position.Y = 0;

    

  // Alt Sınır

  if gestureImg.Position.Y > (ProPanel1.Height - gestureImg.Height) 

    gestureImg.Position.Y = ProPanel1.Height - gestureImg.Height;

  currentScale = gestureImg.Scale.X;

  

  if currentScale < 3.0 

  {

    gestureImg.Scale.X = currentScale + 0.1;

    gestureImg.Scale.Y = currentScale + 0.1;

    statusLbl.Text = 'Zoom Seviyesi: ' + FloatToStr(gestureImg.Scale.X);

  }

  else

  {

    statusLbl.Text = 'Maksimum sınıra ulaşıldı! (3x)';

  }

}

void OnImgClick;

{

  statusLbl.Text = 'Resim Sıfırlandı.';

  gestureImg.Scale.X = 1.0;

  gestureImg.Scale.Y = 1.0;

  

  // Resmi tekrar panelin ortasında 

  gestureImg.Position.X = (ProPanel1.Width - gestureImg.Width) / 2;

  gestureImg.Position.Y = (ProPanel1.Height - gestureImg.Height) / 2;

}

{

  myForm = TclForm.Create(Self);

  

  statusLbl = myForm.AddNewLabel(MyForm, 'statusLbl', 'Resim üzerinde hareket deneyin');

  statusLbl.Align = alMostTop;

  statusLbl.Height = 50;

  statusLbl.StyledSettings = ssFamily;

  statusLbl.TextSettings.Font.Size = 18;

  statusLbl.TextSettings.WordWrap = True;

  

  // Panel Oluşturma

  ProPanel1 = myForm.AddNewProPanel(myForm, 'ProPanel1');

  ProPanel1.Align = alClient;

  ProPanel1.Margins.Top = 10;

  ProPanel1.Margins.Left = 10;

  ProPanel1.Margins.Right = 10;

  ProPanel1.Margins.Bottom = 10;

  

  ProPanel1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#016f0e');

  ProPanel1.clProSettings.RoundHeight = 10;

  ProPanel1.clProSettings.RoundWidth = 10;

  ProPanel1.clProSettings.BorderWidth = 2;

  ProPanel1.clProSettings.IsFill = True; 

  ProPanel1.clProSettings.IsRound = True;

  ProPanel1.SetclProSettings(ProPanel1.clProSettings);

  

  gestureImg = myForm.AddNewImage(ProPanel1, 'gestureImg');

  MyForm.setImage(gestureImg, 'https://clomosy.com/demos/bg.png');

  

  gestureImg.Align = alNone;

  gestureImg.Height = 150;

  gestureImg.Width = 150;

  

  // Resmi Başlangıçta Panelin Ortasında 

  gestureImg.Position.X = (ProPanel1.Width - gestureImg.Width) / 2; 

  gestureImg.Position.Y = (ProPanel1.Height - gestureImg.Height) / 2;

  

  MyForm.clSetTouchIG(igZoom, gestureImg);

  

  // Olayları Bağla

  MyForm.AddNewEvent(gestureImg, tbeOnGesture, 'OnGestureDetected');

  MyForm.AddNewEvent(gestureImg, tbeOnClick, 'OnImgClick');

  

  myForm.Run;

}

var

  myForm: TclForm;

  GestureImg: TClImage;

  InfoLbl: TclLabel;

  IsZoomed: Boolean; 

void BtnOnClick;

{

  //  resim şu an normal boyutunda 

  if IsZoomed == False 

  {

    // X ve Y ekseninde 2 kat büyüt 

    GestureImg.Scale.X = 2.0;

    GestureImg.Scale.Y = 2.0;

    

    InfoLbl.Text = 'Durum: ZOOM YAPILDI';

    // Artık zoom yapıldığını işaretle

    IsZoomed = True;

  }

  // Eğer resim zaten büyükse (Zoom yapılmışsa)

  else

  {

    // Ölçeği normale (1.0) döndür

    GestureImg.Scale.X = 1.0;

    GestureImg.Scale.Y = 1.0;

    

    InfoLbl.Text = 'Durum: Normal';

    // Zoom durumunu kaldır

    IsZoomed = False;

  }

}

{

  myForm = TClForm.Create(Self);

  

  // Başlangıçta zoom yapılmamış

  IsZoomed = False;

  

  // Bilgi Etiketi

  InfoLbl = myForm.AddNewLabel(MyForm, 'InfoLbl', 'Durum: Normal (Büyütmek için tıkla)');

  InfoLbl.Align = alTop;

  InfoLbl.Height = 30;

  InfoLbl.StyledSettings = ssFamily;

  InfoLbl.TextSettings.Font.Size = 16;

  InfoLbl.Margins.Top = 20;

  GestureImg = myForm.AddNewImage(MyForm, 'GestureImg');

  MyForm.setImage(GestureImg, 'https://clomosy.com/demos/bg.png');

  

  GestureImg.Align = alCenter;

  GestureImg.Height = 200;

  GestureImg.Width = 200;

  

  // Hem mobilde hem PC'de çalışır.

  MyForm.AddNewEvent(GestureImg, tbeOnClick, 'BtnOnClick');

  

  myForm.Run;

}