I Hacked Resource Hacker For Easier .bmp replacing


Recommended Posts

I still prefer Resource Hacker to StyleBuilder But I hated the small window for searching for .bmp files, so I hacked into the file to make it easier to scroll through the bmp's.

For those who have used or still use Res Hack you will appreciate this.

I suppose I can post the script that I changed

Open Res Hack, then open Res Hack with itself.

Scroll to RCData then to TBMPFORM then to

Replace the script by Copying and pasting the following sript:

object BmpForm: TBmpForm

Left = 170

Top = 118

BorderStyle = bsSingle

Caption = 'Bitmap to replace...'

ClientHeight = 504

ClientWidth = 644

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'Arial'

Font.Style = []

Position = poScreenCenter

Scaled = False

OnDestroy = FormDestroy

PixelsPerInch = 96

TextHeight = 14

object Label2: TLabel

Left = 22

Top = 79

Width = 95

Height = 14

Caption = 'Select &new bitmap: '

FocusControl = ListBox1

end

object Label1: TLabel

Left = 234

Top = 192

Width = 121

Height = 14

Caption = 'Select bitmap to repl&ace: '

FocusControl = ListBox2

end

object Image1: TImage

Left = 232

Top = 15

Width = 170

Height = 170

Stretch = True

end

object Image2: TImage

Left = 20

Top = 164

Width = 170

Height = 170

Stretch = True

end

object Bevel1: TBevel

Left = 211

Top = 14

Width = 6

Height = 321

Shape = bsLeftLine

end

object Button1: TButton

Left = 20

Top = 14

Width = 173

Height = 23

Caption = '&Open file with new bitmap...'

TabOrder = 0

OnClick = Button1Click

end

object Edit1: TEdit

Left = 20

Top = 47

Width = 172

Height = 22

Color = 14737632

Enabled = False

ReadOnly = True

TabOrder = 1

end

object Button3: TButton

Left = 233

Top = 470

Width = 171

Height = 25

Cancel = True

Caption = '&Close'

ModalResult = 2

TabOrder = 4

end

object Button4: TButton

Left = 232

Top = 440

Width = 173

Height = 23

Caption = '&Replace'

Enabled = False

ModalResult = 1

TabOrder = 5

end

object ListBox1: TListBox

Left = 20

Top = 99

Width = 170

Height = 53

ItemHeight = 14

TabOrder = 2

OnClick = ListBox1Click

end

object ListBox2: TListBox

Left = 232

Top = 190

Width = 385

Height = 245

ItemHeight = 14

TabOrder = 3

OnClick = ListBox2Click

end

object OpenDialog1: TOpenDialog

Filter = 'Files with bitmaps(*.exe, *.res, *.bmp)| *.exe; *.res; *.bmp'

Options = [ofHideReadOnly, ofFileMustExist]

Left = 280

Top = 27

end

object ImageList1: TImageList

Left = 247

Top = 27

end

end

End Do not paste this!

Click on Compile Script (it won't look right untill you click "Compile")

Now Save as a new file name, Any thing will work I did ResHacker2.exe

I sent an e-mail to Angus Johnson, the creator of Resource Hacker. I told him how so many were using his programm to edit .msstyles He quickly replied back with a "Thumbs up". His actual words were,

"Thanks for your suggetion, I can see how that would be an improvement.

Angus "

So the next version may include this improvement :)

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.