Changeset 175 for oup/current/Tools

Timestamp:

May 2, 2007, 5:16:58 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current/Tools

Files:

• RawEdit.dfm (modified) (2 diffs)
• RawEdit.pas (modified) (1 diff)

oup/current/Tools/RawEdit.dfm

@@ -118 +118 @@
       Colors.EvenColumn = clNavy
       Colors.CurrentOffsetBackground = clBtnShadow
-      Colors.OffsetBackGround = clBtnFace
+      Colors.OffsetBackground = clBtnFace
       Colors.CurrentOffset = clBtnHighlight
       Colors.Grid = clBtnFace
@@ -127 +127 @@
       AllowInsertMode = False
       DrawGridLines = False
-      Version = 'May 23, 2005; '#169' markus stephany, vcl[at]mirkes[dot]de'
+      Version = 'december 06, 2006; '#169' markus stephany, vcl[at]mirkes[dot]de'
       OnChange = hexChange
       ShowPositionIfNotFocused = True

oup/current/Tools/RawEdit.pas

@@ -311 +311 @@
       if hex.SelCount = 0 then
       begin
-        while (hex.Data[hex.SelStart + j] > 0) and ((hex.SelStart + j) < hex.DataSize) do
+        while (hex.SelStart + j) < hex.DataSize do
         begin
+          if hex.Data[hex.SelStart + j] = 0 then
+            Break;
           if hex.Data[hex.selstart + j] >= 32 then
             str := str + Char(hex.Data[hex.SelStart + j])