image swapping

Dogelon-indie-devs · Aug 13, 2022 · 629eb73 · 629eb73
1 parent c628ece
commit 629eb73
Showing 1 changed file with 9 additions and 0 deletions.
diff --git 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;