fix gui up to structure spider(frmStringPointerScan)

cheat-engine · Aug 18, 2016 · 0ab2e2d · 0ab2e2d
1 parent b006e09
commit 0ab2e2d
Show file tree

Hide file tree

Showing 24 changed files with 2,541 additions and 2,022 deletions.
diff --git a/Cheat Engine/cheatengine.lpi b/Cheat Engine/cheatengine.lpi
diff --git a/Cheat Engine/cheatengine.res b/Cheat Engine/cheatengine.res
diff --git a/Cheat Engine/frmRescanPointerUnit.lfm b/Cheat Engine/frmRescanPointerUnit.lfm
@@ -3,6 +3,7 @@ object frmRescanPointer: TfrmRescanPointer
   Height = 309
   Top = 240
   Width = 330
+  AutoSize = True
   BorderStyle = bsDialog
   Caption = 'Rescan pointerlist'
   ClientHeight = 309
@@ -16,18 +17,24 @@ object frmRescanPointer: TfrmRescanPointer
   Position = poScreenCenter
   LCLVersion = '1.6.0.4'
   object edtAddress: TEdit
+    AnchorSideLeft.Control = Panel2
+    AnchorSideTop.Control = Panel2
+    AnchorSideTop.Side = asrBottom
     Left = 8
     Height = 21
-    Top = 26
+    Top = 20
     Width = 176
     CharCase = ecUppercase
     TabOrder = 0
   end
   object cbValueType: TComboBox
+    AnchorSideTop.Control = edtAddress
+    AnchorSideTop.Side = asrCenter
     Left = 192
     Height = 21
-    Top = 27
+    Top = 20
     Width = 132
+    BorderSpacing.Right = 8
     ItemHeight = 13
     ItemIndex = 0
     Items.Strings = (
@@ -40,18 +47,26 @@ object frmRescanPointer: TfrmRescanPointer
     Text = '4 Byte'
   end
   object Panel2: TPanel
-    Left = 9
-    Height = 25
-    Top = 0
-    Width = 317
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    Left = 8
+    Height = 19
+    Top = 1
+    Width = 179
+    AutoSize = True
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 1
+    BorderSpacing.Right = 4
     BevelOuter = bvNone
-    ClientHeight = 25
-    ClientWidth = 317
+    ClientHeight = 19
+    ClientWidth = 179
     TabOrder = 1
     object rbFindAddress: TRadioButton
+      AnchorSideLeft.Control = Panel2
+      AnchorSideTop.Control = Panel2
       Left = 0
       Height = 19
-      Top = 4
+      Top = 0
       Width = 93
       Caption = 'Address to find:'
       Checked = True
@@ -60,148 +75,213 @@ object frmRescanPointer: TfrmRescanPointer
       TabStop = True
     end
     object rbFindValue: TRadioButton
-      Left = 95
+      AnchorSideLeft.Control = rbFindAddress
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = Panel2
+      Left = 97
       Height = 19
-      Top = 4
+      Top = 0
       Width = 82
+      BorderSpacing.Left = 4
       Caption = 'Value to find:'
       OnClick = rbFindAddressClick
       TabOrder = 1
     end
   end
   object cbDelay: TCheckBox
+    AnchorSideLeft.Control = edtAddress
+    AnchorSideTop.Control = edtDelay
+    AnchorSideTop.Side = asrCenter
     Left = 8
     Height = 19
-    Top = 96
+    Top = 80
     Width = 97
     Caption = 'Delay rescan for'
     TabOrder = 4
   end
   object edtDelay: TEdit
-    Left = 112
+    AnchorSideLeft.Control = cbDelay
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = cbNoValueCheck
+    AnchorSideTop.Side = asrBottom
+    Left = 108
     Height = 21
-    Top = 96
+    Top = 79
     Width = 32
+    BorderSpacing.Left = 3
     TabOrder = 5
     Text = '0'
   end
   object Label1: TLabel
-    Left = 146
+    AnchorSideLeft.Control = edtDelay
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = edtDelay
+    AnchorSideTop.Side = asrCenter
+    Left = 143
     Height = 13
-    Top = 99
+    Top = 83
     Width = 40
+    BorderSpacing.Left = 3
     Caption = 'seconds'
     ParentColor = False
   end
   object cbBasePointerMustBeInRange: TCheckBox
+    AnchorSideLeft.Control = edtAddress
+    AnchorSideTop.Control = edtRescanFunction
+    AnchorSideTop.Side = asrBottom
     Left = 8
     Height = 19
-    Top = 169
+    Top = 140
     Width = 160
     Caption = 'Base pointer must be in range'
     OnChange = cbBasePointerMustBeInRangeChange
     TabOrder = 9
   end
   object edtBaseStart: TEdit
-    Left = 8
+    AnchorSideLeft.Control = cbBasePointerMustBeInRange
+    AnchorSideTop.Control = cbBasePointerMustBeInRange
+    AnchorSideTop.Side = asrBottom
+    Left = 24
     Height = 21
-    Top = 193
+    Top = 159
     Width = 112
+    BorderSpacing.Left = 16
     CharCase = ecUppercase
     Enabled = False
     TabOrder = 10
     Text = '0000000000000000'
   end
   object cbMustStartWithSpecificOffsets: TCheckBox
+    AnchorSideLeft.Control = edtAddress
+    AnchorSideTop.Control = edtBaseStart
+    AnchorSideTop.Side = asrBottom
     Left = 8
     Height = 19
-    Top = 218
+    Top = 180
     Width = 122
     Caption = 'Must start with offsets'
     OnChange = cbMustStartWithSpecificOffsetsChange
     TabOrder = 12
   end
   object pnlButtons: TPanel
-    Left = 88
-    Height = 34
-    Top = 272
-    Width = 170
+    AnchorSideLeft.Control = Owner
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = cbMustEndWithSpecificOffsets
+    AnchorSideTop.Side = asrBottom
+    Left = 87
+    Height = 23
+    Top = 222
+    Width = 157
+    AutoSize = True
+    BorderSpacing.Top = 4
     BevelOuter = bvNone
-    ClientHeight = 34
-    ClientWidth = 170
+    ClientHeight = 23
+    ClientWidth = 157
     TabOrder = 14
     object Button2: TButton
-      Left = 96
-      Height = 25
-      Top = 4
+      AnchorSideLeft.Control = Button1
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = Button1
+      Left = 82
+      Height = 23
+      Top = 0
       Width = 75
+      AutoSize = True
+      BorderSpacing.Left = 7
       Cancel = True
       Caption = 'Cancel'
+      Constraints.MinWidth = 75
       ModalResult = 2
       OnClick = Button2Click
       TabOrder = 1
     end
     object Button1: TButton
-      Left = 8
-      Height = 25
-      Top = 4
+      AnchorSideLeft.Control = pnlButtons
+      AnchorSideTop.Control = pnlButtons
+      Left = 0
+      Height = 23
+      Top = 0
       Width = 75
+      AutoSize = True
       Caption = 'OK'
+      Constraints.MinWidth = 75
       Default = True
       OnClick = Button1Click
       TabOrder = 0
     end
   end
   object edtBaseEnd: TEdit
-    Left = 146
+    AnchorSideLeft.Control = lblAnd
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = lblAnd
+    AnchorSideTop.Side = asrCenter
+    Left = 160
     Height = 21
-    Top = 192
+    Top = 159
     Width = 112
+    BorderSpacing.Left = 3
     CharCase = ecUppercase
     Enabled = False
     TabOrder = 11
     Text = 'FFFFFFFFFFFFFFFF'
   end
   object lblAnd: TLabel
-    Left = 123
+    AnchorSideLeft.Control = edtBaseStart
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = edtBaseStart
+    AnchorSideTop.Side = asrCenter
+    Left = 139
     Height = 13
-    Top = 195
+    Top = 163
     Width = 18
+    BorderSpacing.Left = 3
     Caption = 'and'
     Enabled = False
     ParentColor = False
   end
   object cbMustEndWithSpecificOffsets: TCheckBox
+    AnchorSideLeft.Control = edtAddress
+    AnchorSideTop.Control = cbMustStartWithSpecificOffsets
+    AnchorSideTop.Side = asrBottom
     Left = 8
     Height = 19
-    Top = 241
+    Top = 199
     Width = 120
     Caption = 'Must end with offsets'
     OnChange = cbMustEndWithSpecificOffsetsChange
     TabOrder = 13
   end
   object cbRepeat: TCheckBox
+    AnchorSideLeft.Control = edtAddress
+    AnchorSideTop.Control = edtDelay
+    AnchorSideTop.Side = asrBottom
     Left = 8
     Height = 19
-    Top = 121
+    Top = 100
     Width = 153
     Caption = 'Repeat rescan until stopped'
     TabOrder = 6
   end
   object cbNoValueCheck: TCheckBox
+    AnchorSideLeft.Control = edtAddress
+    AnchorSideTop.Control = cbUseSavedPointermap
+    AnchorSideTop.Side = asrBottom
     Left = 8
     Height = 19
-    Top = 72
+    Top = 60
     Width = 154
     Caption = 'Only filter out invalid pointers'
     OnChange = cbNoValueCheckChange
     TabOrder = 3
   end
   object cbLuaFilter: TCheckBox
+    AnchorSideLeft.Control = edtAddress
+    AnchorSideTop.Control = edtRescanFunction
+    AnchorSideTop.Side = asrCenter
     Left = 8
     Height = 19
     Hint = 'When checked this will call the given function for every pointer being evaluated. Return true if it''s valid, false if not'#13#10'base is the base address (integer)'#13#10'offset is a table with offsets'#13#10'target is the address the pointer points to. Can be nil'
-    Top = 145
+    Top = 120
     Width = 104
     Caption = 'Lua filter. function'
     OnChange = cbLuaFilterChange
@@ -210,27 +290,41 @@ object frmRescanPointer: TfrmRescanPointer
     TabOrder = 7
   end
   object edtRescanFunction: TEdit
-    Left = 112
+    AnchorSideLeft.Control = cbLuaFilter
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = cbRepeat
+    AnchorSideTop.Side = asrBottom
+    Left = 114
     Height = 21
-    Top = 145
+    Top = 119
     Width = 72
+    BorderSpacing.Left = 2
     Enabled = False
     TabOrder = 8
     Text = 'RescanFilter'
   end
   object lblLuaParams: TLabel
-    Left = 185
+    AnchorSideLeft.Control = edtRescanFunction
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = edtRescanFunction
+    AnchorSideTop.Side = asrCenter
+    Left = 189
     Height = 13
-    Top = 148
+    Top = 123
     Width = 122
+    BorderSpacing.Left = 3
+    BorderSpacing.Right = 4
     Caption = '(base, offsets, target):bool'
     ParentColor = False
   end
   object cbUseSavedPointermap: TCheckBox
+    AnchorSideLeft.Control = edtAddress
+    AnchorSideTop.Control = edtAddress
+    AnchorSideTop.Side = asrBottom
     Left = 8
     Height = 19
     Hint = 'Normally this should not be used. Saved pointermaps are best suited for the initial scan.'#13#10'One case where it could be useful is where you have a pointerfile that is too big to send to someone else, but the scandata file is not. In that case, ask the other person for the scandata and do the scan on your system against the current pointerfile'
-    Top = 48
+    Top = 41
     Width = 126
     Caption = 'Use saved pointermap'
     Color = clDefault