/bin/dbxoodbc/Source/Demos/DbExplor/Optional.Libs/HexEdit/mpHexEditor.pas

http://github.com/sanelson/dbdesigner-fork · Pascal · 8853 lines · 6740 code · 836 blank · 1277 comment · 732 complexity · e8dbdc67a837e897f7e36da3b4ef897b MD5 · raw file

Large files are truncated click here to view the full file

    

  1. (*

    2. 

  2. 

    3. 

  3.   TMPHexEditor v 02-06-2006<br>

    4. 

  4. 

    5. 

  5.   @author((C) markus stephany, vcl[at]mirkes[dot]de, all rights reserved.)

    6. 

  6.   @abstract(TMPHexEditor displays and edits binary files in hexadecimal notation)

    7. 

  7.   @lastmod(02-06-2006)

    8. 

  8. 

    9. 

  9.   credits to :<br><br>

    10. 

  10.   - John Hamm, http://users.snapjax.com/john/<br><br>

    11. 

  11. 

    12. 

  12.   - Christophe Le Corfec for introducing the EBCDIC format and the nice idea about

    13. 

  13.     half byte insert/delete<br><br>

    14. 

  14. 

    15. 

  15.   - Philippe Chessa for his suggestions about AsText, AsHex and better support for

    16. 

  16.     the french keyboard layout<br><br>

    17. 

  17. 

    18. 

  18.   - Daniel Jensen for octal offset display and the INS-key recognition stuff<br><br>

    19. 

  19. 

    20. 

  20.   - Shmuel Zeigerman for introducing more flexible offset display formats<br><br>

    21. 

  21. 

    22. 

  22.   - Vaf, http://carradio.al.ru for reporting missing delver.inc and suggesting OnChange<br><br>

    23. 

  23. 

    24. 

  24.   - Eugene Tarasov for reporting that setting the BytesPerColumn value to 4 at design

    25. 

  25.     time didn't work<br><br>

    26. 

  26. 

    27. 

  27.   - FuseBurner for BytesPerUnit/RulerBytesPerUnit related suggestions<br><br>

    28. 

  28. 

    29. 

  29.   - Motzi for SyncView/ShowPositionIfNotFocused related suggestions<br><br>

    30. 

  30. 

    31. 

  31.   - Martin Hsiao for bcb compatibility and reporting some bugs when moving cursor beyond eof<br><br>

    32. 

  32. 

    33. 

  33.   - Miyu for delphi 7 defines<br><br>

    34. 

  34. 

    35. 

  35.   - Nils Hoyer for bcb testing and his help on creating a BCB6 package<br><br>

    36. 

  36. 

    37. 

  37.   - Skamnitsly S.V for reporting a bug when doubleclicking the ruler bar<br><br>

    38. 

  38. 

    39. 

  39.   - Pete Fraser for reporting problems with array properties under BCB<br><br>

    40. 

  40. 

    41. 

  41.   - Andrew Novikov for bug reports and suggestions<br><br>

    42. 

  42. 

    43. 

  43.   - Al for bug reports<br><br>

    44. 

  44. 

    45. 

  45.   - Dieter Köhler for reporting the delphi vcl related CanFocus bug<br><br>

    46. 

  46. 

    47. 

  47.   - Piotr Likus for reporting a cardinal&lt;-&gt;integer related bug in the Undo method<br><br>

    48. 

  48. 

    49. 

  49.   - Marc Girod for bug reports<br><br>

    50. 

  50. 

    51. 

  51.   - Gerd Schwartz for reporting a bug with printing headers/footers that contain long texts

    52. 

  52.     (MPHexEditorEx only)<br><br>

    53. 

  53. 

    54. 

  54.   - Bogdan Ureche for reporting an integer overflow when moving the cursor over a large selection<br><br>

    55. 

  55. 

    56. 

  56.   <h3>history:</h3>

    57. 

  57.   <p><ul>

    58. 

  58.   <li>v 02-06-2006: february 06, 2006<br><br>

    59. 

  59.          - changed key handling (VK_INSERT, no action if a control key is pressed)<br>

    60. 

  60.          - fixed an access violation in CursorOverSelection when moving the cursor over

    61. 

  61.            a large selection<br>

    62. 

  62.          - added conditional defines for delphi 8 and delphi 2005 in MPDELVER.INC</br>

    63. 

  63.          - removed FastPointer property, use the GetFastPointer function instead (it checks boundaries)<br><br></li>

    64. 

  64. 

    65. 

  65.   <li>v 05-23-2005: may 23, 2005<br><br>

    66. 

  66.          - fixed an access violation in the undo storage code when reallocating

    67. 

  67.            memory during storing of undo data<br>

    68. 

  68.          - the secondary focus frame on the hex pane now is painted around the

    69. 

  69.            whole actual data value (4 digits if unicode, 2 digits otherwise)<br>

    70. 

  70.          - added procedure @link(CenterCursorPosition)<br>

    71. 

  71.          - in @link(InsertBuffer) and @link(Replace) now the position parameter

    72. 

  72.            is checked<br><br></li>

    73. 

  73. 

    74. 

  74.   <li>v 12-29-2004: december 29, 2004<br><br>

    75. 

  75.          - initialized Result to '' in some string functions/methods to avoid

    76. 

  76.            non empty Result vars at function startup due to compiler

    77. 

  77.            optimizations (particularly on d4), e.g. printing did not work

    78. 

  78.            correctly under d4<br>

    79. 

  79.          - updated some of the sample projects (fixed the broken bcb6 sample,

    80. 

  80.            added printing to the hex viewer and the bcb6 editor sample) <br><br></li>

    81. 

  81. 

    82. 

  82.   <li>v 12-28-2004: december 28, 2004<br><br>

    83. 

  83.          - changed the progress event calling part in @link(Find) and

    84. 

  84.            @link(FindWithWildcard) to avoid a division by zero error when working

    85. 

  85.            on files &lt; 500 bytes<br><br></li>

    86. 

  86. 

    87. 

  87.   <li>v 12-21-2004: december 21, 2004<br><br>

    88. 

  88.          - changed @link(PrepareFindReplaceData) to avoid an exception when

    89. 

  89.            the string parameter is empty<br><br></li>

    90. 

  90. 

    91. 

  91.   <li>v 11-12-2004: november 12, 2004<br><br>

    92. 

  92.          - changed mouse selection in insert mode, now it's more text

    93. 

  93.            editor-like<br>

    94. 

  94.          - @link(Undo) and @link(Redo) disabled when @link(ReadonlyView)

    95. 

  95.            is True<br>

    96. 

  96.          - some small other modifications<br>

    97. 

  97.          <br><br></li>

    98. 

  98. 

    99. 

  99.   <li>v 10-26-2004: october 26, 2004<br><br>

    100. 

  100.          - fixed a typecasting bug in the Undo method (integer overflow)<br>

    101. 

  101.          - added some utility functions for unsigned int64 arithmetics (@link(AddU64), @link(TryAddU64),

    102. 

  102.            @link(SubtractU64), @link(TrySubtractU64), @link(MultiplyU64), @link(TryMultiplyU64),

    103. 

  103.            @link(DivideU64), @link(TryDivideU64), @link(ModuloU64), @link(TryModuloU64))

    104. 

  104.          <br><br></li>

    105. 

  105. 

    106. 

  106.   <li>v 08-29-2004: august 29, 2004<br><br>

    107. 

  107.          - Added @link(ActiveFieldBackground) color property<br><br></li>

    108. 

  108. 

    109. 

  109.   <li>v 08-14-2004: august 14, 2004<br><br>

    110. 

  110.          - the caret was not set properly when switching from

    111. 

  111.            hex to char pane if no data was in the editor <br>

    112. 

  112.          - Added @link(MaskedChars) property<br><br></li>

    113. 

  113. 

    114. 

  114.   <li>v 06-15-2004: june 15, 2004<br><br>

    115. 

  115.          - Added @link(DrawDataPosition) and @link(IsDrawDataSelected) properties <br>

    116. 

  116.          - changes in drawing/invalidating to avoid unnecessary painting <br>

    117. 

  117.          - OnMouseDown is now called also if offset pane or ruler are clicked <br>

    118. 

  118.          - if @link(BytesPerUnit) is changed, the selection is reset

    119. 

  119.            if (SelCount mod BytesPerUnit) &lt;&gt; 0 <br>

    120. 

  120.          - if @link(CaretKind) is ckAuto, the caret is a bottom line if

    121. 

  121.            @link(ReadOnlyView) is True<br><br></li>

    122. 

  122. 

    123. 

  123.   <li>v 06-10-2004: june 10, 2004<br><br>

    124. 

  124.          - added @link(RulerNumberBase) property <br>

    125. 

  125.          - overwritten CanFocus method due to vcl bug (see

    126. 

  126.            <a href="http://info.borland.com/devsupport/delphi/fixes/delphi4/vcl.html">

    127. 

  127.            http://info.borland.com/devsupport/delphi/fixes/delphi4/vcl.html</a>,

    128. 

  128.            ref 279<br><br></li>

    129. 

  129. 

    130. 

  130.   <li>v 06-07-2004: june 07, 2004<br><br>

    131. 

  131.          - fixed a crash ("Grid index out of range") when switching from

    132. 

  132.            unicode <br>

    133. 

  133.          - @link(SyncView) modified to be able to synchronize the view

    134. 

  134.            of editors with different data sizes/layouts, also with offset <br>

    135. 

  135.          - on changing TopRow/LeftCol the caret is repositionned <br>

    136. 

  136.          - overwritten mouse wheel handling to allow page scrolling <br>

    137. 

  137.          - manual handling of MaskChar property streaming due to bug reports

    138. 

  138.            ("Invalid Property Value")<br><br></li>

    139. 

  139. 

    140. 

  140.   <li>v 05-30-2004: may 30, 2004<br><br>

    141. 

  141.          - fixed broken CanOpenFile routine (files were always marked read-only)<br><br></li>

    142. 

  142. 

    143. 

  143.   <li>v 05-27-2004: may 27, 2004<br><br>

    144. 

  144.          - added @link(IsMaxOffset) property <br>

    145. 

  145.          - the control gets focused when the mouse is clicked even when

    146. 

  146.            the mouse is over the selection<br><br></li>

    147. 

  147. 

    148. 

  148.   <li>v 05-13-2004: may 13, 2004<br><br>

    149. 

  149.          - @link(OnDrawCell) is now also called for the top left cell<br>

    150. 

  150.          - setting @link(UnicodeChars) to False now correctly sets

    151. 

  151.            @link(BytesPerUnit) to 1 <br><br></li>

    152. 

  152. 

    153. 

  153.   <li>v 04-18-2004: april 18, 2004<br><br>

    154. 

  154.          - parameters aBuffer and bBuffer were interchanged in the

    155. 

  155.            CopyMemory call in @link(TranslateBufferFromAnsi)<br>

    156. 

  156.          - @link(GetOffsetString) can now be called in @link(OnGetOffsetText)

    157. 

  157.            without crashing (infinite recursion = stack overflow) <br><br></li>

    158. 

  158. 

    159. 

  159.   <li>v 01-08-2004: january 08, 2004<br><br>

    160. 

  160.          - added some explicit pointer typecasts for {$T+} compatibility<br>

    161. 

  161.          - removed FindTable and FindTableI properties under BCB (doesn't

    162. 

  162.            compile) <br><br></li>

    163. 

  163. 

    164. 

  164.   <li>v 12-16-2003: december 16, 2003<br><br>

    165. 

  165.          - Setting the @link(DataSize) property is now undoable<br>

    166. 

  166.          - Added the public @link(SetDataSizeFillByte) property to be able to control

    167. 

  167.            what byte is used to enlarge the data<br>

    168. 

  168.          - Now checking @link(NoSizeChange) before allowing to set @link(DataSize)<br>

    169. 

  169.          - CreateUndo is no longer a function, but a procedure. Now an

    170. 

  170.            exception is raised when no undo record can be created <br><br></li>

    171. 

  171. 

    172. 

  172.   <li>v 12-10-2003: december 10, 2003<br><br>

    173. 

  173.          - Renamed OnLoadSaveProgress to @link(OnProgress)<br>

    174. 

  174.          - Added property @link(FindProgress)<br>

    175. 

  175.          - Added custom find methods (@link(OnFind), @link(OnWildcardFind)<br>

    176. 

  176.          - @link(Find) and @link(FindWithWildcard) speeded up by using

    177. 

  177.            precompiled character tables<br>

    178. 

  178.          - @link(Find) and @link(FindWithWildcard) now also fire the @link(OnProgress) event

    179. 

  179.            if @link(FindProgress) is set to true<br>

    180. 

  180.          - fixed a bug in mouse handling (weird selection or line offsets when

    181. 

  181.            doublecklicking ruler bar/offset panel) <br>

    182. 

  182.          - modified selectioncode to better support double byte selection (unicode) <br><br></li>

    183. 

  183. 

    184. 

  184.   <li>v 09-24-2003: september 24, 2003<br><br>

    185. 

  185.          - modified the BCB6 package<br><br></li>

    186. 

  186. 

    187. 

  187.   <li>v 09-09-2003: september 09, 2003<br><br>

    188. 

  188.          - changed some constants, classes and types from MPTH... to MPH...<br>

    189. 

  189.          - changed MPHCustTransFieldFrom/To to @link(MPHCustomCharConv)<br>

    190. 

  190.          - @link(BytesPerBlock) and @link(SeparateBlocksInCharField) properties added<br>

    191. 

  191.          - @link(DataSize) property is writeable now<br>

    192. 

  192.          - Page down key now also reaches the last row<br>

    193. 

  193.          - added @link(OnGetOffsetText) property<br>

    194. 

  194.          - added @link(AddSelectionUndo) procedure<br>

    195. 

  195.          - added defines for delphi7, renamed delver.inc to mpdelver.inc<br>

    196. 

  196.          - added wildcard search (@link(FindWithWildcard))<br>

    197. 

  197.          - added @link(SeekToEOF)<br>

    198. 

  198.          - changed keyboard handling, so OnKeyDown should work better<br>

    199. 

  199.          - added @link(GotoBookmark) method to set cursor to a bookmarked position<br>

    200. 

  200.          - added @link(OnBookmarkChanged) property<br>

    201. 

  201.          - support for unsigned int64 radix conversions<br>

    202. 

  202.          - @link(Replace) method added<br><br></li>

    203. 

  203. 

    204. 

  204.   <li>v 07-05-2003: july 05, 2003<br><br>

    205. 

  205.          - better handling of odd sized files when BytesPerUnit &lt;&gt; 1<br>

    206. 

  206.          - added support for pasting clipboard data in fixed filesize mode in @link(TMPHexEditorEx)<br>

    207. 

  207.          - added RegEdit_HexData clipboard support in @link(TMPHexEditorEx)<br><br></li>

    208. 

  208. 

    209. 

  209.   <li>v 05-25-2003-b: may 25, 2003<br><br>

    210. 

  210.          - fixed a bug (moving the cursor beyond eof)<br><br></li>

    211. 

  211. 

    212. 

  212.   <li>v 05-25-2003: may 25, 2003<br><br>

    213. 

  213.          - added some kind of ownerdraw (see @link(OnDrawCell))<br><br></li>

    214. 

  214. 

    215. 

  215.   <li>v 05-20-2003: may 20, 2003<br><br>

    216. 

  216.          - renamed, added and changed some methods, classes and properties<br>

    217. 

  217.          - fixed some bugs in the ruler display (e.g. when BytesPerRow is

    218. 

  218.            changed)<br>

    219. 

  219.          - fixed some bugs when BytesPerUnit &lt;&gt; 1<br>

    220. 

  220.          - added some unicode support (@link(UnicodeChars) and

    221. 

  221.            @link(UnicodeBigEndian))<br>

    222. 

  222.          - fixed some half byte (nibble) related bugs<br><br></li>

    223. 

  223. 

    224. 

  224.   <li>v 05-17-2003: may 17, 2003<br><br>

    225. 

  225.          - added @link(DisplayStart) and @link(DisplayEnd) functions to retrieve

    226. 

  226.            the data bounds currently displayed<br>

    227. 

  227.          - added @link(BytesPerUnit) and @link(RulerBytesPerUnit) properties to

    228. 

  228.            treat words/dwords/qwords as a unit<br>

    229. 

  229.          - added @link(SyncView) procedure and @link(OnSelectionChanged)

    230. 

  230.            property to synchronize position and selection with another

    231. 

  231.            editor<br>

    232. 

  232.          - added @link(ShowPositionIfNotFocused) property to show the current

    233. 

  233.            position if the editor is not focused<br><br></li>

    234. 

  234. 

    235. 

  235.   <li>v 10-25-2002: october 25, 2002<br><br>

    236. 

  236.          - corrected the BytesPerColumn default value<br><br></li>

    237. 

  237. 

    238. 

  238.   <li>v 08-18-2002: august 18, 2002<br><br>

    239. 

  239.          - modified painting and selection<br>

    240. 

  240.   - implemented an additional ruler bar at the top<br>

    241. 

  241.          - new properties: @link(ShowRuler), @link(DrawGutter3D)<br><br></li>

    242. 

  242. 

    243. 

  243.   <li>v 08-12-2002: august 12, 2002<br><br>

    244. 

  244.   - modified Changed calls to get correct Modified property in

    245. 

  245.            OnChange handler<br><br></li>

    246. 

  246. 

    247. 

  247.   <li>v 08-09-2002: august 09, 2002<br><br>

    248. 

  248.   - included missing include file delver.inc<br>

    249. 

  249.   - added OnChange event<br><br></li>

    250. 

  250. 

    251. 

  251.   <li>v 07-21-2002: july 21, 2002<br><br>

    252. 

  252.   too many changes to mention here (completely rewritten, basic and advanced versions

    253. 

  253.   TMPHexEditor and TMPHexEditorEx), plz read the documentation included with this

    254. 

  254.   package for more information</li>

    255. 

  255.   </ul></p>

    256. 

  256. 

    257. 

  257. *)

    258. 

  258. 

    259. 

  259. unit MPHexEditor;

    260. 

  260. {$R *.res}

    261. 

  261. {.$DEFINE TINYHEXER}// don't define this!

    262. 

  262. {$DEFINE FASTACCESS} // if this is defined, direct access to the stream memory is given

    263. 

  263. 

    264. 

  264. (* define this if you want to have the old savetostream behaviour

    265. 

  265.   (clear target stream before copying data).

    266. 

  266.   if it is undef'd, do not clear the target stream

    267. 

  267.   (just copy the editor data to the stream) *)

    268. 

  268. {.$DEFINE OLD_STREAM_OUT}

    269. 

  269. 

    270. 

  270. {$I MPDELVER.INC}

    271. 

  271. 

    272. 

  272. interface

    273. 

  273. 

    274. 

  274. uses

    275. 

  275.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

    276. 

  276. 

    277. 

  277.   Grids;

    278. 

  278. 

    279. 

  279. type

    280. 

  280.   // @exclude

    281. 

  281.   TGridCoord = Grids.TGridCoord;

    282. 

  282. 

    283. 

  283.   // character conversion type

    284. 

  284.   TMPHCharConvType = (cctFromAnsi, cctToAnsi);

    285. 

  285.   // character conversion table

    286. 

  286.   TMPHCharConvTable = array[0..255] of Char;

    287. 

  287.   // character conversion data storage

    288. 

  288.   TMPHCharConv = array[TMPHCharConvType] of TMPHCharConvTable;

    289. 

  289. 

    290. 

  290. const

    291. 

  291.   // block size in file i/o

    292. 

  292.   MPH_FILEIO_BLOCKSIZE = $F000;

    293. 

  293. 

    294. 

  294.   // this message is posted to the hex editor when it should update the caret position

    295. 

  295.   CM_INTUPDATECARET = CM_BASE + $100;

    296. 

  296. 

    297. 

  297.   // this message is posted when an OnSelectionChange event is to be fired

    298. 

  298.   CM_SELECTIONCHANGED = CM_BASE + $101;

    299. 

  299. 

    300. 

  300.   (* translation tables from/to ms windows ansi (~ MS Latin-1)  *)

    301. 

  301. 

    302. 

  302.   // macintosh..ms ansi conversion

    303. 

  303.   MPH_CCONV_MAC: TMPHCharConv = (

    304. 

  304.     //ansi to mac

    305. 

  305.     (#$00, #$01, #$02, #$03, #$04, #$05, #$06, #$07, #$08, #$09, #$0A, #$0B,

    306. 

  306.     #$0C, #$0D, #$0E, #$0F,

    307. 

  307.     #$10, #$11, #$12, #$13, #$14, #$15, #$16, #$17, #$18, #$19, #$1A, #$1B,

    308. 

  308.     #$1C, #$1D, #$1E, #$1F,

    309. 

  309.     #$20, #$21, #$22, #$23, #$24, #$25, #$26, #$27, #$28, #$29, #$2A, #$2B,

    310. 

  310.     #$2C, #$2D, #$2E, #$2F,

    311. 

  311.     #$30, #$31, #$32, #$33, #$34, #$35, #$36, #$37, #$38, #$39, #$3A, #$3B,

    312. 

  312.     #$3C, #$3D, #$3E, #$3F,

    313. 

  313.     #$40, #$41, #$42, #$43, #$44, #$45, #$46, #$47, #$48, #$49, #$4A, #$4B,

    314. 

  314.     #$4C, #$4D, #$4E, #$4F,

    315. 

  315.     #$50, #$51, #$52, #$53, #$54, #$55, #$56, #$57, #$58, #$59, #$5A, #$5B,

    316. 

  316.     #$5C, #$5D, #$5E, #$5F,

    317. 

  317.     #$60, #$61, #$62, #$63, #$64, #$65, #$66, #$67, #$68, #$69, #$6A, #$6B,

    318. 

  318.     #$6C, #$6D, #$6E, #$6F,

    319. 

  319.     #$70, #$71, #$72, #$73, #$74, #$75, #$76, #$77, #$78, #$79, #$7A, #$7B,

    320. 

  320.     #$7C, #$7D, #$7E, #$7F,

    321. 

  321.     #$C4, #$C5, #$AB, #$C9, #$D1, #$F7, #$DC, #$E1, #$E0, #$E2, #$E4, #$E3,

    322. 

  322.     #$AC, #$B0, #$AA, #$F8,

    323. 

  323.     #$D5, #$CE, #$C3, #$CF, #$D3, #$D4, #$D2, #$DB, #$DA, #$DD, #$F6, #$F5,

    324. 

  324.     #$FA, #$F9, #$FB, #$FC,

    325. 

  325.     #$A0, #$C1, #$A2, #$A3, #$DF, #$B4, #$B6, #$A4, #$C6, #$A9, #$BB, #$C7,

    326. 

  326.     #$C2, #$AD, #$A8, #$FF,

    327. 

  327.     #$A1, #$B1, #$B2, #$B3, #$A5, #$B5, #$A6, #$B7, #$B8, #$B9, #$BC, #$C8,

    328. 

  328.     #$BA, #$BD, #$CA, #$C0,

    329. 

  329.     #$CB, #$E7, #$E5, #$CC, #$80, #$81, #$AE, #$82, #$E9, #$83, #$E6, #$E8,

    330. 

  330.     #$ED, #$EA, #$EB, #$EC,

    331. 

  331.     #$D0, #$84, #$F1, #$EE, #$EF, #$CD, #$85, #$D7, #$AF, #$F4, #$F2, #$F3,

    332. 

  332.     #$86, #$D9, #$DE, #$A7,

    333. 

  333.     #$88, #$87, #$89, #$8B, #$8A, #$8C, #$BE, #$8D, #$8F, #$8E, #$90, #$91,

    334. 

  334.     #$93, #$92, #$94, #$95,

    335. 

  335.     #$F0, #$96, #$98, #$97, #$99, #$9B, #$9A, #$D6, #$BF, #$9D, #$9C, #$9E,

    336. 

  336.     #$9F, #$FD, #$FE, #$D8

    337. 

  337.     ),

    338. 

  338.     // mac to ansi

    339. 

  339.     (#$00, #$01, #$02, #$03, #$04, #$05, #$06, #$07, #$08, #$09, #$0A, #$0B,

    340. 

  340.     #$0C, #$0D, #$0E, #$0F,

    341. 

  341.     #$10, #$11, #$12, #$13, #$14, #$15, #$16, #$17, #$18, #$19, #$1A, #$1B,

    342. 

  342.     #$1C, #$1D, #$1E, #$1F,

    343. 

  343.     #$20, #$21, #$22, #$23, #$24, #$25, #$26, #$27, #$28, #$29, #$2A, #$2B,

    344. 

  344.     #$2C, #$2D, #$2E, #$2F,

    345. 

  345.     #$30, #$31, #$32, #$33, #$34, #$35, #$36, #$37, #$38, #$39, #$3A, #$3B,

    346. 

  346.     #$3C, #$3D, #$3E, #$3F,

    347. 

  347.     #$40, #$41, #$42, #$43, #$44, #$45, #$46, #$47, #$48, #$49, #$4A, #$4B,

    348. 

  348.     #$4C, #$4D, #$4E, #$4F,

    349. 

  349.     #$50, #$51, #$52, #$53, #$54, #$55, #$56, #$57, #$58, #$59, #$5A, #$5B,

    350. 

  350.     #$5C, #$5D, #$5E, #$5F,

    351. 

  351.     #$60, #$61, #$62, #$63, #$64, #$65, #$66, #$67, #$68, #$69, #$6A, #$6B,

    352. 

  352.     #$6C, #$6D, #$6E, #$6F,

    353. 

  353.     #$70, #$71, #$72, #$73, #$74, #$75, #$76, #$77, #$78, #$79, #$7A, #$7B,

    354. 

  354.     #$7C, #$7D, #$7E, #$7F,

    355. 

  355.     #$C4, #$C5, #$C7, #$C9, #$D1, #$D6, #$DC, #$E1, #$E0, #$E2, #$E4, #$E3,

    356. 

  356.     #$E5, #$E7, #$E9, #$E8,

    357. 

  357.     #$EA, #$EB, #$ED, #$EC, #$EE, #$EF, #$F1, #$F3, #$F2, #$F4, #$F6, #$F5,

    358. 

  358.     #$FA, #$F9, #$FB, #$FC,

    359. 

  359.     #$A0, #$B0, #$A2, #$A3, #$A7, #$B4, #$B6, #$DF, #$AE, #$A9, #$8E, #$82,

    360. 

  360.     #$8C, #$AD, #$C6, #$D8,

    361. 

  361.     #$8D, #$B1, #$B2, #$B3, #$A5, #$B5, #$A6, #$B7, #$B8, #$B9, #$BC, #$AA,

    362. 

  362.     #$BA, #$BD, #$E6, #$F8,

    363. 

  363.     #$BF, #$A1, #$AC, #$92, #$80, #$81, #$A8, #$AB, #$BB, #$83, #$BE, #$C0,

    364. 

  364.     #$C3, #$D5, #$91, #$93,

    365. 

  365.     #$D0, #$84, #$96, #$94, #$95, #$90, #$F7, #$D7, #$FF, #$DD, #$98, #$97,

    366. 

  366.     #$86, #$99, #$DE, #$A4,

    367. 

  367.     #$88, #$87, #$89, #$8B, #$8A, #$C2, #$CA, #$C1, #$CB, #$C8, #$CD, #$CE,

    368. 

  368.     #$CF, #$CC, #$D3, #$D4,

    369. 

  369.     #$F0, #$D2, #$DA, #$DB, #$D9, #$9B, #$9A, #$85, #$8F, #$9D, #$9C, #$9E,

    370. 

  370.     #$9F, #$FD, #$FE, #$AF

    371. 

  371.     )

    372. 

  372.     );

    373. 

  373. 

    374. 

  374.   // ebcdic cp38..ms ansi conversion

    375. 

  375.   MPH_CCONV_BCD38: TMPHCharConv = (

    376. 

  376.     //ansi to bcd (taken from recode 3.5)

    377. 

  377.     (#$00, #$01, #$02, #$03, #$37, #$2D, #$2E, #$2F, #$16, #$05, #$25, #$0B,

    378. 

  378.     #$0C, #$0D, #$0E, #$0F,

    379. 

  379.     #$10, #$11, #$12, #$13, #$3C, #$3D, #$32, #$26, #$18, #$19, #$3F, #$27,

    380. 

  380.     #$1C, #$1D, #$1E, #$1F,

    381. 

  381.     #$40, #$4F, #$7F, #$7B, #$5B, #$6C, #$50, #$7D, #$4D, #$5D, #$5C, #$4E,

    382. 

  382.     #$6B, #$60, #$4B, #$61,

    383. 

  383.     #$F0, #$F1, #$F2, #$F3, #$F4, #$F5, #$F6, #$F7, #$F8, #$F9, #$7A, #$5E,

    384. 

  384.     #$4C, #$7E, #$6E, #$6F,

    385. 

  385.     #$7C, #$C1, #$C2, #$C3, #$C4, #$C5, #$C6, #$C7, #$C8, #$C9, #$D1, #$D2,

    386. 

  386.     #$D3, #$D4, #$D5, #$D6,

    387. 

  387.     #$D7, #$D8, #$D9, #$E2, #$E3, #$E4, #$E5, #$E6, #$E7, #$E8, #$E9, #$4A,

    388. 

  388.     #$E0, #$5A, #$5F, #$6D,

    389. 

  389.     #$79, #$81, #$82, #$83, #$84, #$85, #$86, #$87, #$88, #$89, #$91, #$92,

    390. 

  390.     #$93, #$94, #$95, #$96,

    391. 

  391.     #$97, #$98, #$99, #$A2, #$A3, #$A4, #$A5, #$A6, #$A7, #$A8, #$A9, #$C0,

    392. 

  392.     #$20, #$D0, #$A1, #$07,

    393. 

  393.     #$80, #$22, #$62, #$63, #$64, #$65, #$66, #$67, #$68, #$69, #$8A, #$8B,

    394. 

  394.     #$8C, #$8D, #$8E, #$8F,

    395. 

  395.     #$90, #$77, #$2C, #$0A, #$3B, #$3E, #$1A, #$70, #$71, #$72, #$9A, #$9B,

    396. 

  396.     #$9C, #$9D, #$9E, #$9F,

    397. 

  397.     #$A0, #$15, #$73, #$74, #$75, #$76, #$6A, #$78, #$09, #$3A, #$AA, #$AB,

    398. 

  398.     #$AC, #$AD, #$AE, #$AF,

    399. 

  399.     #$B0, #$B1, #$B2, #$B3, #$B4, #$B5, #$B6, #$B7, #$B8, #$B9, #$BA, #$BB,

    400. 

  400.     #$BC, #$BD, #$BE, #$BF,

    401. 

  401.     #$23, #$41, #$42, #$43, #$44, #$45, #$46, #$47, #$48, #$49, #$CA, #$CB,

    402. 

  402.     #$CC, #$CD, #$CE, #$CF,

    403. 

  403.     #$1B, #$24, #$06, #$14, #$28, #$2B, #$21, #$17, #$51, #$52, #$DA, #$DB,

    404. 

  404.     #$DC, #$DD, #$DE, #$DF,

    405. 

  405.     #$2A, #$E1, #$53, #$54, #$55, #$56, #$57, #$58, #$59, #$29, #$EA, #$EB,

    406. 

  406.     #$EC, #$ED, #$EE, #$EF,

    407. 

  407.     #$30, #$31, #$08, #$33, #$34, #$35, #$36, #$04, #$38, #$39, #$FA, #$FB,

    408. 

  408.     #$FC, #$FD, #$FE, #$FF

    409. 

  409.     ),

    410. 

  410.     // bcd to ansi (taken from recode 3.5)

    411. 

  411.     (#$00, #$01, #$02, #$03, #$F7, #$09, #$D2, #$7F, #$F2, #$A8, #$93, #$0B,

    412. 

  412.     #$0C, #$0D, #$0E, #$0F,

    413. 

  413.     #$10, #$11, #$12, #$13, #$D3, #$A1, #$08, #$D7, #$18, #$19, #$96, #$D0,

    414. 

  414.     #$1C, #$1D, #$1E, #$1F,

    415. 

  415.     #$7C, #$D6, #$81, #$C0, #$D1, #$0A, #$17, #$1B, #$D4, #$E9, #$E0, #$D5,

    416. 

  416.     #$92, #$05, #$06, #$07,

    417. 

  417.     #$F0, #$F1, #$16, #$F3, #$F4, #$F5, #$F6, #$04, #$F8, #$F9, #$A9, #$94,

    418. 

  418.     #$14, #$15, #$95, #$1A,

    419. 

  419.     #$20, #$C1, #$C2, #$C3, #$C4, #$C5, #$C6, #$C7, #$C8, #$C9, #$5B, #$2E,

    420. 

  420.     #$3C, #$28, #$2B, #$21,

    421. 

  421.     #$26, #$D8, #$D9, #$E2, #$E3, #$E4, #$E5, #$E6, #$E7, #$E8, #$5D, #$24,

    422. 

  422.     #$2A, #$29, #$3B, #$5E,

    423. 

  423.     #$2D, #$2F, #$82, #$83, #$84, #$85, #$86, #$87, #$88, #$89, #$A6, #$2C,

    424. 

  424.     #$25, #$5F, #$3E, #$3F,

    425. 

  425.     #$97, #$98, #$99, #$A2, #$A3, #$A4, #$A5, #$91, #$A7, #$60, #$3A, #$23,

    426. 

  426.     #$40, #$27, #$3D, #$22,

    427. 

  427.     #$80, #$61, #$62, #$63, #$64, #$65, #$66, #$67, #$68, #$69, #$8A, #$8B,

    428. 

  428.     #$8C, #$8D, #$8E, #$8F,

    429. 

  429.     #$90, #$6A, #$6B, #$6C, #$6D, #$6E, #$6F, #$70, #$71, #$72, #$9A, #$9B,

    430. 

  430.     #$9C, #$9D, #$9E, #$9F,

    431. 

  431.     #$A0, #$7E, #$73, #$74, #$75, #$76, #$77, #$78, #$79, #$7A, #$AA, #$AB,

    432. 

  432.     #$AC, #$AD, #$AE, #$AF,

    433. 

  433.     #$B0, #$B1, #$B2, #$B3, #$B4, #$B5, #$B6, #$B7, #$B8, #$B9, #$BA, #$BB,

    434. 

  434.     #$BC, #$BD, #$BE, #$BF,

    435. 

  435.     #$7B, #$41, #$42, #$43, #$44, #$45, #$46, #$47, #$48, #$49, #$CA, #$CB,

    436. 

  436.     #$CC, #$CD, #$CE, #$CF,

    437. 

  437.     #$7D, #$4A, #$4B, #$4C, #$4D, #$4E, #$4F, #$50, #$51, #$52, #$DA, #$DB,

    438. 

  438.     #$DC, #$DD, #$DE, #$DF,

    439. 

  439.     #$5C, #$E1, #$53, #$54, #$55, #$56, #$57, #$58, #$59, #$5A, #$EA, #$EB,

    440. 

  440.     #$EC, #$ED, #$EE, #$EF,

    441. 

  441.     #$30, #$31, #$32, #$33, #$34, #$35, #$36, #$37, #$38, #$39, #$FA, #$FB,

    442. 

  442.     #$FC, #$FD, #$FE, #$FF

    443. 

  443.     )

    444. 

  444.     );

    445. 

  445. 

    446. 

  446. type

    447. 

  447.   // custom Exception class

    448. 

  448.   EMPHexEditor = class(Exception);

    449. 

  449. 

    450. 

  450.   (* bookmark record:<br>

    451. 

  451.      defined by pressing SHIFT+CTRL+[0..9], goto bookmark by pressing CTRL+[0..9]<br><br>

    452. 

  452. 

    453. 

  453.      - mPosition: file position<br>

    454. 

  454.      - mInCharField: cursor in character pane (True) or hex number pane

    455. 

  455.   *)

    456. 

  456.   TMPHBookmark = record

    457. 

  457.     mPosition: integer;

    458. 

  458.     mInCharField: boolean;

    459. 

  459.   end;

    460. 

  460. 

    461. 

  461.   // array of bookmarks, representing keys 0..9

    462. 

  462.   TMPHBookmarks = array[0..9] of TMPHBookmark;

    463. 

  463. 

    464. 

  464.   (* look of the editor's caret:<br>

    465. 

  465.      - ckFull: full block<br>

    466. 

  466.      - ckLeft: left line<br>

    467. 

  467.      - ckBottom: bottom line<br>

    468. 

  468.      - ckAuto: left line if @link(InsertMode), full block if overwrite,

    469. 

  469.                bottom line if ReadOnlyView

    470. 

  470.   *)

    471. 

  471.   TMPHCaretKind = (ckFull,

    472. 

  472.     ckLeft,

    473. 

  473.     ckBottom,

    474. 

  474.     ckAuto

    475. 

  475.     );

    476. 

  476. 

    477. 

  477.   (* how to show a file's content in the character pane of the editor:<br>

    478. 

  478.     - tkAsIs:    leave as is (current windows code page)<br>

    479. 

  479.     - tkDos8:    current dos codepage<br>

    480. 

  480.     - tkASCII:   7 bit ascii<br>

    481. 

  481.     - tkMac:     macintosh charset (translation always from/to ms cp 1252 (ms latin1)!!<br>

    482. 

  482.     - tkBCD:     ibm ebcdic codepage 38 (translation always from/to ms cp 1252 (ms latin1)!!<br>

    483. 

  483.     - tkCustom:  custom codepage stored in @link(MPHCustomCharConv)

    484. 

  484.   *)

    485. 

  485.   TMPHTranslationKind = (tkAsIs,

    486. 

  486.     tkDos8,

    487. 

  487.     tkASCII,

    488. 

  488.     tkMac,

    489. 

  489.     tkBCD

    490. 

  490. 

    491. 

  491.     , tkCustom

    492. 

  492. 

    493. 

  493.     );

    494. 

  494. 

    495. 

  495.   (* action indicator used in @link(OnProgress) event handler:<br>

    496. 

  496.     - pkLoad:  loading data<br>

    497. 

  497.     - pkSave:  saving data<br>

    498. 

  498.     - pkFind:  finding

    499. 

  499.   *)

    500. 

  500.   TMPHProgressKind = (pkLoad,

    501. 

  501.     pkSave, pkFind

    502. 

  502.     );

    503. 

  503. 

    504. 

  504.   (* progress event handler, used in @link(OnProgress)<br><br>

    505. 

  505. 

    506. 

  506.        - ProgressType: am i loading or saving? (see @link(TMPHProgressKind))<br>

    507. 

  507.        - aName: name of file to be load from/saved to<br>

    508. 

  508.        - Percent: current progress (0..100)<br>

    509. 

  509.        - Cancel: if set to true, the load/save procedure will abort (no meaning in Find* methods) <br>

    510. 

  510.   *)

    511. 

  511.   TMPHProgressEvent = procedure(Sender: TObject;

    512. 

  512.     const ProgressType: TMPHProgressKind;

    513. 

  513.     const aName: TFileName;

    514. 

  514.     const Percent: byte;

    515. 

  515.     var Cancel: boolean) of object;

    516. 

  516. 

    517. 

  517.   (* retrieve the "line number" to display by the application<br><br>

    518. 

  518. 

    519. 

  519.        - Number: the number to convert to text

    520. 

  520.        - OffsetText: the resulting text output

    521. 

  521.   *)

    522. 

  522.   TMPHGetOffsetTextEvent = procedure(Sender: TObject;

    523. 

  523.     const Number: int64;

    524. 

  524.     var OffsetText: string) of object;

    525. 

  525. 

    526. 

  526.   (* handler for custom search routines<br><br>

    527. 

  527. 

    528. 

  528.      - Pattern: the data to find

    529. 

  529.      - PatLength: length of the data to find

    530. 

  530.      - SearchFrom: first search position

    531. 

  531.      - SearchUntil: last search position

    532. 

  532.      - IgnoreCase: case sensitive?

    533. 

  533.      - Wilcard: Wildcard character (only used by FindWithWildcard)

    534. 

  534.      - FoundPos: result, set to -1 if data was not found

    535. 

  535.   *)

    536. 

  536.   TMPHFindEvent = procedure(Sender: TObject;

    537. 

  537.     const Pattern: PChar; const PatLength: integer;

    538. 

  538.     const SearchFrom, SearchUntil: integer;

    539. 

  539.     const IgnoreCase: boolean;

    540. 

  540.     const Wildcard: Char;

    541. 

  541.     var FoundPos: Integer) of object;

    542. 

  542. 

    543. 

  543.   // precompiled converted character table types for faster data search

    544. 

  544.   PMPHFindTable = ^TMPHFindTable;

    545. 

  545.   TMPHFindTable = array[#0..#255] of Char;

    546. 

  546. 

    547. 

  547.   //@exclude

    548. 

  548.   // flags internally used in the undo storage

    549. 

  549.   TMPHUndoFlag = (

    550. 

  550.     // kind of undo storage

    551. 

  551.     ufKindBytesChanged,

    552. 

  552.     ufKindByteRemoved,

    553. 

  553.     ufKindInsertBuffer,

    554. 

  554.     ufKindReplace,

    555. 

  555.     ufKindAppendBuffer,

    556. 

  556.     ufKindNibbleInsert,

    557. 

  557.     ufKindNibbleDelete,

    558. 

  558.     ufKindConvert,

    559. 

  559.     ufKindSelection, // store a selection

    560. 

  560.     ufKindCombined,

    561. 

  561.     ufKindAllData, // store current data and size for complete undo

    562. 

  562.     // additional information

    563. 

  563.     ufFlagByte1Changed,

    564. 

  564.     ufFlagByte2Changed,

    565. 

  565.     ufFlagModified,

    566. 

  566.     ufFlag2ndByteCol,

    567. 

  567.     ufFlagInCharField,

    568. 

  568.     ufFlagHasSelection,

    569. 

  569.     ufFlagInsertMode,

    570. 

  570.     ufFlagIsUnicode,

    571. 

  571.     ufFlagIsUnicodeBigEndian,

    572. 

  572.     ufFlagHasDescription

    573. 

  573.     );

    574. 

  574. 

    575. 

  575.   //@exclude

    576. 

  576.   // set of undo flags

    577. 

  577.   TMPHUndoFlags = set of TMPHUndoFlag;

    578. 

  578. 

    579. 

  579. type

    580. 

  580.   // persistent color storage (contains the colors in hex editors)

    581. 

  581.   TMPHColors = class(TPersistent)

    582. 

  582.   private

    583. 

  583.     FParent: TControl;

    584. 

  584.     FOffset: TColor;

    585. 

  585.     FOddColumn: TColor;

    586. 

  586.     FEvenColumn: TColor;

    587. 

  587.     FCursorFrame: TColor;

    588. 

  588.     FNonFocusCursorFrame: TColor;

    589. 

  589.     FBackground: TColor;

    590. 

  590.     FChangedText: TColor;

    591. 

  591.     FChangedBackground: TColor;

    592. 

  592.     FCurrentOffsetBackground: TColor;

    593. 

  593.     FOffsetBackGround: TColor;

    594. 

  594.     FActiveFieldBackground: TColor;

    595. 

  595.     FCurrentOffset: TColor;

    596. 

  596.     FGrid: TColor;

    597. 

  597. 

    598. 

  598.     procedure SetOffsetBackGround(const Value: TColor);

    599. 

  599.     procedure SetCurrentOffset(const Value: TColor);

    600. 

  600.     procedure SetParent(const Value: TControl);

    601. 

  601.     procedure SetGrid(const Value: TColor);

    602. 

  602.     procedure SetBackground(const Value: TColor);

    603. 

  603.     procedure SetChangedBackground(const Value: TColor);

    604. 

  604.     procedure SetChangedText(const Value: TColor);

    605. 

  605.     procedure SetCursorFrame(const Value: TColor);

    606. 

  606.     procedure SetEvenColumn(const Value: TColor);

    607. 

  607.     procedure SetOddColumn(const Value: TColor);

    608. 

  608.     procedure SetOffset(const Value: TColor);

    609. 

  609.     procedure SetActiveFieldBackground(const Value: TColor);

    610. 

  610.     procedure SetCurrentOffsetBackground(const Value: TColor);

    611. 

  611.     procedure SetNonFocusCursorFrame(const Value: TColor);

    612. 

  612.   public

    613. 

  613.     // @exclude(constructor)

    614. 

  614.     constructor Create(Parent: TControl);

    615. 

  615.     // @exclude()

    616. 

  616.     procedure Assign(Source: TPersistent); override;

    617. 

  617.     // parent hex editor control

    618. 

  618.     property Parent: TControl read FParent write SetParent;

    619. 

  619.   published

    620. 

  620.     // background color

    621. 

  621.     property Background: TColor read FBackground write SetBackground;

    622. 

  622.     // background color of modified bytes (in overwrite mode)

    623. 

  623.     property ChangedBackground: TColor read FChangedBackground write

    624. 

  624.       SetChangedBackground;

    625. 

  625.     // foreground color of modified bytes (in overwrite mode)

    626. 

  626.     property ChangedText: TColor read FChangedText write SetChangedText;

    627. 

  627.     // color of the cursor and position frame in the second pane

    628. 

  628.     property CursorFrame: TColor read FCursorFrame write SetCursorFrame;

    629. 

  629.     // foreground color of the line offsets

    630. 

  630.     property Offset: TColor read FOffset write SetOffset;

    631. 

  631.     // foreground color of odd columns

    632. 

  632.     property OddColumn: TColor read FOddColumn write SetOddColumn;

    633. 

  633.     // foreground color of even columns

    634. 

  634.     property EvenColumn: TColor read FEvenColumn write SetEvenColumn;

    635. 

  635.     // background color of the current line in the offset pane (gutter)

    636. 

  636.     property CurrentOffsetBackground: TColor read FCurrentOffsetBackground write

    637. 

  637.       SetCurrentOffsetBackground;

    638. 

  638.     // background color of the offset pane (gutter)

    639. 

  639.     property OffsetBackGround: TColor read FOffsetBackGround write

    640. 

  640.       SetOffsetBackGround;

    641. 

  641.     // foreground color of the current line in the offset pane (gutter)

    642. 

  642.     property CurrentOffset: TColor read FCurrentOffset write SetCurrentOffset;

    643. 

  643.     // pen color of the grid

    644. 

  644.     property Grid: TColor read FGrid write SetGrid;

    645. 

  645.     // color of a cursor frame in a non-focused editor

    646. 

  646.     property NonFocusCursorFrame: TColor read FNonFocusCursorFrame write

    647. 

  647.       SetNonFocusCursorFrame;

    648. 

  648.     // background color of the active field (hex/chars)

    649. 

  649.     property ActiveFieldBackground: TColor read FActiveFieldBackground write

    650. 

  650.       SetActiveFieldBackground;

    651. 

  651. 

    652. 

  652.   end;

    653. 

  653. 

    654. 

  654.   // @exclude(stream class for internal storage/undo)

    655. 

  655.   TMPHMemoryStream = class(TMemoryStream)

    656. 

  656.   private

    657. 

  657. 

    658. 

  658.     procedure CheckBounds(const AMax: Integer);

    659. 

  659.     function PointerAt(const APosition: Integer): Pointer;

    660. 

  660.   protected

    661. 

  661. 

    662. 

  662.   public

    663. 

  663. 

    664. 

  664. {$IFDEF FASTACCESS}

    665. 

  665.     function GetAddress(const Index, Count: integer): PByte;

    666. 

  666. {$ENDIF}

    667. 

  667.     procedure ReadBufferAt(var Buffer; const APosition, ACount: Integer);

    668. 

  668.     procedure WriteBufferAt(const Buffer; const APosition, ACount: Integer);

    669. 

  669.     procedure Move(const AFromPos, AToPos, ACount: Integer);

    670. 

  670.     procedure TranslateToAnsi(const FromTranslation: TMPHTranslationKind; const

    671. 

  671.       APosition, ACount: integer);

    672. 

  672.     procedure TranslateFromAnsi(const ToTranslation: TMPHTranslationKind; const

    673. 

  673.       APosition, ACount: integer);

    674. 

  674.     function GetAsHex(const APosition, ACount: integer; const SwapNibbles:

    675. 

  675.       Boolean): string;

    676. 

  676.   end;

    677. 

  677. 

    678. 

  678.   //@exclude

    679. 

  679.   // undo storage implementation

    680. 

  680.   TMPHUndoStorage = class;

    681. 

  681. 

    682. 

  682.   //@exclude

    683. 

  683.   // offset format flags

    684. 

  684.   TMPHOffsetFormatFlag = (offCalcWidth,

    685. 

  685.     // calculate minwidth depending on data size (width field = '-')

    686. 

  686.     offCalcRow,

    687. 

  687.     // calculate _BytesPerUnit depending on bytes per row (=real line numbers)

    688. 

  688.     offCalcColumn, // " bytes per column (= column numbers)

    689. 

  689.     offBytesPerUnit // use BytesPerUnit property

    690. 

  690.     );

    691. 

  691. 

    692. 

  692.   //@exclude

    693. 

  693.   // set of the above flags

    694. 

  694.   TMPHOffsetFormatFlags = set of TMPHOffsetFormatFlag;

    695. 

  695. 

    696. 

  696.   //@exclude

    697. 

  697.   // offset format record

    698. 

  698.   TMPHOffsetFormat = record

    699. 

  699.     Format: string; // format as string

    700. 

  700.     Prefix,

    701. 

  701.       Suffix: string; // splitted format

    702. 

  702.     MinWidth: integer; // min length of value (zero padded on the left)

    703. 

  703.     Flags: // auto calculation flags

    704. 

  704.     TMPHOffsetFormatFlags;

    705. 

  705.     Radix, // radix (base) of display (2..16)

    706. 

  706.     _BytesPerUnit: byte; // length of one unit (1 Byte...BytesPerRow Bytes)

    707. 

  707.   end;

    708. 

  708. 

    709. 

  709.   (* owner draw event type. parameters:<br><br>

    710. 

  710.      - Sender: the hex editor<br>

    711. 

  711.      - ACanvas: the editor's canvas<br>

    712. 

  712.      - ACol, ARow: the position to be drawn<br>

    713. 

  713.      - AWideText: the text to be drawn<br>

    714. 

  714.      - ARect: the cell rectangle<br>

    715. 

  715.      - ADefaultDraw: if set to True (default), default drawing isperformed after the event handler returns.

    716. 

  716.        if set to false, the event handler must do all cell painting.

    717. 

  717.   *)

    718. 

  718.   TMPHDrawCellEvent = procedure(Sender: TObject; ACanvas: TCanvas; ACol, ARow:

    719. 

  719.     Integer; var AWideText: WideString; ARect: TRect; var ADefaultDraw: Boolean)

    720. 

  720.     of object;

    721. 

  721. 

    722. 

  722.   // protected ancestor of the hex editor components

    723. 

  723. 

    724. 

  724.   TCustomMPHexEditor = class(TCustomGrid)

    725. 

  725. 

    726. 

  726.   private

    727. 

  727. 

    728. 

  728.     FIntLastHexCol: integer;

    729. 

  729.     FFindTable,

    730. 

  730.       FFindTableI: TMPHFindTable;

    731. 

  731.     FIsMaxOffset: boolean;

    732. 

  732.     FFindProgress: boolean;

    733. 

  733.     FBlockSize: Integer;

    734. 

  734.     FSepCharBlocks: boolean;

    735. 

  735.     FOnGetOffsetText: TMPHGetOffsetTextEvent;

    736. 

  736.     FFixedFileSize: boolean;

    737. 

  737.     FCharWidth,

    738. 

  738.       FCharHeight: integer;

    739. 

  739.     FBookmarkImageList: TImageList;

    740. 

  740.     FInsertModeOn: boolean;

    741. 

  741.     FCaretBitmap: TBitmap;

    742. 

  742.     FColors: TMPHColors;

    743. 

  743.     FBytesPerRow: integer;

    744. 

  744.     FOffSetDisplayWidth: integer;

    745. 

  745.     FBytesPerRowDup: integer;

    746. 

  746.     FDataStorage: TMPHMemoryStream;

    747. 

  747.     FSwapNibbles: integer;

    748. 

  748.     FFocusFrame: boolean;

    749. 

  749.     FIsFileReadonly: boolean;

    750. 

  750.     FBytesPerCol: integer;

    751. 

  751.     FPosInCharField,

    752. 

  752.       FLastPosInCharField: boolean;

    753. 

  753.     FFileName: string;

    754. 

  754.     FModifiedBytes: TBits;

    755. 

  755.     FBookmarks: TMPHBookmarks;

    756. 

  756.     FSelStart,

    757. 

  757.       FSelPosition,

    758. 

  758.       FSelEnd: integer;

    759. 

  759.     FSelBeginPosition: integer;

    760. 

  760.     FTranslation: TMPHTranslationKind;

    761. 

  761.     FCaretKind: TMPHCaretKind;

    762. 

  762.     FReplaceUnprintableCharsBy: char;

    763. 

  763.     FAllowInsertMode: boolean;

    764. 

  764.     FWantTabs: boolean;

    765. 

  765.     FReadOnlyView: boolean;

    766. 

  766.     FHideSelection: boolean;

    767. 

  767.     FGraySelOnLostFocus: boolean;

    768. 

  768.     FOnProgress: TMPHProgressEvent;

    769. 

  769.     FMouseDownCol,

    770. 

  770.       FMouseDownRow: integer;

    771. 

  771.     FShowDrag: boolean;

    772. 

  772.     FDropCol,

    773. 

  773.       FDropRow: integer;

    774. 

  774.     FOnInvalidKey,

    775. 

  775.       FOnTopLeftChanged: TNotifyEvent;

    776. 

  776. 

    777. 

  777.     FDrawGridLines: boolean;

    778. 

  778.     FDrawGutter3D: boolean;

    779. 

  779.     FGutterWidth: integer;

    780. 

  780.     FOffsetFormat: TMPHOffsetFormat;

    781. 

  781.     FSelectionPossible: boolean;

    782. 

  782.     FBookmarkBitmap: TBitmap;

    783. 

  783.     FCursorList: array of integer;

    784. 

  784.     FHasCustomBMP: boolean;

    785. 

  785.     FStreamFileName: string;

    786. 

  786.     FHasFile: boolean;

    787. 

  787.     FMaxUndo: integer;

    788. 

  788.     FHexChars: array[0..15] of char;

    789. 

  789.     FHexLowerCase: boolean;

    790. 

  790.     FOnChange: TNotifyEvent;

    791. 

  791.     FShowRuler: boolean;

    792. 

  792.     FBytesPerUnit: Integer;

    793. 

  793.     FRulerBytesPerUnit: Integer;

    794. 

  794.     FOnSelectionChanged: TNotifyEvent;

    795. 

  795.     FSelectionChangedCount: Integer;

    796. 

  796.     FShowPositionIfNotFocused: Boolean;

    797. 

  797.     FOffsetHandler: Boolean;

    798. 

  798.     FUsedRulerBytesPerUnit: Integer;

    799. 

  799.     FIsSelecting: boolean;

    800. 

  800.     FMouseUpCanResetSel: boolean;

    801. 

  801.     FUndoStorage: TMPHUndoStorage;

    802. 

  802.     FUnicodeCharacters: Boolean;

    803. 

  803.     FUnicodeBigEndian: Boolean;

    804. 

  804.     FMaskedChars: TSysCharSet;

    805. 

  805. 

    806. 

  806.     FDrawDataPosition: integer;

    807. 

  807.     FOnDrawCell: TMPHDrawCellEvent;

    808. 

  808. 

    809. 

  809.     FOnBookmarkChanged: TNotifyEvent;

    810. 

  810. 

    811. 

  811.     FIsDrawDataSelected: boolean;

    812. 

  812. 

    813. 

  813.     FOnWildcardFind: TMPHFindEvent;

    814. 

  814.     FOnFind: TMPHFindEvent;

    815. 

  815. {$IFDEF FASTACCESS}

    816. 

  816.     FSetDataSizeFillByte: Byte;

    817. 

  817. {$ENDIF}

    818. 

  818.     FRulerNumberBase: byte;

    819. 

  819.     property Color;

    820. 

  820. 

    821. 

  821.     function IsInsertModePossible: boolean;

    822. 

  822. 

    823. 

  823.     function IsFileSizeFixed: boolean;

    824. 

  824.     procedure InternalErase(const KeyWasBackspace: boolean; const UndoDesc:

    825. 

  825.       string = '');

    826. 

  826.     procedure SetReadOnlyView(const Value: boolean);

    827. 

  827.     procedure SetCaretKind(const Value: TMPHCaretKind);

    828. 

  828.     procedure SetFocusFrame(const Value: boolean);

    829. 

  829.     procedure SetBytesPerColumn(const Value: integer);

    830. 

  830.     procedure SetSwapNibbles(const Value: boolean);

    831. 

  831.     function GetSwapNibbles: boolean;

    832. 

  832.     function GetBytesPerColumn: integer;

    833. 

  833.     procedure SetOffsetDisplayWidth;

    834. 

  834.     procedure SetColors(const Value: TMPHColors);

    835. 

  835.     procedure SetReadOnlyFile(const Value: boolean);

    836. 

  836.     procedure SetTranslation(const Value: TMPHTranslationKind);

    837. 

  837.     procedure SetModified(const Value: boolean);

    838. 

  838.     procedure SetChanged(DataPos: integer; const Value: boolean);

    839. 

  839.     procedure SetFixedFileSize(const Value: boolean);

    840. 

  840.     procedure SetAllowInsertMode(const Value: boolean);

    841. 

  841.     function GetInsertMode: boolean;

    842. 

  842.     procedure SetWantTabs(const Value: boolean);

    843. 

  843.     procedure SetHideSelection(const Value: boolean);

    844. 

  844.     procedure SetGraySelectionIfNotFocused(const Value: boolean);

    845. 

  845.     function CalcColCount: integer;

    846. 

  846.     function GetLastCharCol: integer;

    847. 

  847.     function GetPropColCount: integer;

    848. 

  848.     function GetPropRowCount: integer;

    849. 

  849.     function GetMouseOverSelection: boolean;

    850. 

  850.     function CursorOverSelection(const X, Y: integer): boolean;

    851. 

  851.     function MouseOverFixed(const X, Y: integer): boolean;

    852. 

  852.     procedure AdjustBookmarks(const From, Offset: integer);

    853. 

  853.     procedure IntSetCaretPos(const X, Y, ACol: integer);

    854. 

  854.     procedure TruncMaxPosition(var DataPos: integer);

    855. 

  855.     procedure SetSelection(DataPos, StartPos, EndPos: integer);

    856. 

  856.     function GetCurrentValue: integer;

    857. 

  857.     procedure SetInsertMode(const Value: boolean);

    858. 

  858.     function GetModified: boolean;

    859. 

  859.     //function GetDataPointer: Pointer;

    860. 

  860.     procedure SetBytesPerRow(const Value: integer);

    861. 

  861.     procedure SetMaskChar(const Value: char);

    862. 

  862.     procedure SetAsText(const Value: string);

    863. 

  863.     procedure SetAsHex(const Value: string);

    864. 

  864.     function GetAsText: string;

    865. 

  865.     function GetAsHex: string;

    866. 

  866.     procedure WMTimer(var Msg: TWMTimer); message WM_TIMER;

    867. 

  867.     // show or hide caret depending on row/col in view

    868. 

  868.     procedure CheckSetCaret;

    869. 

  869.     // get the row according to the given buffer position

    870. 

  870.     function GetRow(const DataPos: integer): integer;

    871. 

  871.     // invalid key pressed (in ebcdic)

    872. 

  872.     procedure WrongKey;

    873. 

  873. 

    874. 

  874.     // create an inverting caret bitmap

    875. 

  875.     procedure CreateCaretGlyph;

    876. 

  876.     // get start of selection

    877. 

  877.     function GetSelStart: integer;

    878. 

  878.     // get end of selection

    879. 

  879.     function GetSelEnd: integer;

    880. 

  880.     // get selection count

    881. 

  881.     function GetSelCount: integer;

    882. 

  882.     // set selection start

    883. 

  883.     procedure SetSelStart(aValue: integer);

    884. 

  884.     // set selection end

    885. 

  885.     procedure SetSelEnd(aValue: integer);

    886. 

  886.     // position the caret in the given field

    887. 

  887.     procedure SetInCharField(const Value: boolean);

    888. 

  888.     // is the caret in the char field ?

    889. 

  889.     function GetInCharField: boolean;

    890. 

  890.     // insert a buffer (internal)

    891. 

  891.     procedure InternalInsertBuffer(Buffer: PChar; const Size, Position:

    892. 

  892.       integer);

    893. 

  893.     // append some data (int)

    894. 

  894.     procedure InternalAppendBuffer(Buffer: PChar; const Size: integer);

    895. 

  895.     // store the caret properties

    896. 

  896.     procedure InternalGetCurSel(var StartPos, EndPos, ACol, ARow: integer);

    897. 

  897.     // delete data

    898. 

  898.     procedure InternalDelete(StartPos, EndPos, ACol, ARow: integer);

    899. 

  899.     // delete one half byte

    900. 

  900.     function InternalDeleteNibble(const Pos: integer;

    901. 

  901.       const HighNibble: boolean): boolean;

    902. 

  902.     // insert half byte

    903. 

  903.     function InternalInsertNibble(const Pos: integer; const HighNibble:

    904. 

  904.       boolean): boolean;

    905. 

  905.     // used by nibble functions

    906. 

  906.     function CreateShift4BitStream(const StartPos: integer; var FName:

    907. 

  907.       TFileName): TFileStream;

    908. 

  908.     // convert a given amount of data from ansi to something different and vice versa

    909. 

  909.     procedure InternalConvertRange(const aFrom, aTo: integer; const aTransFrom,

    910. 

  910.       aTransTo: TMPHTranslationKind);

    911. 

  911.     // move data in buffer to a different position

    912. 

  912.     procedure MoveFileMem(const aFrom, aTo, aCount: integer);

    913. 

  913.     function GetBookmark(Index: byte): TMPHBookmark;

    914. 

  914.     procedure SetBookmark(Index: byte; const Value: TMPHBookmark);

    915. 

  915.     procedure SetBookmarkVals(const Index: byte; const Position: integer; const

    916. 

  916.       InCharField: boolean);

    917. 

  917.     procedure SetDrawGridLines(const Value: boolean);

    918. 

  918.     procedure SetGutterWidth(const Value: integer);

    919. 

  919.     // images have changed

    920. 

  920.     procedure BookmarkBitmapChanged(Sender: TObject);

    921. 

  921.     procedure SetBookmarkBitmap(const Value: TBitmap);

    922. 

  922. 

    923. 

  923.     function GetVersion: string;

    924. 

  924.     procedure SetVersion(const Value: string);

    925. 

  925. 

    926. 

  926.     // free alloc'd memory of one of the storage streams;

    927. 

  927.     procedure FreeStorage(FreeUndo: boolean = False);

    928. 

  928.     function GetCanUndo: boolean;

    929. 

  929.     function GetCanRedo: boolean;

    930. 

  930.     function GetUndoDescription: string;

    931. 

  931.     function GetOffsetFormat: string;

    932. 

  932.     procedure SetOffsetFormat(const Value: string);

    933. 

  933.     // generate offset format

    934. 

  934.     procedure GenerateOffsetFormat(Value: string);

    935. 

  935.     procedure SetHexLowerCase(const Value: boolean);

    936. 

  936.     procedure SetDrawGutter3D(const Value: boolean);

    937. 

  937.     procedure SetShowRuler(const Value: boolean);

    938. 

  938.     procedure SetBytesPerUnit(const Value: integer);

    939. 

  939.     procedure SetRulerString;

    940. 

  940.     procedure CheckSelectUnit(var AStart, AEnd: Integer);

    941. 

  941.     procedure SetRulerBytesPerUnit(const Value: integer);

    942. 

  942.     procedure SetShowPositionIfNotFocused(const Value: Boolean);

    943. 

  943.     function GetDataAt(Index: integer): Byte;

    944. 

  944.     procedure SetDataAt(Index: integer; const Value: Byte);

    945. 

  945.     procedure SetUnicodeCharacters(const Value: Boolean);

    946. 

  946.     procedure SetUnicodeBigEndian(const Value: Boolean);

    947. 

  947.     function GetPositionAtCursor(const ACol, ARow: integer): integer;

    948. 

  948.     function GetIsCharFieldCol(const ACol: integer): Boolean;

    949. 

  949.     procedure SetDataSize(const Value: integer);

    950. 

  950.     procedure SetBlockSize(const Value: Integer);

    951. 

  951.     procedure SetSepCharBlocks(const Value: boolean);

    952. 

  952.     procedure SetFindProgress(const Value: boolean);

    953. 

  953.     procedure SetRulerNumberBase(const Value: byte);

    954. 

  954.     procedure SetMaskedChars(const Value: TSysCharSet);

    955. 

  955. {+}

    956. 

  956. {.$IFDEF BCB}

    957. 

  957.   protected

    958. 

  958.     // bcb seems to need overwritten abstract methods for dynamically created

    959. 

  959.     // controls (this method is never called in TMPHexEditor/Ex)

    960. 

  960.     procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;

    961. 

  961. {.$ENDIF}

    962. 

  962. {+.}

    963. 

  963.   protected

    964. 

  964.     // @exclude()

    965. 

  965.     FRulerString: string;

    966. 

  966.     // @exclude()

    967. 

  967.     FRulerCharString: string;

    968. 

  968. 

    969. 

  969.     // @exclude(used by TMPHexEditorEx for internal drag 'n' drop)

    970. 

  970.     FFixedFileSizeOverride: boolean;

    971. 

  971.     // @exclude(used by TMPHexEditorEx for internal undo changing)

    972. 

  972.     FModified: boolean;

    973. 

  973.     // @exclude(overwrite mouse wheel for zooming)

    974. 

  974.     function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): boolean;

    975. 

  975.       override;

    976. 

  976.     // @exclude(overwrite mouse wheel for zooming)

    977. 

  977.     function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): boolean;

    978. 

  978.       override;

    979. 

  979.     // @exclude(actually used bytes per unit)

    980. 

  980.     property UsedRulerBytesPerUnit: Integer read FUsedRulerBytesPerUnit;

    981. 

  981.     // @exclude(True: cells are currently to be selected)

    982. 

  982.     property IsSelecting: boolean read FIsSelecting;

    983. 

  983.     // @exclude(True: MouseUp resets selection)

    984. 

  984.     property MouseUpCanResetSel: boolean read FMouseUpCanResetSel write

    985. 

  985.       FMouseUpCanResetSel;

    986. 

  986.     // @exclude(memory stream which contains the undo/redo data)

    987. 

  987.     property UndoStorage: TMPHUndoStorage read FUndoStorage;

    988. 

  988.     // @exclude(stream that contains the data)

    989. 

  989.     property DataStorage: TMPHMemoryStream read FDataStorage;

    990. 

  990.     // @exclude(fire OnSelectionChange)

    991. 

  991.     procedure SelectionChanged; virtual;

    992. 

  992.     // @exclude(set a new selection)

    993. 

  993.     procedure NewSelection(SelFrom, SelTo: integer);

    994. 

  994.     // @exclude(get the current mouse position)

    995. 

  995.     function CheckMouseCoord(var X, Y: integer): TGridCoord;

    996. 

  996.     // @exclude(assure the value is a multiple of FBytesPerUnit)

    997. 

  997.     procedure CheckUnit(var AValue: Integer);

    998. 

  998.     // call changed on every undo creation for OnChange event

    999. 

  999.     procedure Changed; virtual;

    1000. 

  1000.     // returns the drop file position after a drag'n'drop operation

    1001. 

  1001.     function DropPosition: integer;

    1002. 

  1002.     // copy a stream to a second one and fire the OnProgress handler

    1003. 

  1003.     procedure Stream2Stream(strFrom, strTo: TStream; const Operation:

    1004. 

  1004.       TMPHProgressKind; const Count: integer = -1);

    1005. 

  1005.     (* allows descendants to take special action if contents are to be saved

    1006. 

  1006.      to the file from where the data was load *)

    1007. 

  1007.     procedure PrepareOverwriteDiskFile; virtual;

    1008. 

  1008.     // store the current Cursor and set it to crHourGlass (see also @link(OldCursor))

    1009. 

  1009.     procedure WaitCursor;

    1010. 

  1010.     // reset the Cursor to the previous value (see also @link(WaitCursor))

    1011. 

  1011.     procedure OldCursor;

    1012. 

  1012.     // @exclude(override paint)

    1013. 

  1013.     procedure Paint; override;

    1014. 

  1014.     // @exclude(view changed)

    1015. 

  1015.     procedure TopLeftChanged; override;

    1016. 

  1016.     // adjust cell widths/heigths depending on font, offset format, bytes per row/column...

    1017. 

  1017.     procedure AdjustMetrics;

    1018. 

  1018.     // get the size of the contained data

    1019. 

  1019.     function GetDataSize: integer;

    1020. 

  1020.     // @exclude(calculate the grid sizes)

    1021. 

  1021.     procedure CalcSizes;

    1022. 

  1022.     // @exclude(select one cell)

    1023. 

  1023.     function SelectCell(ACol, ARow: longint): boolean; override;

    1024. 

  1024.     // @exclude(get the data position depending on col and row)

    1025. 

  1025.     function GetPosAtCursor(const aCol, aRow: integer): integer;

    1026. 

  1026.     // @exclude(vice versa)

    1027. 

  1027.     function GetCursorAtPos(const aPos: integer; const aChars: boolean):

    1028. 

  1028.       TGridCoord;

    1029. 

  1029.     // @exclude(get the column of the other field (hex<->char))

    1030. 

  1030.     function GetOtherFieldCol(const aCol: integer): integer;

    1031. 

  1031.     // @exclude(get the column of the other field (hex<->char))

    1032. 

  1032.     function GetOtherFieldColCheck(const aCol: integer): integer;

    1033. 

  1033.     // @exclude(can the cell be selected ?)

    1034. 

  1034.     function CheckSelectCell(aCol, aRow: integer): boolean;

    1035. 

  1035.     // @exclude(char message handler)

    1036. 

  1036.     procedure WMChar(var Msg: TWMChar); message WM_CHAR;

    1037. 

  1037.     // @exclude(posted message to update the caret position)

    1038. 

  1038.     procedure CMINTUPDATECARET(var Msg: TMessage); message CM_INTUPDATECARET;

    1039. 

  1039.     // @exclude(posted message to fire an OnSelectionChanged event)

    1040. 

  1040.     procedure CMSelectionChanged(var Msg: TMessage); message

    1041. 

  1041.       CM_SELECTIONCHANGED;

    1042. 

  1042.     // @exclude(for shortcuts)

    1043. 

  1043.     procedure WMGetDlgCode(var Msg: TWMGetDlgCode); message WM_GETDLGCODE;

    1044. 

  1044.     // @exclude(readjust grid sizes after font has changed)

    1045. 

  1045.     procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;

    1046. 

  1046.     // @exclude(change a byte at the given position)

    1047. 

  1047.     procedure IntChangeByte(const aOldByte, aNewByte: byte;

    1048. 

  1048.       aPos, aCol, aRow: integer; const UndoDesc: string = '');

    1049. 

  1049.     // @exclude(change two bytes at the given position)

    1050. 

  1050.     procedure IntChangeWideChar(const aOldChar, aNewChar: WideChar; aPos, aCol,

    1051. 

  1051.       aRow: integer; const UndoDesc: string = '');

    1052. 

  1052.     // @exclude(keydown handler)

    1053. 

  1053.     procedure KeyDown(var Key: word; Shift: TShiftState); override;

    1054. 

  1054.     // @exclude(keyup handler)

    1055. 

  1055.     //procedure KeyUp(var Key: word; Shift: TShiftState); override;

    1056. 

  1056.     // @exclude(has this byte been modified ?)

    1057. 

  1057.     function HasChanged(aPos: integer): boolean;

    1058. 

  1058.     // @exclude(redraw some lines)

    1059. 

  1059.     procedure RedrawPos(aFrom, aTo: integer);

    1060. 

  1060.     // @exclude(make a selection)

    1061. 

  1061.     procedure Select(const aCurCol, aCurRow, aNewCol, aNewRow: integer);

    1062. 

  1062.     // @exclude(mouse down handler)

    1063. 

  1063.     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:

    1064. 

  1064.       integer); override;

    1065. 

  1065.     // @exclude(mouse move handler)

    1066. 

  1066.     procedure MouseMove(Shift: TShiftState; X, Y: integer); override;

    1067. 

  1067.     // @exclude(mouse up handler)

    1068. 

  1068.     procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: integer);

    1069. 

  1069.       override;

    1070. 

  1070.     // @exclude(is undo record creation possible?)

    1071. 

  1071.     function CanCreateUndo(const aKind: TMPHUndoFlag; const aCount, aReplCount:

    1072. 

  1072.       integer): Boolean; virtual;

    1073. 

  1073.     // @exclude(add an undo to the undo buffer)

    1074. 

  1074.     procedure CreateUndo(const aKind: TMPHUndoFlag; const aPos, aCount,

    1075. 

  1075.       aReplCount: integer; const sDesc: string = '');

    1076. 

  1076.     // @exclude(after loading)

    1077. 

  1077.     procedure Loaded; override;

    1078. 

  1078.     // @exclude(override CreateWnd)

    1079. 

  1079.     procedure CreateWnd; override;

    1080. 

  1080.     // @exclude(wm_setfocus handler)

    1081. 

  1081.     procedure WMSetFocus(var Msg: TWMSetFocus); message WM_SETFOCUS;

    1082. 

  1082.     // @exclude(wm_killfocus handler)

    1083. 

  1083.     procedure WMKillFocus(var Msg: TWMKillFocus); message WM_KILLFOCUS;

    1084. 

  1084.     // @exclude(wm_vscroll handler)

    1085. 

  1085.     procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL;

    1086. 

  1086.     // @exclude(wm_hscroll handler)

    1087. 

  1087.     procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL;

    1088. 

  1088.     // @exclude(resize the control)

    1089. 

  1089.     procedure Resize; override;

    1090. 

  1090.     // @exclude(store bitmap ? (its set to true, if a custom bitmap has been stored in BookmarkBitmap))

    1091. 

  1091.     function HasCustomBookmarkBitmap: boolean;

    1092. 

  1092.     // number of bytes to show in each row

    1093. 

  1093.     property BytesPerRow: integer read FBytesPerRow write SetBytesPerRow;

    1094. 

  1094.     // if set to True, the find* routines also fire OnProgress events (default is False)

    1095. 

  1095.     property FindProgress: boolean read FFindProgress write SetFindProgress

    1096. 

  1096.       default False;

    1097. 

  1097.     // number of bytes to show in each column

    1098. 

  1098.     property BytesPerColumn: integer read GetBytesPerColumn write

    1099. 

  1099.       SetBytesPerColumn default 2;

    1100. 

  1100.     (* translation kind of the data (used to show characters on and to handle key presses in the char pane),

    1101. 

  1101.        (see also @link(TMPHTranslationKind))

    1102. 

  1102.     *)

    1103. 

  1103.     property Translation: TMPHTranslationKind read FTranslation write

    1104. 

  1104.       SetTranslation;

    1105. 

  1105.     (* offset display ("line numbers") format, in the form<br>

    1106. 

  1106.        [r|c|&lt;HEXNUM&gt;%][-|&lt;HEXNUM&gt;!]&lt;HEXNUM&gt;:[Prefix]|[Suffix]<br>

    1107. 

  1107.        (&lt;HEXNUM&gt; means a number in hexadecimal format (without prefix/suffix))<br><br>

    1108. 

  1108.        - first field (up to the percent sign):<br>

    1109. 

  1109.        <ul>

    1110. 

  1110.        <li>sets the "bytes per unit field" of the offset display format</li>

    1111. 

  1111.        <li>if it's set to 1, each row offset displays the data position in bytes</li>

    1112. 

  1112.        <li>if it's set to 2, each row offset displays the data position in words</li>

    1113. 

  1113.        <li>if it's set to 4, each row offset displays the data position in dwords</li>

    1114. 

  1114.        <li>if it's set to "r", each row offset displays the current row number (1st row=0,

    1115. 

  1115.        see also @link(BytesPerRow))</li>

    1116. 

  1116.        <li>if it's set to "c", each row offset displays the current column number (1st column=0,

    1117. 

  1117.        see also @link(BytesPerColumn))</li>

    1118. 

  1118.        <li>if this field is omitted, bytes per unit is set to the value of the

    1119. 

  1119.        @link(RulerBytesPerUnit) property</li>

    1120. 

  1120.        </ul><br>

    1121. 

  1121.        - second field (up to the exclamation mark):<br>

    1122. 

  1122.        <ul>

    1123. 

  1123.        <li>sets the minimum width of the number part, if the number is shorter, it will be padded

    1124. 

  1124.        by '0' chars at the left</li>

    1125. 

  1125.        <li>if this field reads -!, the the minimum width is automatically set to the longest number

    1126. 

  1126.        that can appear in the editor (the data's size)</li>

    1127. 

  1127.        <li>if this field is omitted, the minimum width is set to 1</li>

    1128. 

  1128.        </ul><br>

    1129. 

  1129.        - third field (up to the colon):<br>

    1130. 

  1130.        <ul>

    1131. 

  1131.        <li>sets the radix (base) of the offset format in hex notation</li>

    1132. 

  1132.        <li>set this to '10' (without quotes) for hexadecimal offset display, set it to '08' for

    1133. 

  1133.        octal and to '0a' for decimal offset display</li>

    1134. 

  1134.        <li>this field cannot be omitted, but the whole format string my be blank to avoid the display of

    1135. 

  1135.        offset identifiers</li>

    1136. 

  1136.        </ul></br>

    1137. 

  1137.        - fourth field (up to the pipe ('|') char):<br>

    1138. 

  1138.        <ul>

    1139. 

  1139.        <li>the prefix that is put in front of the "number" string (e.g. '0x' or '$' to show that numbers are in hex format)

    1140. 

  1140.        </li><li>this field may be omitted (but not the pipe char!)</li>

    1141. 

  1141.        </ul><br>

    1142. 

  1142.        - fifth (and last) field:<br>

    1143. 

  1143.        <ul>

    1144. 

  1144.        <li>the suffix to put after the "number string" (e.g. 'h' to show hex numbers)</li>

    1145. 

  1145.        <li>this field may be omitted</…
    1146.