Added GUI pages for GEM resources.

2025-12-16 19:14:24 +00:00 · 2018-02-28 20:06:05 +00:00
parent b1ef08f06a
commit d4fe2c8485
18 changed files with 1104 additions and 25 deletions
--- a/exeinfogui/GEM/PanelGemBox.xeto.cs
+++ b/exeinfogui/GEM/PanelGemBox.xeto.cs
@@ -0,0 +1,73 @@
+using Claunia.Encoding;
+using Eto.Forms;
+using Eto.Serialization.Xaml;
+
+namespace exeinfogui.GEM
+{
+    public class PanelGemBox : Panel
+    {
+        Label   lblCharacter;
+        Label   lblThickness;
+        TextBox txtBorderColor;
+        TextBox txtCharacter;
+        TextBox txtCoordinates;
+        TextBox txtFill;
+        TextBox txtFlags;
+        TextBox txtInsideColor;
+        TextBox txtSize;
+        TextBox txtState;
+        TextBox txtTextColor;
+        TextBox txtThickness;
+        TextBox txtTransparency;
+
+        public PanelGemBox()
+        {
+            XamlReader.Load(this);
+        }
+
+        public void Update(libexeinfo.GEM.TreeObjectNode node)
+        {
+            sbyte thickness = (sbyte)((node.data & 0xFF0000) >> 16);
+
+            char character = Encoding.AtariSTEncoding.GetString(new[] {(byte)((node.data & 0xFF000000) >> 24)})[0];
+
+            txtFlags.Text       = node.flags == 0 ? "None" : node.flags.ToString();
+            txtState.Text       = node.state == 0 ? "Normal" : node.state.ToString();
+            txtCoordinates.Text = $"{node.x},{node.y}";
+            txtSize.Text        = $"{node.width}x{node.height} pixels";
+            txtBorderColor.Text =
+                ((libexeinfo.GEM.ObjectColors)((node.data & 0xFFFF & libexeinfo.GEM.BorderColorMask) >> 12)).ToString();
+            txtFill.Text =
+                ((libexeinfo.GEM.ObjectFillPattern)((node.data & 0xFFFF & libexeinfo.GEM.FillPatternMask) >> 4))
+               .ToString();
+            txtInsideColor.Text =
+                ((libexeinfo.GEM.ObjectColors)((node.data & 0xFFFF & libexeinfo.GEM.InsideColorMask) >> 8)).ToString();
+            txtTextColor.Text =
+                ((libexeinfo.GEM.ObjectColors)((node.data & 0xFFFF & libexeinfo.GEM.TextColorMask) >> 8)).ToString();
+            txtTransparency.Text = (node.data             & 0xFFFF & libexeinfo.GEM.TransparentColor) != 0
+                                       ? "Transparent mode"
+                                       : "Replace mode";
+            if(thickness      < 0) txtThickness.Text = $"{thickness * -1} pixels outward";
+            else if(thickness < 0)
+                txtThickness.Text = $"{thickness} pixels inward";
+            else
+                txtThickness.Text = "None";
+            txtCharacter.Text = new string(new []{character});
+
+            if(node.type == libexeinfo.GEM.ObjectTypes.G_BOXCHAR)
+            {
+                txtCharacter.Visible = true;
+                txtThickness.Visible = true;
+                lblCharacter.Visible = true;
+                lblThickness.Visible = true;
+            }
+            else
+            {
+                txtCharacter.Visible = false;
+                txtThickness.Visible = false;
+                lblCharacter.Visible = false;
+                lblThickness.Visible = false;
+            }
+        }
+    }
+}