program MSIForm;

const


  PANEL_COUNT = 5;
    PANEL_1   = 0;
    PANEL_2   = 1;
    PANEL_3   = 2;
    PANEL_4   = 3;
    PANEL_5   = 4;


  IMG_COUNT = 23;
    // Used in frmMain
    IMG_BGND            = 0;
    IMG_X_NORM          = 1;
    IMG_Q_NORM          = 2;
    IMG_LOAD_TAB_NORM   = 3;
    IMG_SAVE_TAB_NORM   = 4;
    IMG_TAB_NORM_1      = 5;
    IMG_TAB_NORM_2      = 6;
    IMG_TAB_NORM_3      = 7;
    IMG_TAB_NORM_4      = 8;

    IMG_LOC_MAP         = 9;
    IMG_LOC_NAV         = 10;
    IMG_LOC_EXIT_NORM   = 11;
    IMG_LOC_BORD_TOP    = 12;
    IMG_LOC_BORD_BOTTOM = 13;
    IMG_LOC_BORD_LEFT   = 14;
    IMG_LOC_BORD_RIGHT  = 15;
    IMG_LOC_BOX_TOP     = 16;
    IMG_LOC_BOX_LEFT    = 17;
    IMG_LOC_BOX_RIGHT   = 18;
    IMG_LOC_BOX_BOTTOM  = 19;

    // Used in Panel 0 (Is also used for frmMain)
    IMG_LOC_ICON_NORM   = 20;
    IMG_LOC_LABEL       = 21;
    IMG_TAB_HINT        = 22;

    // Used in Panel 1

    // Used in Panel 2

    // Used in Panel 3

    // Used in Panel 4

  BITMAP_COUNT = 31;
    BGND            = 0;
    X_NORM          = 1;
    X_HOVER         = 2;
    Q_NORM          = 3;
    Q_HOVER         = 4;
    LOAD_TAB_NORM   = 5;
    LOAD_TAB_HOVER  = 6;
    SAVE_TAB_NORM   = 7;
    SAVE_TAB_HOVER  = 8;
    TAB_NORM_1      = 9;
    TAB_NORM_2      = 10;
    TAB_NORM_3      = 11;
    TAB_NORM_4      = 12;
    TAB_HOVER_1     = 13;
    TAB_HOVER_2     = 14;
    TAB_HOVER_3     = 15;
    TAB_HOVER_4     = 16;
    LOC_ICON_NORM   = 17;
    LOC_ICON_HOVER  = 18;
    LOC_MAP         = 19;
    LOC_NAV         = 20;
    LOC_EXIT_NORM   = 21;
    LOC_EXIT_HOVER  = 22;
    LOC_BORD_TOP    = 23;
    LOC_BORD_BOTTOM = 24;
    LOC_BORD_LEFT   = 25;
    LOC_BORD_RIGHT  = 26;
    LOC_BOX_TOP     = 27;
    LOC_BOX_LEFT    = 28;
    LOC_LABEL       = 29;
    TAB_HINT        = 30;

var
  frmMain: TForm;
  time: TTimer;

  tImages: Array[0..IMG_COUNT - 1] of TImage;

  frmBitmaps: Array [0..BITMAP_COUNT - 1] of Integer;

  isActiveImage: Array[0..IMG_COUNT - 1] of Boolean;
  isLeftTab: Array[IMG_TAB_NORM_1..IMG_TAB_NORM_4] of Boolean;
  isActivePanel: Array[0..PANEL_COUNT - 1] of Boolean;

  MapDragStartX, MapDragStartY: Integer;


procedure OnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  BoundL, BoundT: Extended;
begin
  case sender of
    tImages[IMG_LOC_MAP]:
      begin
        MapDragStartX := x;
        MapDragStartY := y;
      end;
    tImages[IMG_LOC_NAV]:
      begin
        GetMousePos(x, y);
        with tImages[IMG_LOC_BOX_TOP] do
          SetBounds({L} x + (x - left), {T} y + (y - top), {W} 83, {H} 1);

        if tImages[IMG_LOC_BOX_TOP].Left < 376 then
          tImages[IMG_LOC_BOX_TOP].Left := 376;
        if tImages[IMG_LOC_BOX_TOP].Top < 216 then
          tImages[IMG_LOC_BOX_TOP].Top := 216;
        if tImages[IMG_LOC_BOX_TOP].Left > 494 then
          tImages[IMG_LOC_BOX_TOP].Left := 494;
        if tImages[IMG_LOC_BOX_TOP].Top > 322 then
          tImages[IMG_LOC_BOX_TOP].Top := 322;

        with tImages[IMG_LOC_BOX_LEFT] do
          SetBounds({L} tImages[IMG_LOC_BOX_TOP].Left, {T} tImages[IMG_LOC_BOX_TOP].Top + 1, {W} 1, {H} 55);
        with tImages[IMG_LOC_BOX_RIGHT] do
          SetBounds({L} tImages[IMG_LOC_BOX_TOP].Left + 83, {T} tImages[IMG_LOC_BOX_TOP].Top + 1, {W} 1, {H} 55);
        with tImages[IMG_LOC_BOX_BOTTOM] do
          SetBounds({L} tImages[IMG_LOC_BOX_TOP].Left, {T} tImages[IMG_LOC_BOX_TOP].Top + 55, {W} 83, {H} 1);

        BoundL := -(x - 155 - 376) * 7.234;
        BoundT := -(y - 140 - 216) * 7.234;

        tImages[IMG_LOC_MAP].Left := Round(BoundL);
        tImages[IMG_LOC_MAP].Top := Round(BoundT);

        if tImages[IMG_LOC_MAP].Left > 0 then
          tImages[IMG_LOC_MAP].Left := 0;
        if tImages[IMG_LOC_MAP].Top > 0 then
          tImages[IMG_LOC_MAP].Top := 0;
        if tImages[IMG_LOC_MAP].Left < -345 then
          tImages[IMG_LOC_MAP].Left := -345;
        if tImages[IMG_LOC_MAP].Top < -354 then
          tImages[IMG_LOC_MAP].Top := -354;
      end;
  end;
end;

var sended: Tobject;
move, accel, cons: integer;
procedure TimerTabClick(Sender: TObject);
var
  senderTab, i, CurrentPanel: Integer;
begin
  for i := IMG_TAB_NORM_1 to IMG_TAB_NORM_4 do
    if (Sended = tImages[i]) then
      senderTab := i;

  if not(isLeftTab[senderTab]) then
  begin
    for i := IMG_TAB_NORM_1 to senderTab do
    begin
      if not(isLeftTab[i]) then
      begin
        tImages[i].Left := tImages[i].Left - accel;
        if move = 0 then
          cons := tImages[i].Left;
        accel := accel + 2;
        move:= move + accel;
      end;
      if move >= 380 then
      begin
        tImages[i].Left := cons - 380;
        isLeftTab[i] := True;
        move := 0;
        time.ENABLED := false;
      end;
    end;
    CurrentPanel := sendertab - IMG_TAB_NORM_1 + 1;
  end else
  begin
    for i := IMG_TAB_NORM_4 downto senderTab do
    begin
       if (isLeftTab[i]) then
        begin
        tImages[i].Left := tImages[i].Left + accel;
        if move = 0 then
          cons := tImages[i].Left;
        accel := accel + 2;
        move := move + accel;
        end;
      if move >= 380 then
      begin
        tImages[i].Left := cons + 380;
        isLeftTab[i] := False;
        move := 0;
        time.ENABLED := false;
      end;
    end;
    CurrentPanel := sendertab - IMG_TAB_NORM_1;
  end;

  for i := PANEL_1 to PANEL_5 do
  begin
    if i = CurrentPanel then
      isActivePanel[i] := True
    else
      isActivePanel[i] := False;
  end;

  WriteLn(CurrentPanel);

  for i := IMG_LOC_ICON_NORM to IMG_TAB_HINT do
    tImages[i].Visible := isActivePanel[PANEL_1];
end;

procedure TabClick(Sender: TObject);
begin
  if not time.ENABLED then
  begin
    accel := 0;
    time.enabled := not time.enabled;
    sended := Sender;
  end;
end;

procedure LocViewer(Sender: TObject);
var i: Integer;
begin
  case Sender of
    tImages[IMG_LOC_ICON_NORM]:
    begin
      for i := IMG_LOC_MAP to IMG_LOC_BOX_BOTTOM do
        tImages[i].Visible := True;
      for i := IMG_LOC_ICON_NORM to IMG_TAB_HINT do
        tImages[i].Visible := False;
    end;

    tImages[IMG_LOC_EXIT_NORM]:
    begin
      for i := IMG_LOC_MAP to IMG_LOC_BOX_BOTTOM do
        tImages[i].Visible := False;
      for i := IMG_LOC_ICON_NORM to IMG_TAB_HINT do
        tImages[i].Visible := isActivePanel[PANEL_1];
    end;
  end;
end;

procedure Clicked(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to BITMAP_COUNT - 1 do
    FreeBitmap(frmBitmaps[i]);
  frmMain.ModalResult := mrOk;
end;

procedure MouseMoved(Sender: TObject; Shift: TShiftState; x, y: Integer);
var
  hi, i, bmp, xdif, ydif: Integer;
  BoundL, BoundT: Extended;
  imgSwap, bmpArr, imgArr: Array of Integer;
begin
  case Sender of
    tImages[IMG_BGND], tImages[IMG_LOC_MAP]:
      begin
        bmpArr := [ X_NORM, Q_NORM, LOAD_TAB_NORM,
                    SAVE_TAB_NORM, TAB_NORM_1, TAB_NORM_2,
                    TAB_NORM_3, TAB_NORM_4, LOC_ICON_NORM, LOC_EXIT_NORM ]

        imgArr := [ IMG_X_NORM, IMG_Q_NORM, IMG_LOAD_TAB_NORM,
                    IMG_SAVE_TAB_NORM, IMG_TAB_NORM_1, IMG_TAB_NORM_2,
                    IMG_TAB_NORM_3, IMG_TAB_NORM_4, IMG_LOC_ICON_NORM, IMG_LOC_EXIT_NORM ]

        hi := High(bmpArr);
        for i := 0 to hi do
        begin
          if (not isActiveImage[imgArr[i]]) then
            Continue;

          bmp := frmBitmaps[bmpArr[i]];
          DrawBitmap(bmp,tImages[imgArr[i]].Canvas,0,0);
          isActiveImage[imgArr[i]] := False;
        end;
      end;

    tImages[IMG_X_NORM], tImages[IMG_Q_NORM], tImages[IMG_LOAD_TAB_NORM], tImages[IMG_SAVE_TAB_NORM],
    tImages[IMG_TAB_NORM_1], tImages[IMG_TAB_NORM_2], tImages[IMG_TAB_NORM_3], tImages[IMG_TAB_NORM_4],
    tImages[IMG_LOC_ICON_NORM], tImages[IMG_LOC_EXIT_NORM]:

    begin
      case Sender of
        tImages[IMG_X_NORM]:
          imgSwap := [IMG_X_NORM, frmBitmaps[X_HOVER]];

        tImages[IMG_Q_NORM]:
          imgSwap := [IMG_Q_NORM, frmBitmaps[Q_HOVER]];

        tImages[IMG_LOAD_TAB_NORM]:
          imgSwap := [IMG_LOAD_TAB_NORM, frmBitmaps[LOAD_TAB_HOVER]];

        tImages[IMG_SAVE_TAB_NORM]:
          imgSwap := [IMG_SAVE_TAB_NORM, frmBitmaps[SAVE_TAB_HOVER]];

        tImages[IMG_TAB_NORM_1]:
          imgSwap := [IMG_TAB_NORM_1, frmBitmaps[TAB_HOVER_1]];

        tImages[IMG_TAB_NORM_2]:
          imgSwap := [IMG_TAB_NORM_2, frmBitmaps[TAB_HOVER_2]];

        tImages[IMG_TAB_NORM_3]:
          imgSwap := [IMG_TAB_NORM_3, frmBitmaps[TAB_HOVER_3]];

        tImages[IMG_TAB_NORM_4]:
          imgSwap := [IMG_TAB_NORM_4, frmBitmaps[TAB_HOVER_4]];

        tImages[IMG_LOC_ICON_NORM]:
          imgSwap := [IMG_LOC_ICON_NORM, frmBitmaps[LOC_ICON_HOVER]];

        tImages[IMG_LOC_EXIT_NORM]:
          imgSwap := [IMG_LOC_EXIT_NORM, frmBitmaps[LOC_EXIT_HOVER]];
      end;

      if (isActiveImage[imgSwap[0]]) then
        Exit;

       DrawBitmap(imgSwap[1],tImages[imgSwap[0]].Canvas,0,0);
       isActiveImage[imgSwap[0]] := True;



      bmpArr := [ X_NORM, Q_NORM, LOAD_TAB_NORM,
                    SAVE_TAB_NORM, TAB_NORM_1, TAB_NORM_2,
                    TAB_NORM_3, TAB_NORM_4, LOC_ICON_NORM, LOC_EXIT_NORM ]

      imgArr := [ IMG_X_NORM, IMG_Q_NORM, IMG_LOAD_TAB_NORM,
                    IMG_SAVE_TAB_NORM, IMG_TAB_NORM_1, IMG_TAB_NORM_2,
                    IMG_TAB_NORM_3, IMG_TAB_NORM_4, IMG_LOC_ICON_NORM, IMG_LOC_EXIT_NORM ]

      hi := High(bmpArr);
      for i := 0 to hi do
      begin
        if (not isActiveImage[imgArr[i]]) then
          Continue;

        if (i = imgSwap[0] - 1) then      // Must be chaged if orders are chaNged
          Continue;
        if imgSwap[0] = IMG_LOC_EXIT_NORM then
          if (i = imgSwap[0] - 2) then
            Continue;
        if imgSwap[0] = IMG_LOC_ICON_NORM then
          if (i = imgSwap[0] - 12) then
            Continue;


        bmp := frmBitmaps[bmpArr[i]];
        DrawBitmap(bmp,tImages[imgArr[i]].Canvas,0,0);
        isActiveImage[imgArr[i]] := False;
      end;

    end;
  end;
  case sender of
    tImages[IMG_LOC_MAP]:
      begin
        if not IsMouseButtonDown(1) then exit;
        xdif := x - MapDragStartX;
        ydif := y - MapDragStartY;
        {if (xdif < 5) and (ydif < 5) then
        begin
          GetMousePos(x, y);
          tImages[IMG_LOC_MAP].Left := tImages[IMG_LOC_MAP].Left - (x - 300 - 100);
          tImages[IMG_LOC_MAP].Top := tImages[IMG_LOC_MAP].Top - (y - 200 - 100);
        end else
        begin}
          tImages[IMG_LOC_MAP].Left := tImages[IMG_LOC_MAP].Left + xdif;
          tImages[IMG_LOC_MAP].Top := tImages[IMG_LOC_MAP].Top + ydif;
        //end;

        if tImages[IMG_LOC_MAP].Left > 0 then
          tImages[IMG_LOC_MAP].Left := 0;
        if tImages[IMG_LOC_MAP].Top > 0 then
          tImages[IMG_LOC_MAP].Top := 0;
        if tImages[IMG_LOC_MAP].Left < -854 then
          tImages[IMG_LOC_MAP].Left := -854;
        if tImages[IMG_LOC_MAP].Top < -765 then
          tImages[IMG_LOC_MAP].Top := -765;

{1454 201
1165 161

600  83
400  55

7.234
                     }

        BoundL := -tImages[IMG_LOC_MAP].Left / 7.234 + 376;
        BoundT := -tImages[IMG_LOC_MAP].Top / 7.234 + 216;


        with tImages[IMG_LOC_BOX_TOP] do
          SetBounds({L} Round(BoundL), {T} Round(BoundT), {W} 83, {H} 1);

        if tImages[IMG_LOC_BOX_TOP].Left < 376 then
          tImages[IMG_LOC_BOX_TOP].Left := 376;
        if tImages[IMG_LOC_BOX_TOP].Top < 216 then
          tImages[IMG_LOC_BOX_TOP].Top := 216;
        if tImages[IMG_LOC_BOX_TOP].Left > 494 then
          tImages[IMG_LOC_BOX_TOP].Left := 494;
        if tImages[IMG_LOC_BOX_TOP].Top > 322 then
          tImages[IMG_LOC_BOX_TOP].Top := 322;

        with tImages[IMG_LOC_BOX_LEFT] do
          SetBounds({L} tImages[IMG_LOC_BOX_TOP].Left, {T} tImages[IMG_LOC_BOX_TOP].Top + 1, {W} 1, {H} 55);
        with tImages[IMG_LOC_BOX_RIGHT] do
          SetBounds({L} tImages[IMG_LOC_BOX_TOP].Left + 83, {T} tImages[IMG_LOC_BOX_TOP].Top + 1, {W} 1, {H} 55);
        with tImages[IMG_LOC_BOX_BOTTOM] do
          SetBounds({L} tImages[IMG_LOC_BOX_TOP].Left, {T} tImages[IMG_LOC_BOX_TOP].Top + 55, {W} 83, {H} 1);
      end;
    tImages[IMG_LOC_NAV]:
      begin
        if not IsMouseButtonDown(1) then exit;
        GetMousePos(x, y);
        with tImages[IMG_LOC_BOX_TOP] do
          SetBounds({L} x - 55 - 100, {T} y - 40 - 100, {W} 83, {H} 1);

        if tImages[IMG_LOC_BOX_TOP].Left < 376 then
          tImages[IMG_LOC_BOX_TOP].Left := 376;
        if tImages[IMG_LOC_BOX_TOP].Top < 216 then
          tImages[IMG_LOC_BOX_TOP].Top := 216;
        if tImages[IMG_LOC_BOX_TOP].Left > 494 then
          tImages[IMG_LOC_BOX_TOP].Left := 494;
        if tImages[IMG_LOC_BOX_TOP].Top > 322 then
          tImages[IMG_LOC_BOX_TOP].Top := 322;

        with tImages[IMG_LOC_BOX_LEFT] do
          SetBounds({L} tImages[IMG_LOC_BOX_TOP].Left, {T} tImages[IMG_LOC_BOX_TOP].Top + 1, {W} 1, {H} 55);
        with tImages[IMG_LOC_BOX_RIGHT] do
          SetBounds({L} tImages[IMG_LOC_BOX_TOP].Left + 83, {T} tImages[IMG_LOC_BOX_TOP].Top + 1, {W} 1, {H} 55);
        with tImages[IMG_LOC_BOX_BOTTOM] do
          SetBounds({L} tImages[IMG_LOC_BOX_TOP].Left, {T} tImages[IMG_LOC_BOX_TOP].Top + 55, {W} 83, {H} 1);

        BoundL := -(x - 155 - 376) * 7.234;
        BoundT := -(y - 140 - 216) * 7.234;

        tImages[IMG_LOC_MAP].Left := Round(BoundL);
        tImages[IMG_LOC_MAP].Top := Round(BoundT);

        if tImages[IMG_LOC_MAP].Left > 0 then
          tImages[IMG_LOC_MAP].Left := 0;
        if tImages[IMG_LOC_MAP].Top > 0 then
          tImages[IMG_LOC_MAP].Top := 0;
        if tImages[IMG_LOC_MAP].Left < -854 then
          tImages[IMG_LOC_MAP].Left := -854;
        if tImages[IMG_LOC_MAP].Top < -765 then
          tImages[IMG_LOC_MAP].Top := -765;
      end;
  end;
end;

procedure MouseMoveEvents(Sender: TObject; Shift: TShiftState; x, y: Integer);
begin

end;

procedure OnClickEvents(Sender: TObject);
begin

end;

procedure InitForm;
var
  Image, bmp: Integer;
  hi, i: Integer;
  bmpArr: TStringArray;
  xy, wh: TPointArray;
  visibl: TBoolArray;
begin
  bmpArr := ['BGND','X_NORM','X_HOVER','Q_NORM','Q_HOVER','LOAD_TAB_NORM','LOAD_TAB_HOVER','SAVE_TAB_NORM','SAVE_TAB_HOVER','TAB_NORM_1','TAB_NORM_2','TAB_NORM_3','TAB_NORM_4','TAB_HOVER_1','TAB_HOVER_2','TAB_HOVER_3','TAB_HOVER_4','LOC_ICON_NORM','LOC_ICON_HOVER','LOC_MAP','LOC_NAV','LOC_EXIT_NORM','LOC_EXIT_HOVER','LOC_BORD_TOP','LOC_BORD_BOTTOM','LOC_BORD_LEFT','LOC_BORD_RIGHT','LOC_BOX_TOP','LOC_BOX_LEFT','LOC_LABEL','TAB_HINT'];
  hi := High(frmBitmaps);
  for i := 0 to hi do
    frmBitmaps[i] := LoadBitmap(ScriptPath + 'Bitmaps\' + bmpArr[i] + '.png');

  {
  MAIN FORM
  }

  frmMain := TForm.Create(nil);
  with frmMain do
  begin
    SetBounds({L} 100, {T} 100, {W} 600, {H} 400);
    //Position := poScreenCenter;
    //Width := 600;
    //Height := 400;
    BorderStyle := bsNone;
  end;

  time := TTimer.Create(frmMain);
  time.ONTIMER := @TimerTabClick;
  time.INTERVAL := 10;
  time.ENABLED := false;

  xy := [Point(0,0),Point(575,7),Point(557,7),Point(7,69),Point(81,69),Point(390,100),Point(440,100),Point(490,100),Point(540,100),Point(179,204),Point(-300,0),Point(369,209),Point(475,7),Point(0,0), Point(0,393), Point(0,7), Point(593,7), Point(Round(-tImages[IMG_LOC_MAP].Left / 7.234 + 376), Round(-tImages[IMG_LOC_MAP].Top / 7.234 + 216)), Point(tImages[IMG_LOC_BOX_TOP].Left, tImages[IMG_LOC_BOX_TOP].Top + 1), Point(tImages[IMG_LOC_BOX_TOP].Left + 83, tImages[IMG_LOC_BOX_TOP].Top + 1), Point(tImages[IMG_LOC_BOX_TOP].Left, tImages[IMG_LOC_BOX_TOP].Top + 55),} Point(156,250), Point(208,379)];
  wh := [Point(600,400),Point(18,18),Point(18,18),Point(74,22),Point(74,22),Point(50,290),Point(50,290),Point(50,290),Point(50,290),Point(40,41),Point(1454,1165),Point(215,175),Point(119,22),Point(600,7),Point(600,7), Point(7,386), Point(7,386), Point(83, 1), Point(1,55), Point(1,55), Point(83,1), Point(87,11), Point(174,10)];
  visibl := [true, true,true,true,true, true, true, true,true, false, false, false, false, false, false, false, false, false, false, false, true, true];

  for Image := 0 to IMG_COUNT - 1 do
  begin
    tImages[Image] := TImage.Create(frmMain);
    with tImages[Image] do
    begin
      Parent := frmMain;
      SetBounds(xy[i].x, xy[i].y, wh[i].x, wh[i].y);
      if i = 0 then
        bmp := frmBitmaps[i]
      else
        bmp := frmBitmaps[2 * i - 1];
      OnMouseMove := @MouseMoveEvents;
      OnClick := @OnClickEvents;
      isActiveImage[i] := False;
      if (i > IMG_TAB_NORM_1) and (i < IMG_TAB_NORM_4) then
        isLeftTab[i] := false;
      visible := Visibl[i];
    end;
  DrawBitmap(bmp, tImages[Image].canvas, 0, 0);
  end;

  isActivePanel[Panel_1] := True;
  isActivePanel[Panel_2] := False;
  isActivePanel[Panel_3] := False;
  isActivePanel[Panel_4] := False;
  isActivePanel[Panel_5] := False;


end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmMain.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

var finall: integer;
begin
  try
    SafeInitForm;
    SafeShowFormModal;
  finally
    for finall := 0 to BITMAP_COUNT - 1 do
      FreeBitmap(frmBitmaps[finall]);
  //except
  //  Writeln(ExceptionToString(ExceptionType, ExceptionParam));
  end;
end.