Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

[EO]Replace JPEG GUI with BMP


Golf
 Share

Recommended Posts

Well,

as I can see for me bmp pictures have better quality than jpeg ones.

This is just short tutorial in which I will explain you how to replace .jpg pictures with .bmp ones in frmMain and frmMenu GUI.

All we need to do is copy go to modGeneral and copy whole sub:

```
Public Sub loadGUI(Optional ByVal loadingScreen As Boolean = False)

```
Now open Eclipse Toolkit 3.0 - You can download it [here](http://www.eclipseorigins.com/index.php?/topic/136889-et-30-eclipse-toolkit-30/)

In Eclipse Toolkit open Source Editor and in Code paste copied sub:

Then in  Replace box paste this : 

```
.jpg

```
And in With box paste this:

```
.bmp

```
Now click replace button any copy code you got.

Replace loadGui sub in modGeneral with copied code from Eclipse Toolkit.

REMEMBER : You need to have  .bmp  images in gui folder (Main and Menu) also you need to have .bmp bars :)

THATS ALL!

If you are using EO 2.0 it should be like this (withouth any source adds)

```
Public Sub loadGUI(Optional ByVal loadingScreen As Boolean = False)
Dim i As Long

' if we can't find the interface
On Error GoTo errorhandler

' loading screen
If loadingScreen Then
frmLoad.Picture = LoadPicture(App.Path & "\data files\graphics\gui\menu\loading.bmp")
Exit Sub
End If

' menu
frmMenu.Picture = LoadPicture(App.Path & "\data files\graphics\gui\menu\background.bmp")
frmMenu.picMain.Picture = LoadPicture(App.Path & "\data files\graphics\gui\menu\main.bmp")
frmMenu.picLogin.Picture = LoadPicture(App.Path & "\data files\graphics\gui\menu\login.bmp")
frmMenu.picRegister.Picture = LoadPicture(App.Path & "\data files\graphics\gui\menu\register.bmp")
frmMenu.picCredits.Picture = LoadPicture(App.Path & "\data files\graphics\gui\menu\credits.bmp")
frmMenu.picCharacter.Picture = LoadPicture(App.Path & "\data files\graphics\gui\menu\character.bmp")
' main
frmMain.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\main.bmp")
frmMain.picInventory.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\inventory.bmp")
frmMain.picCharacter.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\character.bmp")
frmMain.picSpells.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\skills.bmp")
frmMain.picOptions.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\options.bmp")
frmMain.picParty.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\party.bmp")
frmMain.picItemDesc.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\description_item.bmp")
frmMain.picSpellDesc.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\description_spell.bmp")
frmMain.picTempInv.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\dragbox.bmp")
frmMain.picTempBank.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\dragbox.bmp")
frmMain.picTempSpell.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\dragbox.bmp")
frmMain.picShop.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\shop.bmp")
frmMain.picBank.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\bank.bmp")
frmMain.picTrade.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\trade.bmp")
frmMain.picHotbar.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\hotbar.bmp")
' main - bars
frmMain.imgHPBar.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\bars\health.bmp")
frmMain.imgMPBar.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\bars\spirit.bmp")
frmMain.imgEXPBar.Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\bars\experience.bmp")
' main - party bars
For i = 1 To MAX_PARTY_MEMBERS
frmMain.imgPartyHealth(i).Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\bars\party_health.bmp")
frmMain.imgPartySpirit(i).Picture = LoadPicture(App.Path & "\data files\graphics\gui\main\bars\party_spirit.bmp")
Next

' store the bar widths for calculations
HPBar_Width = frmMain.imgHPBar.width
SPRBar_Width = frmMain.imgMPBar.width
EXPBar_Width = frmMain.imgEXPBar.width
' party
Party_HPWidth = frmMain.imgPartyHealth(1).width
Party_SPRWidth = frmMain.imgPartySpirit(1).width

Exit Sub

' let them know we can't load the GUI
errorhandler:
MsgBox "Cannot find one or more interface images." & vbNewLine & "If they exist then you have not extracted the project properly." & vbNewLine & "Please follow the installation instructions fully.", vbCritical
DestroyGame
Exit Sub
End Sub

```
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...