Move button

unit UnitTransformation;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;

type

  { TformTransformation }

  TformTransformation = class(TForm)
    btnRotate: TButton;
    btnLoad: TButton;
    btnSave: TButton;
    btnMove: TButton;
    btnScale: TButton;
    imgSrc: TImage;
    imgMod: TImage;
    txtNote: TLabel;
    txtImgMod: TLabel;
    txtImgOri: TLabel;
    txtYVal: TLabel;
    txtXVal: TLabel;
    editX: TEdit;
    editY: TEdit;
    openDialog: TOpenDialog;
    saveDialog: TSaveDialog;
    procedure btnLoadClick(Sender: TObject);
    procedure btnMoveClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure editXChange(Sender: TObject);
    procedure editYChange(Sender: TObject);
  private

  public

  end;

var
  formTransformation: TformTransformation;

implementation

{$R *.lfm}

{ TformTransformation }

uses Windows;

var
  bmpR, bmpG, bmpB : array[0..10000, 0..10000] of byte;
  Tx, Ty : double;
  newX, newY : array[0..10000, 0..10000] of integer;

procedure TformTransformation.btnLoadClick(Sender: TObject);
var
  x, y: integer;
begin
  if (openDialog.Execute) then
  begin
    imgSrc.Picture.LoadFromFile(openDialog.FileName);
    for y:=0 to imgSrc.Height-1 do
    begin
      for x:=0 to imgSrc.Width-1 do
      begin
        bmpR[x,y] := getRValue(imgSrc.Canvas.Pixels[x,y]);
        bmpG[x,y] := getGValue(imgSrc.Canvas.Pixels[x,y]);
        bmpB[x,y] := getBValue(imgSrc.Canvas.Pixels[x,y]);
      end;
    end;
  end;
end;

procedure TformTransformation.btnMoveClick(Sender: TObject);
var
  x, y: integer;
begin
  for y:=0 to imgSrc.Height-1 do
  begin
    for x:=0 to imgSrc.Width-1 do
    begin
      // TODO: Create a Move button
      newX[Tx + x,y] := Tx + x;
      newY[x,y] := Ty + y;
      imgMod.Canvas.Pixels[newX,newY] := RGB(bmpR[newX,newY], bmpG[newX,newY], bmpB[newX,newY]);
    end;
  end;
end;

procedure TformTransformation.btnSaveClick(Sender: TObject);
var
  x, y: integer;
begin
  if (saveDialog.Execute) then
  begin
    imgMod.Picture.SaveToFile(saveDialog.FileName);
  end;
end;

procedure TformTransformation.editXChange(Sender: TObject);
begin
  Tx := StrToFloat(editX.text);
end;

procedure TformTransformation.editYChange(Sender: TObject);
begin
  Ty := StrToFloat(editY.text);
end;

end.