From 629eb7320dc1fdfe85d910174a299a10468d0375 Mon Sep 17 00:00:00 2001
From: CryptoTangerine <crypto.tangerine@gmail.com>
Date: Sat, 13 Aug 2022 10:59:56 +0200
Subject: [PATCH] image swapping

---
 FrameStory.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/FrameStory.pas b/FrameStory.pas
index e61305b..a3665a7 100644
--- a/FrameStory.pas
+++ b/FrameStory.pas
@@ -33,6 +33,15 @@ implementation
 
 procedure TStoryFrame.BackRectangleClick(Sender: TObject);
 begin
+  with Sender as TRectangle do
+    begin
+      var next_image:= ImageList1.Source[Tag].MultiResBitmap[0];
+      Image1.MultiResBitmap[0].Assign(next_image);
+      tag:= tag + 1;
+    end;
+
+  exit;
+
   MainForm.MainRectangle.Visible := True;
   MainForm.StoryRectangle.Visible := False;
 end;