added some extra color options to the graphical memory view

Author: cheat-engine

Cheat Engine/frmMemoryViewExUnit.lfm

@@ -1,7 +1,7 @@
 object frmMemoryViewEx: TfrmMemoryViewEx
-  Left = 497
+  Left = 510
   Height = 482
-  Top = 230
+  Top = 264
   Width = 836
   Caption = 'Graphical Memory View '
   ClientHeight = 482
@@ -92,16 +92,18 @@ object frmMemoryViewEx: TfrmMemoryViewEx
       Width = 136
       BorderSpacing.Right = 5
       ItemHeight = 15
-      ItemIndex = 2
+      ItemIndex = 3
       Items.Strings = (
         'Dithered (1 Byte/pixel)'
-        'RGA (3 Bytes/Pixel)'
-        'RGBA (4 Bytes/Pixel)'
+        'RGB'
+        'BGR'
+        'RGBA'
+        'BGRA'
       )
       OnChange = cbColorChange
       Style = csDropDownList
       TabOrder = 2
-      Text = 'RGBA (4 Bytes/Pixel)'
+      Text = 'RGBA'
     end
     object Label3: TLabel
       AnchorSideLeft.Control = tbPitch
@@ -115,6 +117,53 @@ object frmMemoryViewEx: TfrmMemoryViewEx
       Caption = 'Color'
       ParentColor = False
     end
+    object Label1: TLabel
+      AnchorSideLeft.Control = Label3
+      AnchorSideTop.Control = cbColor
+      AnchorSideTop.Side = asrBottom
+      Left = 5
+      Height = 15
+      Top = 111
+      Width = 26
+      Caption = 'Type'
+      ParentColor = False
+    end
+    object cbType: TComboBox
+      AnchorSideLeft.Control = Label1
+      AnchorSideTop.Control = Label1
+      AnchorSideTop.Side = asrBottom
+      Left = 5
+      Height = 23
+      Top = 126
+      Width = 136
+      BorderSpacing.Right = 5
+      ItemHeight = 15
+      ItemIndex = 0
+      Items.Strings = (
+        'Byte'
+        'Unsigned Short'
+        'Short'
+        'Unsigned Int'
+        'Int'
+        'Float'
+        '3-3-2'
+        '2-3-3 R'
+        '5-6-5'
+        '5-6-5 R'
+        '4-4-4-4'
+        '4-4-4-4 R'
+        '5-5-5-1'
+        '1-5-5-5 R'
+        '8-8-8-8'
+        '8-8-8-8 R'
+        '10-10-10-2'
+        '2-10-10-10 R'
+      )
+      OnChange = cbTypeChange
+      Style = csDropDownList
+      TabOrder = 3
+      Text = 'Byte'
+    end
   end
   object Panel3: TPanel
     Left = 0

Cheat Engine/frmMemoryViewExUnit.lrt

@@ -3,8 +3,10 @@ TFRMMEMORYVIEWEX.LBLADDRESS.CAPTION=Address:
 TFRMMEMORYVIEWEX.EDTPITCH.HINT=Number of bytes a row exists out
 TFRMMEMORYVIEWEX.EDTPITCH.TEXT=32
 TFRMMEMORYVIEWEX.LABEL2.CAPTION=Pixels per line
-TFRMMEMORYVIEWEX.CBCOLOR.TEXT=RGBA (4 Bytes/Pixel)
+TFRMMEMORYVIEWEX.CBCOLOR.TEXT=RGBA
 TFRMMEMORYVIEWEX.LABEL3.CAPTION=Color
+TFRMMEMORYVIEWEX.LABEL1.CAPTION=Type
+TFRMMEMORYVIEWEX.CBTYPE.TEXT=Byte
 TFRMMEMORYVIEWEX.CBADDRESSLISTONLY.CAPTION=Only show addresslist memory
 TFRMMEMORYVIEWEX.CBADDRESSLIST.TEXT=Current Memory
 TFRMMEMORYVIEWEX.CBSAVEDLIST.TEXT=Current Memory

Cheat Engine/frmMemoryViewExUnit.pas

@@ -8,7 +8,7 @@ interface
   windows, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
   ExtCtrls, StdCtrls, ComCtrls, Menus, memdisplay, newkernelhandler, cefuncproc,
   syncobjs, math, savedscanhandler, foundlisthelper, CustomTypeHandler,
-  symbolhandler, inputboxtopunit, commonTypeDefs;
+  symbolhandler, inputboxtopunit, commonTypeDefs, GL, GLext;
 
 
 type TMVCompareMethod=(cmOr, cmXor, cmAnd);
@@ -52,9 +52,11 @@   TfrmMemoryViewEx = class(TForm)
     cbAddresslist: TComboBox;
     cbAddresslistOnly: TCheckBox;
     cbColor: TComboBox;
+    cbType: TComboBox;
     cbCompare: TCheckBox;
     cbSavedList: TComboBox;
     edtPitch: TEdit;
+    Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     lblAddress: TLabel;
@@ -75,6 +77,7 @@   TfrmMemoryViewEx = class(TForm)
     procedure cbCompareChange(Sender: TObject);
     procedure cbSavedListChange(Sender: TObject);
     procedure cbColorChange(Sender: TObject);
+    procedure cbTypeChange(Sender: TObject);
 
     procedure edtPitchChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -450,13 +453,68 @@ procedure TfrmMemoryViewEx.cbSavedListChange(Sender: TObject);
 procedure TfrmMemoryViewEx.cbColorChange(Sender: TObject);
 var i: integer;
 begin
+  {
+  Dithered (1 Byte/pixel)
+  RGB (3 Bytes/Pixel)
+  BGR (3 Bytes/Pixel)
+  RGBA (4 Bytes/Pixel)
+  BGRA (4 Bytes/Pixel)
+  }
+
   case cbcolor.itemindex of
-    0: md.setFormat($1900);
-    1: md.setFormat($1907);
-    2: md.setFormat($1908);
+    0: md.setFormat(GL_COLOR_INDEX);
+    1: md.setFormat(GL_RGB);
+    2: md.setFormat(GL_BGR);
+    3: md.setFormat(GL_RGBA);
+    4: md.setFormat(GL_BGRA);
   end;
+end;
 
+procedure TfrmMemoryViewEx.cbTypeChange(Sender: TObject);
+begin
 
+
+  {
+  Byte
+  Unsigned Short
+  Short
+  Unsigned Int
+  Int
+  Float
+  3-3-2
+  2-3-3 R
+  5-6-5
+  5-6-5 R
+  4-4-4-4
+  4-4-4-4 R
+  5-5-5-1
+  1-5-5-5 R
+  8-8-8-8
+  8-8-8-8 R
+  10-10-10-2
+  2-10-10-10 R
+  }
+
+  case cbtype.ItemIndex of
+    0: md.setType(GL_UNSIGNED_BYTE);
+    1: md.setType(GL_UNSIGNED_SHORT);
+    2: md.setType(GL_SHORT);
+    3: md.setType(GL_UNSIGNED_INT);
+    4: md.setType(GL_INT);
+    5: md.setType(GL_FLOAT);
+    6: md.setType(GL_UNSIGNED_BYTE_3_3_2);
+    7: md.setType(GL_UNSIGNED_BYTE_2_3_3_REV);
+    8: md.setType(GL_UNSIGNED_SHORT_5_6_5);
+    9: md.setType(GL_UNSIGNED_SHORT_5_6_5_REV);
+    10: md.setType(GL_UNSIGNED_SHORT_4_4_4_4);
+    11: md.setType(GL_UNSIGNED_SHORT_4_4_4_4_REV);
+    12: md.setType(GL_UNSIGNED_SHORT_5_5_5_1);
+    13: md.setType(GL_UNSIGNED_SHORT_1_5_5_5_REV);
+    14: md.setType(GL_UNSIGNED_INT_8_8_8_8);
+    15: md.setType(GL_UNSIGNED_INT_8_8_8_8_REV);
+    16: md.setType(GL_UNSIGNED_INT_10_10_10_2);
+    17: md.setType(GL_UNSIGNED_INT_2_10_10_10_REV);
+  end;
 end;
 
 procedure TfrmMemoryViewEx.FormDestroy(Sender: TObject);

Cheat Engine/memdisplay.pas

@@ -34,7 +34,7 @@ interface
 
 uses
   windows, Classes, SysUtils, ExtCtrls, Controls, LMessages, Graphics, GL, glu,
-  math, dialogs;
+  math, dialogs, GLext;
 
 
 type TCurrentOverlay=record
@@ -68,6 +68,7 @@   TMemDisplay=class(Tcustompanel)
     fXpos, fYpos: integer;
     fwantedPixelsPerLine: integer; //when the format changes, use this as lead for the new pitch
     fPitch: integer;
+    fType: integer;
     fPixelFormat: integer;
     fPixelByteSize: integer; //the number of bytes one pixel exists of (I do not support monochrome...)
 
@@ -100,12 +101,15 @@   TMemDisplay=class(Tcustompanel)
     procedure LimitCoordinates;
     procedure RecenterDrag;
     procedure setMaxCharCount(v: integer);
+    procedure reconfigPixelByteSize;
   public
     totaldiff: qword;
     ticks: integer;
     lastdiff: qword;
     function MoveTo(xpos, ypos: integer): boolean;
     procedure setFormat(format: integer);
+    procedure setType(t: integer);
+
     procedure setPitch(pitch: integer);
     procedure setPixelsPerLine(ppl: integer);
     procedure setPointer(address: ptruint); overload;
@@ -186,21 +190,47 @@ procedure TMemDisplay.setPointer(address: ptruint; p: pointer; size: integer);
 
 end;
 
-procedure TMemDisplay.setFormat(format: integer);
+procedure TMemDisplay.reconfigPixelByteSize;
 var oldaddress: integer;
 begin
   oldaddress:=getTopLeftAddress;
-  fPixelFormat:=format;
+  fPixelByteSize:=4;
 
+  case ftype of
+    GL_UNSIGNED_BYTE, GL_BYTE:
+    begin
+      case fpixelformat of
+        GL_COLOR_INDEX: fPixelByteSize:=1;
+        GL_BGR,GL_RGB: fPixelByteSize:=3;
+        GL_RGBA, GL_BGRA: fPixelByteSize:=4;
+      end;
+    end;
 
-  case fpixelformat of
-    GL_RGB: fPixelByteSize:=3;
-    GL_RGBA: fPixelByteSize:=4;
-    GL_LUMINANCE_ALPHA: fPixelByteSize:=3;
-    else
-      fPixelByteSize:=1;
-  end;
+    GL_UNSIGNED_SHORT, GL_SHORT:
+    begin
+      case fpixelformat of
+        GL_COLOR_INDEX: fPixelByteSize:=1*2;
+        GL_BGR,GL_RGB: fPixelByteSize:=3*2;
+        GL_RGBA, GL_BGRA: fPixelByteSize:=4*2;
+      end;
+    end;
+
+    GL_UNSIGNED_INT, GL_INT, GL_FLOAT:
+    begin
+      case fpixelformat of
+        GL_COLOR_INDEX: fPixelByteSize:=1*4;
+        GL_BGR,GL_RGB: fPixelByteSize:=3*4;
+        GL_RGBA, GL_BGRA: fPixelByteSize:=4*4;
+      end;
+    end;
 
+    GL_UNSIGNED_BYTE_3_3_2,GL_UNSIGNED_BYTE_2_3_3_REV: fPixelByteSize:=1;
+    GL_UNSIGNED_SHORT_5_6_5,GL_UNSIGNED_SHORT_5_6_5_REV,
+    GL_UNSIGNED_SHORT_4_4_4_4,GL_UNSIGNED_SHORT_4_4_4_4_REV,
+    GL_UNSIGNED_SHORT_5_5_5_1,GL_UNSIGNED_SHORT_1_5_5_5_REV: fPixelByteSize:=2;
+    GL_UNSIGNED_INT_8_8_8_8,GL_UNSIGNED_INT_8_8_8_8_REV,
+    GL_UNSIGNED_INT_10_10_10_2,GL_UNSIGNED_INT_2_10_10_10_REV: fPixelByteSize:=4;
+  end;
 
   setPixelsPerLine(fwantedPixelsPerLine);
 
@@ -211,6 +241,20 @@ procedure TMemDisplay.setFormat(format: integer);
   render;
 end;
 
+procedure TMemDisplay.setType(t: integer);
+begin
+  fType:=t;
+
+  reconfigPixelByteSize()
+end;
+
+procedure TMemDisplay.setFormat(format: integer);
+begin
+
+  fPixelFormat:=format;
+  reconfigPixelByteSize;
+end;
+
 procedure TMemDisplay.setPixelsPerLine(ppl: integer);
 begin
   fwantedPixelsPerLine:=ppl;
@@ -794,7 +838,7 @@ procedure TMemDisplay.render;
 
 
 
-    glDrawPixels(fPitch div fPixelByteSize, maxheight, fpixelformat,GL_UNSIGNED_BYTE, p);
+    glDrawPixels(fPitch div fPixelByteSize, maxheight, fpixelformat,fType, p);
 
 
     //draw overlays (if visible)
@@ -900,6 +944,7 @@ constructor TMemDisplay.Create(TheOwner: TComponent);
 
   //some default inits
   fZoom:=32;
+  ftype:=GL_UNSIGNED_BYTE;
   setFormat(GL_RGBA);
   setPitch(128);