Ok .. Sorted some of the code out and rebuilt the Zip...
Wof .. Try this one out ..
Gremmy....
---- EDIT ----
Newer file in later post.. (306 Downloads)
Printable View
Ok .. Sorted some of the code out and rebuilt the Zip...
Wof .. Try this one out ..
Gremmy....
---- EDIT ----
Newer file in later post.. (306 Downloads)
Phantastatic, man. I love it. :D
Well this was such a succesfull project (306 downloads say's it all..) and there were a few little bugs in it that were nagging at me for some time, i decided to make a day (or rather a night) of Hex Editor Bugging...
* - Popup 'Fill With' on the text now works correctly..
* - When paging the pos display updates correctly..
* - Added all the Logics posible to the 'Logics Edit' Popup..
* - A few other minors corrected..
I'm acctually finding the hex editor a handy tool to work on just about any file you can think of.. Most raw data file types have the Hex editor now linked as Primary open application , and many others have Hex Editor listed under 'Open with'...
And it looks like others are finding it as useful as i am..
I hope you enjoy this latest update...
Gremmy...
---EDIT---
6 Downloads..
Nice. Finally replaces a clunky old one that I used...
Yes. I like it very much, too. Such a good big display. Gives a great overview. Very well done.
As a point for a wishlist, if I may:
Quick navigation with keys could do with
Ctrl-Home: goto Top of File
Ctrl-End: goto End of File
Maybe I can put that in myself. Your code is very comprehensive. :)
Just a little note on Ctrl-Home & Ctrl-End. .. these two key comdinations do work if focus is on the side scroller bar (built into the control), but to add function to the hex and/or text windows is only a few lines of code..)Quote:
Originally Posted by WoF
Add these two subs to 'Frm_Hex_edit'and in HexD_KeyDown add a few lines to this sectionsCode:Private Sub Home_Block()
If File_Change Then Write_Data File_Pos
File_Pos = 0
Read_Data File_Pos
End Sub
Private Sub End_Block()
If File_Change Then Write_Data File_Pos
File_Pos = IIf(File_Len > (Tot_Count / 2), (File_Len - (Tot_Count / 2)), 0)
Read_Data File_Pos
End Sub
And the same changes in Hex_Val_Keydown...Code:If KeyCode = vbKeyHome Then ' Move to the first box
If Shift And vbCtrlMask Then
Home_Block
End If
HexD.SetFocus
HexD.SelStart = 0
HexD.SelLength = 1
KeyCode = 0
End If
If KeyCode = vbKeyEnd Then ' Move to the last box
If Shift And vbCtrlMask Then
End_Block
End If
HexD.SetFocus
HexD.SelStart = Set_H_Actual(Tot_Count - 1, Mnu_Opt_Wide.Checked)
HexD.SelLength = 1
KeyCode = 0
End If
Thanks for the sugestion... and as you can see I've added them already.. ( Also updated the Zip with these changes)
Gremmy...
Thanks GremlinSA
That's a wicked program. I am writing some sw for the partially-sighted (like myself) and I would like your permission to include your program as part of my project. I will of course credit you with your work and provide a link to your code here. My project will be given to the Sight Concern charity under the GPL licence - which will allow the chariity to give copies of my project to their clients.
Thanks in advance,
Allan