The Hammer

# Color themes

The Hammer comes with the following default color themes:

* White

* Black

* Blue

* Lime

* Sahara

* Serene

In order to select a different theme you go in the menu to: File -> Hammer Options -> Editor tab page -> Colorer

You can select from the predefined color schemes via the Color Scheme name comboform

It is also possible to create your own theme and save it under your own name. For this use the "New" button.

## Adding a custom theme as a new default

If you created your own theme and you like it a lot then we would love to add it as another default theme to the list.

Below are the steps needed to do so yourself.

When you create a theme or customize it, the details for that theme are saved in the Hammer configuration file which can be found under the Hammer\Data folder.

The filename is CODEMAXEDIT<username>.ini where username is your windows login name. 

If your windows login is "John" then the filename will be CODEMAXEDITJohn.ini

Open that file and search for a line that starts with "PSCOLOR,"

Copy that line.

Now in the Hammer source files look for a file Hammer\Pkg\THColorer.h and search for the following line:

~~~

Define TH_DEFSCHEMA_SAHARA_STR  for "Default (Sahara)"

~~~

You can add your own code name for the new theme there, in a new line underneath, let's call our new theme "DEMO", so that it looks like this:

~~~

Define TH_DEFSCHEMA_SAHARA_STR  for "Default (Sahara)"

Define TH_DEFSCHEMA_DEMO_STR  for "Default (Demo)"

~~~

Then look for the actual theme data a few lines down:

~~~

Define TH_COLORSCHEMA_SAHARA    for "255255187000220225240000255255255255255255187000000000000000255255187000255000255000255255187000000000255000255255187000255000000000255255187000000000255000255255187000000128000000255255187000255000128000255255187000000128128000255255187000255000000000255255187000000000255000255255187000128000000000255255187000105105105000190200225000255255255255192192192000220225240000128128128000255215215000000000000000200225255000255255000000255035035000000128128000255255187000170195240000215107000000255255187000000,000000000000000000000000000000000000000000000001000000"

~~~

and copy the line of data from your config file in there like so:

~~~

Define TH_COLORSCHEMA_SAHARA    for "255255187000220225240000255255255255255255187000000000000000255255187000255000255000255255187000000000255000255255187000255000000000255255187000000000255000255255187000000128000000255255187000255000128000255255187000000128128000255255187000255000000000255255187000000000255000255255187000128000000000255255187000105105105000190200225000255255255255192192192000220225240000128128128000255215215000000000000000200225255000255255000000255035035000000128128000255255187000170195240000215107000000255255187000000,000000000000000000000000000000000000000000000001000000"

Define TH_COLORSCHEMA_DEMO      for "025025025000120120120000255255255255255255255255255255255000025025025000255185255000025025025000140215240000025025025000255108108000025025025000140215240000025025025000187255187000025025025000192192192000025025025000000128128000255255255255255000000000255255255255000000255000255255255255128000000000255255255255192192192000080080080000255255255255192192192000105105105000090090090000255215215000000000000000200225255000255255000000255000000000202255255000025025025000000000170000255190120000025025025000000"

~~~

That's the first step, next is adding this new theme to the UI.

For that go to file Hammer\AppSrc\Tools\THParameters.dg

In Object oSchemaSelect, procedure Combo_Fill_List

Under line:

~~~

  Send Combo_Add_Item TH_DEFSCHEMA_SAHARA_STR

~~~

add the new theme:

~~~

  Send Combo_Add_Item TH_DEFSCHEMA_SAHARA_STR

  Send Combo_Add_Item TH_DEFSCHEMA_DEMO_STR

~~~

also Object oSchemaSelect, procedure OnChange

Under line:

~~~

  Else If (sName=TH_DEFSCHEMA_SAHARA_STR) Move TH_COLORSCHEMA_SAHARA   To sSchema

~~~

add your new theme

~~~

  Else If (sName=TH_DEFSCHEMA_SAHARA_STR) Move TH_COLORSCHEMA_SAHARA   To sSchema

  Else If (sName=TH_DEFSCHEMA_DEMO_STR) Move TH_COLORSCHEMA_DEMO   To sSchema

~~~

same method, but a few lines down:

~~~

                                    Move (not((sName=TH_DEFSCHEMA_BLACK_STR) or ;

                                              (sName=TH_DEFSCHEMA_WHITE_STR) or ;

                                              (sName=TH_DEFSCHEMA_BLUE_STR)  or ;

                                              (sName=TH_DEFSCHEMA_SERENE_STR) or ;

                                              (sName=TH_DEFSCHEMA_SAHARA_STR) or ;

                                              (sName=TH_DEFSCHEMA_LIME_STR))) ;

                                                                        to iDisableManageButtons

~~~

change into:

~~~

                                    Move (not((sName=TH_DEFSCHEMA_BLACK_STR) or ;

                                              (sName=TH_DEFSCHEMA_WHITE_STR) or ;

                                              (sName=TH_DEFSCHEMA_BLUE_STR)  or ;

                                              (sName=TH_DEFSCHEMA_SERENE_STR) or ;

                                              (sName=TH_DEFSCHEMA_SAHARA_STR) or ;

                                              (sName=TH_DEFSCHEMA_DEMO_STR) or ;

                                              (sName=TH_DEFSCHEMA_LIME_STR))) ;

                                                                        to iDisableManageButtons

~~~

Then in oSchemaDelete,  procedure onClick

~~~

 If (sName=TH_DEFSCHEMA_BLACK_STR or sName=TH_DEFSCHEMA_WHITE_STR or sName=TH_DEFSCHEMA_BLUE_STR or sName=TH_DEFSCHEMA_LIME_STR or sName=TH_DEFSCHEMA_SERENE_STR or sName=TH_DEFSCHEMA_SAHARA_STR) Begin

~~~

add your theme:

~~~

 If (sName=TH_DEFSCHEMA_BLACK_STR or sName=TH_DEFSCHEMA_WHITE_STR or sName=TH_DEFSCHEMA_BLUE_STR or sName=TH_DEFSCHEMA_LIME_STR or sName=TH_DEFSCHEMA_SERENE_STR or sName=TH_DEFSCHEMA_SAHARA_STR or sName=TH_DEFSCHEMA_DEMO_STR) Begin

~~~

Next in oSchemaDefault button, procedure onClick

add under line:

~~~

  Else If (sName=TH_DEFSCHEMA_SAHARA_STR) Move TH_COLORSCHEMA_SAHARA To sColors

~~~

your own colors:

~~~

  Else If (sName=TH_DEFSCHEMA_SAHARA_STR) Move TH_COLORSCHEMA_SAHARA To sColors

  Else If (sName=TH_DEFSCHEMA_DEMO_STR) Move TH_COLORSCHEMA_DEMO To sColors

~~~

And finally in Procedure SaveEntries:

locate this part:

~~~

  If ((sSchemaName<>TH_DEFSCHEMA_BLACK_STR) and ;

    (sSchemaName<>TH_DEFSCHEMA_WHITE_STR) and ;

    (sSchemaName<>TH_DEFSCHEMA_BLUE_STR)  and ;

    (sSchemaName<>TH_DEFSCHEMA_SERENE_STR) and ;

    (sSchemaName<>TH_DEFSCHEMA_SAHARA_STR) and ;

    (sSchemaName<>TH_DEFSCHEMA_LIME_STR)) Begin

~~~

and add your own:

~~~

  If ((sSchemaName<>TH_DEFSCHEMA_BLACK_STR) and ;

    (sSchemaName<>TH_DEFSCHEMA_WHITE_STR) and ;

    (sSchemaName<>TH_DEFSCHEMA_BLUE_STR)  and ;

    (sSchemaName<>TH_DEFSCHEMA_SERENE_STR) and ;

    (sSchemaName<>TH_DEFSCHEMA_SAHARA_STR) and ;

    (sSchemaName<>TH_DEFSCHEMA_DEMO_STR) and ;

    (sSchemaName<>TH_DEFSCHEMA_LIME_STR)) Begin

~~~

Congratulations!

If you now close the Hammer and recompile your new color theme should show up and you can select it as a default theme.