Merge pull request #81 from Torwent/patch-1

fix: scroll area
Villavu · Oct 5, 2023 · f1319a3 · f1319a3
2 parents e1fcc68 + 6412fa5
commit f1319a3
Show file tree

Hide file tree

Showing 3 changed files with 160 additions and 126 deletions.
diff --git a/osr/bank.simba b/osr/bank.simba
@@ -259,6 +259,15 @@ begin
   Bitmap.DrawBoxes(Self.GetSlotBoxes(), $00FFFF);
 end;
 
+function TRSBank.ScrollAreaFunction(): TBox;
+begin
+  Result := Self.Bounds();
+  Result.X1 += 5;
+  Result.Y1 += 77;
+  Result.X2 -= 24;
+  Result.Y2 -= 44;
+end;
+
 (*
 Bank.Setup
 ~~~~~~~~~~
@@ -273,6 +282,7 @@ begin
   inherited;
 
   Self.Name := 'Bank';
+  Self.GetScrollAreaFunction := @Self.ScrollAreaFunction;
 end;
 
 procedure TRSBank.SetupAlignment(Mode: ERSClientMode); override;

diff --git a/osr/chat.simba b/osr/chat.simba
@@ -55,6 +55,7 @@ begin
   inherited;
 
   Self.Name := 'Chatbox';
+  Self.GetScrollAreaFunction := @Self.Bounds;
 end;
 
 (*
-Original file line number
+Diff line change
@@ Expand Up / @@ -55,6 +55,7 @@ begin @@
       inherited;
       Self.Name := 'Chatbox';
+      Self.GetScrollAreaFunction := @Self.Bounds;
     end;
     (*
@@ Expand Down @@