src/industry_gui.cpp
author belugas
Wed, 18 Jul 2007 15:59:08 +0000
changeset 7774 4fe72e9c0daa
parent 7767 7d8033aa8248
child 7775 982e208b42c3
permissions -rw-r--r--
(svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
-Codechange: give enum values to widgets
2186
461a2aff3486 (svn r2701) Insert Id tags into all source files
tron
parents: 2163
diff changeset
     1
/* $Id$ */
461a2aff3486 (svn r2701) Insert Id tags into all source files
tron
parents: 2163
diff changeset
     2
6527
f584ab6d87f8 (svn r8987) -Cleanup: doxygen changes. Again. Mostly (still) @files missing tags and (more than just) a few comments style.
belugas
parents: 6526
diff changeset
     3
/** @file industry_gui.cpp */
f584ab6d87f8 (svn r8987) -Cleanup: doxygen changes. Again. Mostly (still) @files missing tags and (more than just) a few comments style.
belugas
parents: 6526
diff changeset
     4
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
     5
#include "stdafx.h"
1891
92a3b0aa0946 (svn r2397) - CodeChange: rename all "ttd" files to "openttd" files.
Darkvater
parents: 1786
diff changeset
     6
#include "openttd.h"
1299
0a6510cc889b (svn r1803) Move debugging stuff into files of it's own
tron
parents: 1287
diff changeset
     7
#include "debug.h"
2163
637ec3c361f5 (svn r2673) Include functions.h directly, not globally via openttd.h
tron
parents: 2159
diff changeset
     8
#include "functions.h"
1309
dab90d4cbf2d (svn r1813) Declare functions implemented in strings.c in their own shiny new header (though i think some of these function don't belong into strings.c)
tron
parents: 1299
diff changeset
     9
#include "strings.h"
507
8aa8100b0b22 (svn r815) Include strings.h only in the files which need it.
tron
parents: 222
diff changeset
    10
#include "table/strings.h"
1914
5ede46fd496f (svn r2420) - Codechange: magic number elminitation of cursorsprites.
Darkvater
parents: 1891
diff changeset
    11
#include "table/sprites.h"
679
e959706a3e4d (svn r1117) Move map arrays and some related macros into their own files map.c and map.h
tron
parents: 534
diff changeset
    12
#include "map.h"
1386
aa5a172a8431 (svn r1890) Begin to clean up the edit box: Remove one global variable and split the combined edit/original buffer into two
tron
parents: 1309
diff changeset
    13
#include "gui.h"
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    14
#include "window.h"
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    15
#include "gfx.h"
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    16
#include "command.h"
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    17
#include "viewport.h"
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    18
#include "industry.h"
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    19
#include "town.h"
2159
3b634157c3b2 (svn r2669) Shuffle some more stuff around to reduce dependencies
tron
parents: 2084
diff changeset
    20
#include "variables.h"
5838
9c3129cb019b (svn r8038) -Merge: the cpp branch. Effort of KUDr, Celestar, glx, Smoovius, stillunknown and pv2b.
rubidium
parents: 5835
diff changeset
    21
#include "helpers.hpp"
6417
26acff62d001 (svn r8826) -Codechange: Replace _cargoc's separate arrays with a regular struct array (with accessor) and implement new initialization method using cargo labels.
peter1138
parents: 6144
diff changeset
    22
#include "cargotype.h"
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
    23
#include "newgrf.h"
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
    24
#include "newgrf_callbacks.h"
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
    25
#include "newgrf_industries.h"
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
    26
#include "newgrf_text.h"
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    27
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    28
extern Industry *CreateNewIndustry(TileIndex tile, IndustryType type);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    29
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    30
/**
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    31
 * Search callback function for TryBuildIndustry
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    32
 * @param tile to test
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    33
 * @param data that is passed by the caller.  In this case, the type of industry been tested
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    34
 * @return the success (or not) of the operation
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    35
 */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    36
static bool SearchTileForIndustry(TileIndex tile, uint32 data)
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    37
{
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    38
	return CreateNewIndustry(tile, data) != NULL;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    39
}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    40
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    41
/**
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    42
 * Perform a 9*9 tiles circular search around a tile
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    43
 * in order to find a suitable zone to create the desired industry
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    44
 * @param tile to start search for
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    45
 * @param type of the desired industry
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    46
 * @return the success (or not) of the operation
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    47
 */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    48
static bool TryBuildIndustry(TileIndex tile, int type)
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    49
{
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    50
	return CircularTileSearch(tile, 9, SearchTileForIndustry, type);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    51
}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    52
bool _ignore_restrictions;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    53
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    54
enum {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    55
	DYNA_INDU_MATRIX_WIDGET = 2,
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    56
	DYNA_INDU_INFOPANEL = 4,
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    57
	DYNA_INDU_FUND_WIDGET,
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    58
	DYNA_INDU_RESIZE_WIDGET,
4995
e6152c0dc612 (svn r7001) -Codechange: _build_industry_trypes is now only used by industry_gui.c. Move it there.
belugas
parents: 4939
diff changeset
    59
};
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    60
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    61
static struct IndustryData {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    62
	uint16 count;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    63
	IndustryType select;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    64
	byte index[NUM_INDUSTRYTYPES + 1];
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    65
	StringID additional_text[NUM_INDUSTRYTYPES + 1];
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    66
} _industrydata;
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
    67
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    68
static void BuildDynamicIndustryWndProc(Window *w, WindowEvent *e)
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    69
{
2951
2db3adee7736 (svn r3510) Fiddle with whitespace and parentheses
tron
parents: 2866
diff changeset
    70
	switch (e->event) {
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    71
		case WE_CREATE: {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    72
			IndustryType ind;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    73
			const IndustrySpec *indsp;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    74
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    75
			/* Shorten the window to the equivalant of the additionnal purchase
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    76
			 * info coming from the callback.  SO it will only be available to tis full
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    77
			 * height when newindistries are loaded */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    78
			if (!_loaded_newgrf_features.has_newindustries) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    79
				w->widget[DYNA_INDU_INFOPANEL].bottom -= 44;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    80
				w->widget[DYNA_INDU_FUND_WIDGET].bottom -= 44;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    81
				w->widget[DYNA_INDU_FUND_WIDGET].top -= 44;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    82
				w->widget[DYNA_INDU_RESIZE_WIDGET].bottom -= 44;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    83
				w->widget[DYNA_INDU_RESIZE_WIDGET].top -= 44;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    84
				w->resize.height = w->height -= 44;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    85
			}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    86
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    87
			/* Initilialize structures */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    88
			memset(&_industrydata.index, 0xFF, NUM_INDUSTRYTYPES);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    89
			memset(&_industrydata.additional_text, STR_NULL, NUM_INDUSTRYTYPES);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    90
			_industrydata.count = 0;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    91
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    92
			/* first indutry type is selected.
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    93
			 * I'll be damned if there are none available ;) */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    94
			_industrydata.select = 0;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    95
			w->vscroll.cap = 8; // rows in grid, same in scroller
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    96
			w->resize.step_height = 13;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    97
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    98
			if (_game_mode == GM_EDITOR) { // give room for the Many Random "button"
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    99
				_industrydata.index[_industrydata.count] = INVALID_INDUSTRYTYPE;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   100
				_industrydata.count++;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   101
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   102
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   103
			/* We'll perform two distinct loops, one for secondary industries, and the other one for
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   104
			 * primary ones. Each loop will fill the _industrydata structure. */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   105
			for (ind = IT_COAL_MINE; ind < NUM_INDUSTRYTYPES; ind++) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   106
				indsp = GetIndustrySpec(ind);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   107
				if (indsp->enabled && (!indsp->IsRawIndustry() || _game_mode == GM_EDITOR)) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   108
					_industrydata.index[_industrydata.count] = ind;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   109
					_industrydata.count++;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   110
				}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   111
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   112
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   113
			if (_patches.raw_industry_construction != 0 && _game_mode != GM_EDITOR) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   114
				for (ind = IT_COAL_MINE; ind < NUM_INDUSTRYTYPES; ind++) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   115
					indsp = GetIndustrySpec(ind);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   116
					if (indsp->enabled && indsp->IsRawIndustry()) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   117
						_industrydata.index[_industrydata.count] = ind;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   118
						_industrydata.count++;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   119
					}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   120
				}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   121
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   122
		} break;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   123
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   124
		case WE_PAINT: {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   125
			const IndustrySpec *indsp = (_industrydata.index[_industrydata.select] == INVALID_INDUSTRYTYPE) ? NULL : GetIndustrySpec(_industrydata.index[_industrydata.select]);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   126
			StringID str = STR_4827_REQUIRES;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   127
			int x_str = w->widget[DYNA_INDU_INFOPANEL].left + 3;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   128
			int y_str = w->widget[DYNA_INDU_INFOPANEL].top + 3;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   129
			const Widget *wi = &w->widget[DYNA_INDU_INFOPANEL];
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   130
			int max_width = wi->right - wi->left - 4;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   131
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   132
			/* Raw industries might be prospected. Show this fact by changing the string */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   133
			if (_game_mode == GM_EDITOR) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   134
				w->widget[DYNA_INDU_FUND_WIDGET].data = STR_BUILD_NEW_INDUSTRY;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   135
			} else {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   136
				w->widget[DYNA_INDU_FUND_WIDGET].data = (_patches.raw_industry_construction == 2 && indsp->IsRawIndustry()) ? STR_PROSPECT_NEW_INDUSTRY : STR_FUND_NEW_INDUSTRY;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   137
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   138
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   139
			SetVScrollCount(w, _industrydata.count);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   140
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   141
			DrawWindowWidgets(w);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   142
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   143
			/* and now with the matrix painting */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   144
			for (byte i = 0; i < w->vscroll.cap && ((i + w->vscroll.pos) < _industrydata.count); i++) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   145
				int offset = i * 13;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   146
				int x = 3;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   147
				int y = 16;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   148
				bool selected = _industrydata.select == i + w->vscroll.pos;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   149
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   150
				if (_industrydata.index[i + w->vscroll.pos] == INVALID_INDUSTRYTYPE) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   151
					DrawString(21, y + offset, STR_MANY_RANDOM_INDUSTRIES, selected ? 12 : 6);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   152
					continue;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   153
				}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   154
				const IndustrySpec *indsp = GetIndustrySpec(_industrydata.index[i + w->vscroll.pos]);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   155
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   156
				/* Draw the name of the industry in white is selected, otherwise, in orange */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   157
				DrawString(20,     y + offset, indsp->name, selected ? 12 : 6);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   158
				GfxFillRect(x,     y + 1 + offset,  x + 10, y + 7 + offset, selected ? 15 : 0);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   159
				GfxFillRect(x + 1, y + 2 + offset,  x +  9, y + 6 + offset, indsp->map_colour);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   160
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   161
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   162
			if (_industrydata.index[_industrydata.select] == INVALID_INDUSTRYTYPE) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   163
				DrawStringMultiLine(x_str, y_str, STR_RANDOM_INDUSTRIES_TIP, max_width, wi->bottom - wi->top - 40);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   164
				break;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   165
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   166
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   167
			if (_game_mode != GM_EDITOR) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   168
				SetDParam(0, indsp->GetConstructionCost());
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   169
				DrawStringTruncated(x_str, y_str, STR_482F_COST, 0, max_width);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   170
				y_str += 11;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   171
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   172
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   173
			/* Draw the accepted cargos, if any. Otherwhise, will print "Nothing" */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   174
			if (indsp->accepts_cargo[0] != CT_INVALID) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   175
				SetDParam(0, GetCargo(indsp->accepts_cargo[0])->name);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   176
				if (indsp->accepts_cargo[1] != CT_INVALID) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   177
					SetDParam(1, GetCargo(indsp->accepts_cargo[1])->name);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   178
					str = STR_4828_REQUIRES;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   179
					if (indsp->accepts_cargo[2] != CT_INVALID) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   180
						SetDParam(2, GetCargo(indsp->accepts_cargo[2])->name);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   181
						str = STR_4829_REQUIRES;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   182
					}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   183
				}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   184
			} else {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   185
				SetDParam(0, STR_00D0_NOTHING);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   186
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   187
			DrawStringTruncated(x_str, y_str, str, 0, max_width);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   188
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   189
			y_str += 11;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   190
			/* Draw the produced cargos, if any. Otherwhise, will print "Nothing" */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   191
			str = STR_4827_PRODUCES;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   192
			if (indsp->produced_cargo[0] != CT_INVALID) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   193
				SetDParam(0, GetCargo(indsp->produced_cargo[0])->name);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   194
				if (indsp->produced_cargo[1] != CT_INVALID) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   195
					SetDParam(1, GetCargo(indsp->produced_cargo[1])->name);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   196
					str = STR_4828_PRODUCES;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   197
				}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   198
			} else {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   199
				SetDParam(0, STR_00D0_NOTHING);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   200
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   201
			DrawStringTruncated(x_str, y_str, str, 0, max_width);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   202
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   203
			/* Get the additional purchase info text, if it has not already been */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   204
			if (_industrydata.additional_text[_industrydata.select] == STR_NULL) {   // Have i been called already?
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   205
				if (HASBIT(indsp->callback_flags, CBM_IND_FUND_MORE_TEXT)) {          // No. Can it be called?
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   206
					uint16 callback_res = GetIndustryCallback(CBID_INDUSTRY_FUND_MORE_TEXT, 0, 0, NULL, _industrydata.index[_industrydata.select], INVALID_TILE);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   207
					if (callback_res != CALLBACK_FAILED) {  // Did it failed?
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   208
						StringID newtxt = GetGRFStringID(indsp->grf_prop.grffile->grfid, 0xD000 + callback_res);  // No. here's the new string
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   209
						_industrydata.additional_text[_industrydata.select] = newtxt;   // Store it for further usage
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   210
					}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   211
				}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   212
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   213
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   214
			y_str += 11;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   215
			/* Draw the Additional purchase text, provided by newgrf callback, if any.
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   216
			 * Otherwhise, will print Nothing */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   217
			if (_industrydata.additional_text[_industrydata.select] != STR_NULL &&
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   218
					_industrydata.additional_text[_industrydata.select] != STR_UNDEFINED) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   219
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   220
				SetDParam(0, _industrydata.additional_text[_industrydata.select]);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   221
				DrawStringMultiLine(x_str, y_str, STR_JUST_STRING, max_width, wi->bottom - wi->top - 40);  // text is white, for now
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   222
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   223
		} break;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   224
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   225
		case WE_CLICK:
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   226
			switch (e->we.click.widget) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   227
				case DYNA_INDU_MATRIX_WIDGET: {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   228
					IndustryType type;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   229
					int y = (e->we.click.pt.y - w->widget[DYNA_INDU_MATRIX_WIDGET].top) / 13 + w->vscroll.pos ;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   230
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   231
					if (y >= 0 && y < _industrydata.count) { //Isit within the boundaries of available data?
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   232
						_industrydata.select = y;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   233
						type = _industrydata.index[_industrydata.select];
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   234
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   235
						SetWindowDirty(w);
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   236
						if ((_game_mode != GM_EDITOR && _patches.raw_industry_construction == 2 && GetIndustrySpec(type)->IsRawIndustry()) ||
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   237
								type == INVALID_INDUSTRYTYPE) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   238
							/* Reset the button state if going to prospecting or "build many industries" */
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   239
							RaiseWindowButtons(w);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   240
							ResetObjectToPlace();
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   241
						}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   242
					}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   243
				} break;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   244
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   245
				case DYNA_INDU_FUND_WIDGET: {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   246
					IndustryType type = _industrydata.index[_industrydata.select];
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   247
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   248
					if (type == INVALID_INDUSTRYTYPE) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   249
						HandleButtonClick(w, DYNA_INDU_FUND_WIDGET);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   250
						WP(w, def_d).data_1 = -1;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   251
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   252
						if (GetNumTowns() == 0) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   253
							ShowErrorMessage(STR_0286_MUST_BUILD_TOWN_FIRST, STR_CAN_T_GENERATE_INDUSTRIES, 0, 0);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   254
						} else {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   255
							extern void GenerateIndustries();
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   256
							_generating_world = true;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   257
							GenerateIndustries();
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   258
							_generating_world = false;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   259
						}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   260
					} else if (_game_mode != GM_EDITOR && _patches.raw_industry_construction == 2 && GetIndustrySpec(type)->IsRawIndustry()) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   261
						DoCommandP(0, type, 0, NULL, CMD_BUILD_INDUSTRY | CMD_MSG(STR_4830_CAN_T_CONSTRUCT_THIS_INDUSTRY));
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   262
						HandleButtonClick(w, DYNA_INDU_FUND_WIDGET);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   263
						WP(w, def_d).data_1 = -1;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   264
					} else if (HandlePlacePushButton(w, DYNA_INDU_FUND_WIDGET, SPR_CURSOR_INDUSTRY, 1, NULL)) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   265
							WP(w, def_d).data_1 = _industrydata.select;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   266
					}
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   267
				} break;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   268
			}
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   269
			break;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   270
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   271
		case WE_RESIZE: {
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   272
			w->vscroll.cap  += e->we.sizing.diff.y / (int)w->resize.step_height;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   273
			w->widget[DYNA_INDU_MATRIX_WIDGET].data = (w->vscroll.cap << 8) + 1;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   274
		} break;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   275
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   276
		case WE_PLACE_OBJ: {
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   277
			IndustryType type = _industrydata.index[_industrydata.select];
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   278
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   279
			if (WP(w, def_d).data_1 == -1) break;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   280
			if (_game_mode == GM_EDITOR) {
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   281
				/* Show error if no town exists at all */
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   282
				if (GetNumTowns() == 0) {
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   283
					SetDParam(0, GetIndustrySpec(type)->name);
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   284
					ShowErrorMessage(STR_0286_MUST_BUILD_TOWN_FIRST, STR_0285_CAN_T_BUILD_HERE, e->we.place.pt.x, e->we.place.pt.y);
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   285
					return;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   286
				}
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   287
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   288
				_current_player = OWNER_NONE;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   289
				_generating_world = true;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   290
				_ignore_restrictions = true;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   291
				if (!TryBuildIndustry(e->we.place.tile, type)) {
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   292
					SetDParam(0, GetIndustrySpec(type)->name);
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   293
					ShowErrorMessage(_error_message, STR_0285_CAN_T_BUILD_HERE, e->we.place.pt.x, e->we.place.pt.y);
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   294
				} else {
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   295
					ResetObjectToPlace();
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   296
				}
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   297
				_ignore_restrictions = false;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   298
				_generating_world = false;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   299
			} else if (DoCommandP(e->we.place.tile, type, 0, NULL, CMD_BUILD_INDUSTRY | CMD_MSG(STR_4830_CAN_T_CONSTRUCT_THIS_INDUSTRY))) {
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   300
				ResetObjectToPlace();
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   301
			}
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   302
		} break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   303
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   304
		case WE_ABORT_PLACE_OBJ:
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   305
			RaiseWindowButtons(w);
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   306
			break;
193
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   307
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   308
		case WE_TIMEOUT:
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   309
			if (WP(w, def_d).data_1 == -1) {
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   310
				RaiseWindowButtons(w);
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   311
				WP(w, def_d).data_1 = 0;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   312
			}
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   313
			break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   314
	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   315
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   316
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   317
static const Widget _build_dynamic_industry_widgets[] = {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   318
{   WWT_CLOSEBOX,    RESIZE_NONE,    7,     0,    10,     0,    13, STR_00C5,                       STR_018B_CLOSE_WINDOW},
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   319
{    WWT_CAPTION,   RESIZE_RIGHT,    7,    11,   169,     0,    13, STR_0314_FUND_NEW_INDUSTRY,     STR_018C_WINDOW_TITLE_DRAG_THIS},
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   320
{     WWT_MATRIX,      RESIZE_RB,    7,     0,   157,    14,   118, 0x801,                          STR_INDUSTRY_SELECTION_HINT},
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   321
{  WWT_SCROLLBAR,     RESIZE_LRB,    7,   158,   169,    14,   118, 0x0,                            STR_0190_SCROLL_BAR_SCROLLS_LIST},
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   322
{      WWT_PANEL,     RESIZE_RTB,    7,     0,   169,   119,   199, 0x0,                            STR_NULL},
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   323
{    WWT_TEXTBTN,     RESIZE_RTB,    7,     0,   157,   200,   211, STR_FUND_NEW_INDUSTRY,          STR_NULL},
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   324
{  WWT_RESIZEBOX,    RESIZE_LRTB,    7,   158,   169,   200,   211, 0x0,                            STR_RESIZE_BUTTON},
176
84990c4b9212 (svn r177) -Fix: padded out Widget code to solve warnings on C99 compiler (Tron)
darkvater
parents: 164
diff changeset
   325
{   WIDGETS_END},
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   326
};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   327
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   328
static const WindowDesc _build_industry_dynamic_desc = {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   329
	WDP_AUTO, WDP_AUTO, 170, 212,
6144
5a0ffbf27ced (svn r8511) -Codechange: make WindowClass an enumerated value.
rubidium
parents: 5860
diff changeset
   330
	WC_BUILD_INDUSTRY, WC_NONE,
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   331
	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_RESIZABLE,
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   332
	_build_dynamic_industry_widgets,
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   333
	BuildDynamicIndustryWndProc,
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   334
};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   335
6573
7624f942237f (svn r9050) -Codechange: Foo(void) -> Foo()
rubidium
parents: 6527
diff changeset
   336
void ShowBuildIndustryWindow()
193
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   337
{
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   338
	if (_game_mode != GM_EDITOR && !IsValidPlayer(_current_player)) return;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   339
	AllocateWindowDescFront(&_build_industry_dynamic_desc, 0);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   340
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   341
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   342
static void UpdateIndustryProduction(Industry *i);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   343
4211
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   344
static inline bool isProductionMinimum(const Industry *i, int pt) {
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   345
	return i->production_rate[pt] == 1;
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   346
}
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   347
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   348
static inline bool isProductionMaximum(const Industry *i, int pt) {
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   349
	return i->production_rate[pt] == 255;
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   350
}
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   351
4194
18a32dace8ba (svn r5654) -Cleanup: Change an ugly define into a function
Darkvater
parents: 4193
diff changeset
   352
static inline bool IsProductionAlterable(const Industry *i)
18a32dace8ba (svn r5654) -Cleanup: Change an ugly define into a function
Darkvater
parents: 4193
diff changeset
   353
{
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   354
	const IndustrySpec *ind = GetIndustrySpec(i->type);
4194
18a32dace8ba (svn r5654) -Cleanup: Change an ugly define into a function
Darkvater
parents: 4193
diff changeset
   355
	return ((_game_mode == GM_EDITOR || _cheats.setup_prod.value) &&
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   356
			(ind->accepts_cargo[0] == CT_INVALID || ind->accepts_cargo[0] == CT_VALUABLES));
4194
18a32dace8ba (svn r5654) -Cleanup: Change an ugly define into a function
Darkvater
parents: 4193
diff changeset
   357
}
18a32dace8ba (svn r5654) -Cleanup: Change an ugly define into a function
Darkvater
parents: 4193
diff changeset
   358
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   359
static void IndustryViewWndProc(Window *w, WindowEvent *e)
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   360
{
6527
f584ab6d87f8 (svn r8987) -Cleanup: doxygen changes. Again. Mostly (still) @files missing tags and (more than just) a few comments style.
belugas
parents: 6526
diff changeset
   361
	/* WP(w,vp2_d).data_1 is for the editbox line
f584ab6d87f8 (svn r8987) -Cleanup: doxygen changes. Again. Mostly (still) @files missing tags and (more than just) a few comments style.
belugas
parents: 6526
diff changeset
   362
	 * WP(w,vp2_d).data_2 is for the clickline
f584ab6d87f8 (svn r8987) -Cleanup: doxygen changes. Again. Mostly (still) @files missing tags and (more than just) a few comments style.
belugas
parents: 6526
diff changeset
   363
	 * WP(w,vp2_d).data_3 is for the click pos (left or right) */
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   364
2951
2db3adee7736 (svn r3510) Fiddle with whitespace and parentheses
tron
parents: 2866
diff changeset
   365
	switch (e->event) {
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   366
	case WE_CREATE: {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   367
		/* Count the number of lines that we need to resize the GUI with */
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   368
		const IndustrySpec *ind = GetIndustrySpec(GetIndustry(w->window_number)->type);
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   369
		int lines = -3;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   370
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   371
		if (HASBIT(ind->callback_flags, CBM_IND_PRODUCTION_CARGO_ARRIVAL) || HASBIT(ind->callback_flags, CBM_IND_PRODUCTION_256_TICKS)) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   372
			for (uint j = 0; j < 3 && ind->accepts_cargo[j] != CT_INVALID; j++) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   373
				if (j == 0) lines++;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   374
				lines++;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   375
			}
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   376
		} else if (ind->accepts_cargo[0] != CT_INVALID) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   377
			lines++;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   378
		}
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   379
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   380
		for (uint j = 0; j < 2 && ind->produced_cargo[j] != CT_INVALID; j++) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   381
			if (j == 0) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   382
				if (ind->accepts_cargo[0] != CT_INVALID) lines++;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   383
				lines++;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   384
			}
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   385
			lines++;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   386
		}
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   387
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   388
		if (HASBIT(ind->callback_flags, CBM_IND_WINDOW_MORE_TEXT)) lines += 2;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   389
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   390
		for (uint j = 5; j <= 7; j++) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   391
			if (j != 5) w->widget[j].top += lines * 10;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   392
			w->widget[j].bottom += lines * 10;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   393
		}
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   394
		w->height += lines * 10;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   395
	} break;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   396
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   397
	case WE_PAINT: {
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   398
		Industry *i = GetIndustry(w->window_number);
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   399
		const IndustrySpec *ind = GetIndustrySpec(i->type);
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   400
		int y = 111;
2557
3ed00023e382 (svn r3090) Remove long dead pieces of code
tron
parents: 2469
diff changeset
   401
2070
26c657906f25 (svn r2580) Change: Added {INDUSTRY} command for printing industry names instead of the old {TOWN} {STRING} way.
ludde
parents: 2063
diff changeset
   402
		SetDParam(0, w->window_number);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   403
		DrawWindowWidgets(w);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   404
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   405
		if (HASBIT(ind->callback_flags, CBM_IND_PRODUCTION_CARGO_ARRIVAL) || HASBIT(ind->callback_flags, CBM_IND_PRODUCTION_256_TICKS)) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   406
			for (uint j = 0; j < 3 && ind->accepts_cargo[j] != CT_INVALID; j++) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   407
				if (j == 0) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   408
					DrawString(2, y, STR_INDUSTRY_WINDOW_WAITING_FOR_PROCESSING, 0);
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   409
					y += 10;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   410
				}
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   411
				SetDParam(0, ind->accepts_cargo[j]);
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   412
				SetDParam(1, i->incoming_cargo_waiting[j]);
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   413
				DrawString(4, y, STR_INDUSTRY_WINDOW_WAITING_STOCKPILE_CARGO, 0);
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   414
				y += 10;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   415
			}
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   416
		} else if (ind->accepts_cargo[0] != CT_INVALID) {
2989
99c95a3ebcaa (svn r3564) Several smaller changes:
tron
parents: 2952
diff changeset
   417
			StringID str;
99c95a3ebcaa (svn r3564) Several smaller changes:
tron
parents: 2952
diff changeset
   418
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   419
			SetDParam(0, GetCargo(ind->accepts_cargo[0])->name);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   420
			str = STR_4827_REQUIRES;
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   421
			if (ind->accepts_cargo[1] != CT_INVALID) {
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   422
				SetDParam(1, GetCargo(ind->accepts_cargo[1])->name);
2989
99c95a3ebcaa (svn r3564) Several smaller changes:
tron
parents: 2952
diff changeset
   423
				str = STR_4828_REQUIRES;
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   424
				if (ind->accepts_cargo[2] != CT_INVALID) {
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   425
					SetDParam(2, GetCargo(ind->accepts_cargo[2])->name);
2989
99c95a3ebcaa (svn r3564) Several smaller changes:
tron
parents: 2952
diff changeset
   426
					str = STR_4829_REQUIRES;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   427
				}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   428
			}
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   429
			DrawString(2, y, str, 0);
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   430
			y += 10;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   431
		}
193
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   432
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   433
		for (uint j = 0; j < 2 && ind->produced_cargo[j] != CT_INVALID; j++) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   434
			if (j == 0) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   435
				if (ind->accepts_cargo[0] != CT_INVALID) y += 10;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   436
				DrawString(2, y, STR_482A_PRODUCTION_LAST_MONTH, 0);
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   437
				y += 10;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   438
			}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   439
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   440
			SetDParam(0, ind->produced_cargo[j]);
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   441
			SetDParam(1, i->last_month_production[j]);
2063
95259a31ceb5 (svn r2572) - Codechange: [string] Changed string system so it's not as dependent on decode_parameters
ludde
parents: 1981
diff changeset
   442
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   443
			SetDParam(2, i->last_month_pct_transported[j] * 100 >> 8);
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   444
			DrawString(4 + (IsProductionAlterable(i) ? 30 : 0), y, STR_482B_TRANSPORTED, 0);
6527
f584ab6d87f8 (svn r8987) -Cleanup: doxygen changes. Again. Mostly (still) @files missing tags and (more than just) a few comments style.
belugas
parents: 6526
diff changeset
   445
			/* Let's put out those buttons.. */
4211
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   446
			if (IsProductionAlterable(i)) {
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   447
				DrawArrowButtons(5, y, 3, (WP(w, vp2_d).data_2 == j + 1) ? WP(w, vp2_d).data_3 : 0,
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   448
						!isProductionMinimum(i, j), !isProductionMaximum(i, j));
4211
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   449
			}
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   450
			y += 10;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   451
		}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   452
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   453
		/* Get the extra message for the GUI */
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   454
		if (HASBIT(ind->callback_flags, CBM_IND_WINDOW_MORE_TEXT)) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   455
			uint16 callback_res = GetIndustryCallback(CBID_INDUSTRY_WINDOW_MORE_TEXT, 0, 0, i, i->type, i->xy);
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   456
			if (callback_res != CALLBACK_FAILED) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   457
				StringID message = GetGRFStringID(ind->grf_prop.grffile->grfid, 0xD000 + callback_res);
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   458
				if (message != STR_NULL && message != STR_UNDEFINED) {
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   459
					y += 10;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   460
					DrawString(2, y, message, 0);
4211
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   461
				}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   462
			}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   463
		}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   464
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   465
		DrawWindowViewport(w);
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   466
	} break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   467
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   468
	case WE_CLICK: {
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   469
		Industry *i;
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   470
4634
897461a3e9ca (svn r6499) -Codechange: Finally, got "byte event" outside of the union WindowEvent, which is now a struct
belugas
parents: 4617
diff changeset
   471
		switch (e->we.click.widget) {
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   472
		case 5: {
4193
ef08dda0369e (svn r5653) -Cleanup: Do a little cleanup of the industry gui code.
Darkvater
parents: 4192
diff changeset
   473
			int line, x;
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   474
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   475
			i = GetIndustry(w->window_number);
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   476
6527
f584ab6d87f8 (svn r8987) -Cleanup: doxygen changes. Again. Mostly (still) @files missing tags and (more than just) a few comments style.
belugas
parents: 6526
diff changeset
   477
			/* We should work if needed.. */
4194
18a32dace8ba (svn r5654) -Cleanup: Change an ugly define into a function
Darkvater
parents: 4193
diff changeset
   478
			if (!IsProductionAlterable(i)) return;
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   479
4634
897461a3e9ca (svn r6499) -Codechange: Finally, got "byte event" outside of the union WindowEvent, which is now a struct
belugas
parents: 4617
diff changeset
   480
			x = e->we.click.pt.x;
7691
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   481
			line = (e->we.click.pt.y - 121) / 10;
64063937da38 (svn r10473) -Codechange: make the industry "window", the one that shows when you click on an industry, more flexible to allow easier integration with newindustries.
rubidium
parents: 7681
diff changeset
   482
			if (e->we.click.pt.y >= 121 && IS_INT_INSIDE(line, 0, 2) &&
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   483
					GetIndustrySpec(i->type)->produced_cargo[line] != CT_INVALID) {
1019
6363b8a4273e (svn r1520) Trim 134 (!) lines with trailing whitespace ):
tron
parents: 1004
diff changeset
   484
				if (IS_INT_INSIDE(x, 5, 25) ) {
4193
ef08dda0369e (svn r5653) -Cleanup: Do a little cleanup of the industry gui code.
Darkvater
parents: 4192
diff changeset
   485
					/* Clicked buttons, decrease or increase production */
1019
6363b8a4273e (svn r1520) Trim 134 (!) lines with trailing whitespace ):
tron
parents: 1004
diff changeset
   486
					if (x < 15) {
4211
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   487
						if (isProductionMinimum(i, line)) return;
5852
cb3f71b16e1a (svn r8055) -Codechange: Replace the different max, dmax, maxu whatever macros by a simple template function max(), that requires two arguments of the same type. While I'm at it change a variable called "max" to "maxval" in a function that calls max().
celestar
parents: 5838
diff changeset
   488
						i->production_rate[line] = max(i->production_rate[line] / 2, 1);
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   489
					} else {
4211
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   490
						if (isProductionMaximum(i, line)) return;
4193
ef08dda0369e (svn r5653) -Cleanup: Do a little cleanup of the industry gui code.
Darkvater
parents: 4192
diff changeset
   491
						i->production_rate[line] = minu(i->production_rate[line] * 2, 255);
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   492
					}
4193
ef08dda0369e (svn r5653) -Cleanup: Do a little cleanup of the industry gui code.
Darkvater
parents: 4192
diff changeset
   493
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   494
					UpdateIndustryProduction(i);
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   495
					SetWindowDirty(w);
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   496
					w->flags4 |= 5 << WF_TIMEOUT_SHL;
6987
b0f13039bda2 (svn r9672) -Cleanup: lots of coding style fixes around operands.
rubidium
parents: 6573
diff changeset
   497
					WP(w, vp2_d).data_2 = line + 1;
b0f13039bda2 (svn r9672) -Cleanup: lots of coding style fixes around operands.
rubidium
parents: 6573
diff changeset
   498
					WP(w, vp2_d).data_3 = (x < 15 ? 1 : 2);
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   499
				} else if (IS_INT_INSIDE(x, 34, 160)) {
6527
f584ab6d87f8 (svn r8987) -Cleanup: doxygen changes. Again. Mostly (still) @files missing tags and (more than just) a few comments style.
belugas
parents: 6526
diff changeset
   500
					/* clicked the text */
6987
b0f13039bda2 (svn r9672) -Cleanup: lots of coding style fixes around operands.
rubidium
parents: 6573
diff changeset
   501
					WP(w, vp2_d).data_1 = line;
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   502
					SetDParam(0, i->production_rate[line] * 8);
5682
eeddbbacd4ac (svn r7637) -Codechange: Change ShowQueryString to use a window pointer as a parent. If the
Darkvater
parents: 5568
diff changeset
   503
					ShowQueryString(STR_CONFIG_PATCHES_INT32, STR_CONFIG_GAME_PRODUCTION, 10, 100, w, CS_ALPHANUMERAL);
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   504
				}
1019
6363b8a4273e (svn r1520) Trim 134 (!) lines with trailing whitespace ):
tron
parents: 1004
diff changeset
   505
			}
4193
ef08dda0369e (svn r5653) -Cleanup: Do a little cleanup of the industry gui code.
Darkvater
parents: 4192
diff changeset
   506
		} break;
758
bd9e868b9fae (svn r1214) -Feature: Stickified Industries (list & window), Smallmaps (all three), Stations (list & window) and Towns (list & window). I hope I didn't forget to update a widget somewhere :O
darkvater
parents: 727
diff changeset
   507
		case 6:
919
b0d6c7642f99 (svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents: 893
diff changeset
   508
			i = GetIndustry(w->window_number);
1981
de031d2aed47 (svn r2487) Replace TILE_XY by TileXY/TileDiffXY
tron
parents: 1914
diff changeset
   509
			ScrollMainWindowToTile(i->xy + TileDiffXY(1, 1));
6988
76eba6a9cc6f (svn r9673) -Cleanup: remove spaces before tabs and replace non-indenting tabs with spaces.
rubidium
parents: 6987
diff changeset
   510
		} break;
4193
ef08dda0369e (svn r5653) -Cleanup: Do a little cleanup of the industry gui code.
Darkvater
parents: 4192
diff changeset
   511
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   512
		}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   513
		break;
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   514
	case WE_TIMEOUT:
6987
b0f13039bda2 (svn r9672) -Cleanup: lots of coding style fixes around operands.
rubidium
parents: 6573
diff changeset
   515
		WP(w, vp2_d).data_2 = 0;
b0f13039bda2 (svn r9672) -Cleanup: lots of coding style fixes around operands.
rubidium
parents: 6573
diff changeset
   516
		WP(w, vp2_d).data_3 = 0;
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   517
		SetWindowDirty(w);
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   518
		break;
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   519
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   520
	case WE_ON_EDIT_TEXT:
4634
897461a3e9ca (svn r6499) -Codechange: Finally, got "byte event" outside of the union WindowEvent, which is now a struct
belugas
parents: 4617
diff changeset
   521
		if (e->we.edittext.str[0] != '\0') {
3017
915fae59d5e0 (svn r3597) Miscellaneous (I like that word) changes: Fix some indentation, add consts, reduce indentation level by short-circuit logic, convert if cascades to switch, whitespace, bracing, plus some minor stuff
tron
parents: 2989
diff changeset
   522
			Industry* i = GetIndustry(w->window_number);
6987
b0f13039bda2 (svn r9672) -Cleanup: lots of coding style fixes around operands.
rubidium
parents: 6573
diff changeset
   523
			int line = WP(w, vp2_d).data_1;
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   524
4634
897461a3e9ca (svn r6499) -Codechange: Finally, got "byte event" outside of the union WindowEvent, which is now a struct
belugas
parents: 4617
diff changeset
   525
			i->production_rate[line] = clampu(atoi(e->we.edittext.str), 0, 255);
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   526
			UpdateIndustryProduction(i);
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   527
			SetWindowDirty(w);
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   528
		}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   529
	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   530
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   531
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   532
static void UpdateIndustryProduction(Industry *i)
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   533
{
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   534
	const IndustrySpec *ind = GetIndustrySpec(i->type);
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   535
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   536
	for (byte j = 0; j < lengthof(ind->produced_cargo); j++) {
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   537
		if (ind->produced_cargo[j] != CT_INVALID) {
7315
f1b2591ad082 (svn r10058) -Codechange: give some industry variable sensible names (like not telling "last_mo_production" when it is the production of the current month).
rubidium
parents: 7311
diff changeset
   538
			i->last_month_production[j] = 8 * i->production_rate[j];
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   539
		}
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   540
	}
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   541
}
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   542
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   543
static const Widget _industry_view_widgets[] = {
4344
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   544
{   WWT_CLOSEBOX,   RESIZE_NONE,     9,     0,    10,     0,    13, STR_00C5,          STR_018B_CLOSE_WINDOW},
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   545
{    WWT_CAPTION,   RESIZE_NONE,     9,    11,   247,     0,    13, STR_4801,          STR_018C_WINDOW_TITLE_DRAG_THIS},
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   546
{  WWT_STICKYBOX,   RESIZE_NONE,     9,   248,   259,     0,    13, 0x0,               STR_STICKY_BUTTON},
4938
074f734a91ca (svn r6925) -Codechange: Be more strict with widget distinctions. WWT_PANEL is only plain panel,
Darkvater
parents: 4912
diff changeset
   547
{      WWT_PANEL,   RESIZE_NONE,     9,     0,   259,    14,   105, 0x0,               STR_NULL},
4939
ede0f6777b3c (svn r6926) -Codechange: Rename WWT_4 to WWT_TEXTBTN_2 and WWT_6 to WWT_INSET (credits to peter1138
Darkvater
parents: 4938
diff changeset
   548
{      WWT_INSET,   RESIZE_NONE,     9,     2,   257,    16,   103, 0x0,               STR_NULL},
4938
074f734a91ca (svn r6925) -Codechange: Be more strict with widget distinctions. WWT_PANEL is only plain panel,
Darkvater
parents: 4912
diff changeset
   549
{      WWT_PANEL,   RESIZE_NONE,     9,     0,   259,   106,   147, 0x0,               STR_NULL},
4344
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   550
{ WWT_PUSHTXTBTN,   RESIZE_NONE,     9,     0,   129,   148,   159, STR_00E4_LOCATION, STR_482C_CENTER_THE_MAIN_VIEW_ON},
4938
074f734a91ca (svn r6925) -Codechange: Be more strict with widget distinctions. WWT_PANEL is only plain panel,
Darkvater
parents: 4912
diff changeset
   551
{      WWT_PANEL,   RESIZE_NONE,     9,   130,   259,   148,   159, 0x0,               STR_NULL},
176
84990c4b9212 (svn r177) -Fix: padded out Widget code to solve warnings on C99 compiler (Tron)
darkvater
parents: 164
diff changeset
   552
{   WIDGETS_END},
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   553
};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   554
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   555
static const WindowDesc _industry_view_desc = {
5070
0bbf5264bfb7 (svn r7128) -Codechange: Replace magic numbers by magic enums (windowdesc positioning WDP_AUTO = -1)
Darkvater
parents: 5005
diff changeset
   556
	WDP_AUTO, WDP_AUTO, 260, 160,
6144
5a0ffbf27ced (svn r8511) -Codechange: make WindowClass an enumerated value.
rubidium
parents: 5860
diff changeset
   557
	WC_INDUSTRY_VIEW, WC_NONE,
758
bd9e868b9fae (svn r1214) -Feature: Stickified Industries (list & window), Smallmaps (all three), Stations (list & window) and Towns (list & window). I hope I didn't forget to update a widget somewhere :O
darkvater
parents: 727
diff changeset
   558
	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_STICKY_BUTTON,
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   559
	_industry_view_widgets,
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   560
	IndustryViewWndProc
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   561
};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   562
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   563
void ShowIndustryViewWindow(int industry)
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   564
{
4171
3fadda3afe70 (svn r5609) CodeChange : Apply coding style
belugas
parents: 3689
diff changeset
   565
	Window *w = AllocateWindowDescFront(&_industry_view_desc, industry);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   566
2989
99c95a3ebcaa (svn r3564) Several smaller changes:
tron
parents: 2952
diff changeset
   567
	if (w != NULL) {
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   568
		w->flags4 |= WF_DISABLE_VP_SCROLL;
6987
b0f13039bda2 (svn r9672) -Cleanup: lots of coding style fixes around operands.
rubidium
parents: 6573
diff changeset
   569
		WP(w, vp2_d).data_1 = 0;
b0f13039bda2 (svn r9672) -Cleanup: lots of coding style fixes around operands.
rubidium
parents: 6573
diff changeset
   570
		WP(w, vp2_d).data_2 = 0;
b0f13039bda2 (svn r9672) -Cleanup: lots of coding style fixes around operands.
rubidium
parents: 6573
diff changeset
   571
		WP(w, vp2_d).data_3 = 0;
7120
e31767effc16 (svn r9844) -Codechange: replace zoomlevel with an enum
truelight
parents: 6988
diff changeset
   572
		AssignWindowViewport(w, 3, 17, 0xFE, 0x56, GetIndustry(w->window_number)->xy + TileDiffXY(1, 1), ZOOM_LVL_INDUSTRY);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   573
	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   574
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   575
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   576
enum {
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   577
	DIRECTORY_INDU_SORTBYNAME = 3,
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   578
	DIRECTORY_INDU_SORTBYTYPE,
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   579
	DIRECTORY_INDU_SORTBYPROD,
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   580
	DIRECTORY_INDU_SORTBYTRANSPORT,
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   581
	DIRECTORY_INDU_SHOWINDU = 8,
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   582
};
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   583
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   584
static const Widget _industry_directory_widgets[] = {
4344
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   585
{   WWT_CLOSEBOX,   RESIZE_NONE,    13,     0,    10,     0,    13, STR_00C5,                STR_018B_CLOSE_WINDOW},
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   586
{    WWT_CAPTION,   RESIZE_NONE,    13,    11,   495,     0,    13, STR_INDUSTRYDIR_CAPTION, STR_018C_WINDOW_TITLE_DRAG_THIS},
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   587
{  WWT_STICKYBOX,   RESIZE_NONE,    13,   496,   507,     0,    13, 0x0,                     STR_STICKY_BUTTON},
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   588
{ WWT_PUSHTXTBTN,   RESIZE_NONE,    13,     0,   100,    14,    25, STR_SORT_BY_NAME,        STR_SORT_ORDER_TIP},
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   589
{ WWT_PUSHTXTBTN,   RESIZE_NONE,    13,   101,   200,    14,    25, STR_SORT_BY_TYPE,        STR_SORT_ORDER_TIP},
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   590
{ WWT_PUSHTXTBTN,   RESIZE_NONE,    13,   201,   300,    14,    25, STR_SORT_BY_PRODUCTION,  STR_SORT_ORDER_TIP},
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   591
{ WWT_PUSHTXTBTN,   RESIZE_NONE,    13,   301,   400,    14,    25, STR_SORT_BY_TRANSPORTED, STR_SORT_ORDER_TIP},
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   592
{      WWT_PANEL,   RESIZE_NONE,    13,   401,   495,    14,    25, 0x0,                     STR_NULL},
4938
074f734a91ca (svn r6925) -Codechange: Be more strict with widget distinctions. WWT_PANEL is only plain panel,
Darkvater
parents: 4912
diff changeset
   593
{      WWT_PANEL, RESIZE_BOTTOM,    13,     0,   495,    26,   189, 0x0,                     STR_200A_TOWN_NAMES_CLICK_ON_NAME},
4344
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   594
{  WWT_SCROLLBAR, RESIZE_BOTTOM,    13,   496,   507,    14,   177, 0x0,                     STR_0190_SCROLL_BAR_SCROLLS_LIST},
5d0e40cd67b9 (svn r6045) -Cleanup: align all table-like structures using spaces, i.e. whitespace fixes only except for a few comments to make them uniform for the whole enum/struct.
rubidium
parents: 4299
diff changeset
   595
{  WWT_RESIZEBOX,     RESIZE_TB,    13,   496,   507,   178,   189, 0x0,                     STR_RESIZE_BUTTON},
176
84990c4b9212 (svn r177) -Fix: padded out Widget code to solve warnings on C99 compiler (Tron)
darkvater
parents: 164
diff changeset
   596
{   WIDGETS_END},
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   597
};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   598
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   599
static uint _num_industry_sort;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   600
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   601
static char _bufcache[96];
4277
3539bd14f023 (svn r5907) Remove more indirection by using pointers instead of IDs. Also fix some bogus warnings on MSVC by using (void*) casts
tron
parents: 4211
diff changeset
   602
static const Industry* _last_industry;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   603
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   604
static byte _industry_sort_order;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   605
164
0cbdf3c9bde1 (svn r165) -Feature: Option to sort vehicles in vehicle-list window by different criteria. Total independent sort for all types and players. Periodic resort of list every 10 TTD days. Thank you for your graphical inspiration follow and buxo (since none of you provided any code).
darkvater
parents: 69
diff changeset
   606
static int CDECL GeneralIndustrySorter(const void *a, const void *b)
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   607
{
4277
3539bd14f023 (svn r5907) Remove more indirection by using pointers instead of IDs. Also fix some bogus warnings on MSVC by using (void*) casts
tron
parents: 4211
diff changeset
   608
	const Industry* i = *(const Industry**)a;
3539bd14f023 (svn r5907) Remove more indirection by using pointers instead of IDs. Also fix some bogus warnings on MSVC by using (void*) casts
tron
parents: 4211
diff changeset
   609
	const Industry* j = *(const Industry**)b;
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   610
	const IndustrySpec *ind_i = GetIndustrySpec(i->type);
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   611
	const IndustrySpec *ind_j = GetIndustrySpec(j->type);
4282
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   612
	int r;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   613
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   614
	switch (_industry_sort_order >> 1) {
4282
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   615
		default: NOT_REACHED();
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   616
		case 0: /* Sort by Name (handled later) */
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   617
			r = 0;
4282
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   618
			break;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   619
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   620
		case 1: /* Sort by Type */
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   621
			r = i->type - j->type;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   622
			break;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   623
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   624
		case 2: /* Sort by Production */
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   625
			if (ind_i->produced_cargo[0] == CT_INVALID) {
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   626
				r = (ind_j->produced_cargo[0] == CT_INVALID ? 0 : -1);
4282
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   627
			} else {
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   628
				if (ind_j->produced_cargo[0] == CT_INVALID) {
4282
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   629
					r = 1;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   630
				} else {
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   631
					r =
7315
f1b2591ad082 (svn r10058) -Codechange: give some industry variable sensible names (like not telling "last_mo_production" when it is the production of the current month).
rubidium
parents: 7311
diff changeset
   632
						(i->last_month_production[0] + i->last_month_production[1]) -
f1b2591ad082 (svn r10058) -Codechange: give some industry variable sensible names (like not telling "last_mo_production" when it is the production of the current month).
rubidium
parents: 7311
diff changeset
   633
						(j->last_month_production[0] + j->last_month_production[1]);
4282
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   634
				}
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   635
			}
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   636
			break;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   637
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   638
		case 3: /* Sort by transported fraction */
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   639
			if (ind_i->produced_cargo[0] == CT_INVALID) {
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   640
				r = (ind_j->produced_cargo[0] == CT_INVALID ? 0 : -1);
4282
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   641
			} else {
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   642
				if (ind_j->produced_cargo[0] == CT_INVALID) {
4282
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   643
					r = 1;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   644
				} else {
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   645
					int pi;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   646
					int pj;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   647
7315
f1b2591ad082 (svn r10058) -Codechange: give some industry variable sensible names (like not telling "last_mo_production" when it is the production of the current month).
rubidium
parents: 7311
diff changeset
   648
					pi = i->last_month_pct_transported[0] * 100 >> 8;
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   649
					if (ind_i->produced_cargo[1] != CT_INVALID) {
7315
f1b2591ad082 (svn r10058) -Codechange: give some industry variable sensible names (like not telling "last_mo_production" when it is the production of the current month).
rubidium
parents: 7311
diff changeset
   650
						int p = i->last_month_pct_transported[1] * 100 >> 8;
4282
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   651
						if (p < pi) pi = p;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   652
					}
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   653
7315
f1b2591ad082 (svn r10058) -Codechange: give some industry variable sensible names (like not telling "last_mo_production" when it is the production of the current month).
rubidium
parents: 7311
diff changeset
   654
					pj = j->last_month_pct_transported[0] * 100 >> 8;
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   655
					if (ind_j->produced_cargo[1] != CT_INVALID) {
7315
f1b2591ad082 (svn r10058) -Codechange: give some industry variable sensible names (like not telling "last_mo_production" when it is the production of the current month).
rubidium
parents: 7311
diff changeset
   656
						int p = j->last_month_pct_transported[1] * 100 >> 8;
4282
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   657
						if (p < pj) pj = p;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   658
					}
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   659
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   660
					r = pi - pj;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   661
				}
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   662
			}
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   663
			break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   664
	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   665
6527
f584ab6d87f8 (svn r8987) -Cleanup: doxygen changes. Again. Mostly (still) @files missing tags and (more than just) a few comments style.
belugas
parents: 6526
diff changeset
   666
	/* default to string sorting if they are otherwise equal */
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   667
	if (r == 0) {
4282
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   668
		char buf1[96];
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   669
2070
26c657906f25 (svn r2580) Change: Added {INDUSTRY} command for printing industry names instead of the old {TOWN} {STRING} way.
ludde
parents: 2063
diff changeset
   670
		SetDParam(0, i->town->index);
4912
d04b3f2bca70 (svn r6884) -Codechange: Add strict bounds checking in string formatting system.
Darkvater
parents: 4896
diff changeset
   671
		GetString(buf1, STR_TOWN, lastof(buf1));
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   672
4277
3539bd14f023 (svn r5907) Remove more indirection by using pointers instead of IDs. Also fix some bogus warnings on MSVC by using (void*) casts
tron
parents: 4211
diff changeset
   673
		if (j != _last_industry) {
3539bd14f023 (svn r5907) Remove more indirection by using pointers instead of IDs. Also fix some bogus warnings on MSVC by using (void*) casts
tron
parents: 4211
diff changeset
   674
			_last_industry = j;
2070
26c657906f25 (svn r2580) Change: Added {INDUSTRY} command for printing industry names instead of the old {TOWN} {STRING} way.
ludde
parents: 2063
diff changeset
   675
			SetDParam(0, j->town->index);
4912
d04b3f2bca70 (svn r6884) -Codechange: Add strict bounds checking in string formatting system.
Darkvater
parents: 4896
diff changeset
   676
			GetString(_bufcache, STR_TOWN, lastof(_bufcache));
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   677
		}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   678
		r = strcmp(buf1, _bufcache);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   679
	}
193
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   680
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   681
	if (_industry_sort_order & 1) r = -r;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   682
	return r;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   683
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   684
6526
85cfa44803d0 (svn r8980) -Fix (FS#656): the industry list should also be (re)set when the number of industries is 0.
rubidium
parents: 6417
diff changeset
   685
/**
85cfa44803d0 (svn r8980) -Fix (FS#656): the industry list should also be (re)set when the number of industries is 0.
rubidium
parents: 6417
diff changeset
   686
 * Makes a sorted industry list.
85cfa44803d0 (svn r8980) -Fix (FS#656): the industry list should also be (re)set when the number of industries is 0.
rubidium
parents: 6417
diff changeset
   687
 * When there are no industries, the list has to be made. This so when one
85cfa44803d0 (svn r8980) -Fix (FS#656): the industry list should also be (re)set when the number of industries is 0.
rubidium
parents: 6417
diff changeset
   688
 * starts a new game without industries after playing a game with industries
85cfa44803d0 (svn r8980) -Fix (FS#656): the industry list should also be (re)set when the number of industries is 0.
rubidium
parents: 6417
diff changeset
   689
 * the list is not populated with invalid industries from the previous game.
85cfa44803d0 (svn r8980) -Fix (FS#656): the industry list should also be (re)set when the number of industries is 0.
rubidium
parents: 6417
diff changeset
   690
 */
6573
7624f942237f (svn r9050) -Codechange: Foo(void) -> Foo()
rubidium
parents: 6527
diff changeset
   691
static void MakeSortedIndustryList()
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   692
{
4277
3539bd14f023 (svn r5907) Remove more indirection by using pointers instead of IDs. Also fix some bogus warnings on MSVC by using (void*) casts
tron
parents: 4211
diff changeset
   693
	const Industry* i;
919
b0d6c7642f99 (svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents: 893
diff changeset
   694
	int n = 0;
b0d6c7642f99 (svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents: 893
diff changeset
   695
b0d6c7642f99 (svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents: 893
diff changeset
   696
	/* Create array for sorting */
5860
7fdc9b423ba1 (svn r8066) - Codechange: MallocT(), CallocT(), ReallocT() now return the pointer to allocated memory instead of modifying the pointer given as parameter
KUDr
parents: 5852
diff changeset
   697
	_industry_sort = ReallocT(_industry_sort, GetMaxIndustryIndex() + 1);
5568
75f13d7bfaed (svn r7565) -Codechange: Rework DEBUG functionality. Look for appropiate debugging levels to
Darkvater
parents: 5247
diff changeset
   698
	if (_industry_sort == NULL) error("Could not allocate memory for the industry-sorting-list");
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   699
6526
85cfa44803d0 (svn r8980) -Fix (FS#656): the industry list should also be (re)set when the number of industries is 0.
rubidium
parents: 6417
diff changeset
   700
	/* Don't attempt a sort if there are no industries */
85cfa44803d0 (svn r8980) -Fix (FS#656): the industry list should also be (re)set when the number of industries is 0.
rubidium
parents: 6417
diff changeset
   701
	if (GetNumIndustries() != 0) {
85cfa44803d0 (svn r8980) -Fix (FS#656): the industry list should also be (re)set when the number of industries is 0.
rubidium
parents: 6417
diff changeset
   702
		FOR_ALL_INDUSTRIES(i) _industry_sort[n++] = i;
85cfa44803d0 (svn r8980) -Fix (FS#656): the industry list should also be (re)set when the number of industries is 0.
rubidium
parents: 6417
diff changeset
   703
		qsort((void*)_industry_sort, n, sizeof(_industry_sort[0]), GeneralIndustrySorter);
85cfa44803d0 (svn r8980) -Fix (FS#656): the industry list should also be (re)set when the number of industries is 0.
rubidium
parents: 6417
diff changeset
   704
	}
4346
3f00094f2670 (svn r6047) -Codechange: FOR_ALL now _only_ loops valid items, and skips invalid ones
truelight
parents: 4344
diff changeset
   705
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   706
	_num_industry_sort = n;
4277
3539bd14f023 (svn r5907) Remove more indirection by using pointers instead of IDs. Also fix some bogus warnings on MSVC by using (void*) casts
tron
parents: 4211
diff changeset
   707
	_last_industry = NULL; // used for "cache"
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   708
5568
75f13d7bfaed (svn r7565) -Codechange: Rework DEBUG functionality. Look for appropiate debugging levels to
Darkvater
parents: 5247
diff changeset
   709
	DEBUG(misc, 3, "Resorting industries list");
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   710
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   711
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   712
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   713
static void IndustryDirectoryWndProc(Window *w, WindowEvent *e)
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   714
{
2951
2db3adee7736 (svn r3510) Fiddle with whitespace and parentheses
tron
parents: 2866
diff changeset
   715
	switch (e->event) {
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   716
	case WE_PAINT: {
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   717
		int n;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   718
		uint p;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   719
		static const uint16 _indicator_positions[4] = {88, 187, 284, 387};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   720
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   721
		if (_industry_sort_dirty) {
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   722
			_industry_sort_dirty = false;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   723
			MakeSortedIndustryList();
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   724
		}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   725
1666
b36927825adb (svn r2170) -fix: [1179457] the industry list can now no longer scroll down then the end of the list is reached (Hackykid)
bjarni
parents: 1388
diff changeset
   726
		SetVScrollCount(w, _num_industry_sort);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   727
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   728
		DrawWindowWidgets(w);
6987
b0f13039bda2 (svn r9672) -Cleanup: lots of coding style fixes around operands.
rubidium
parents: 6573
diff changeset
   729
		DoDrawString(_industry_sort_order & 1 ? DOWNARROW : UPARROW, _indicator_positions[_industry_sort_order >> 1], 15, 0x10);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   730
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   731
		p = w->vscroll.pos;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   732
		n = 0;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   733
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   734
		while (p < _num_industry_sort) {
4277
3539bd14f023 (svn r5907) Remove more indirection by using pointers instead of IDs. Also fix some bogus warnings on MSVC by using (void*) casts
tron
parents: 4211
diff changeset
   735
			const Industry* i = _industry_sort[p];
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   736
			const IndustrySpec *ind = GetIndustrySpec(i->type);
2989
99c95a3ebcaa (svn r3564) Several smaller changes:
tron
parents: 2952
diff changeset
   737
2070
26c657906f25 (svn r2580) Change: Added {INDUSTRY} command for printing industry names instead of the old {TOWN} {STRING} way.
ludde
parents: 2063
diff changeset
   738
			SetDParam(0, i->index);
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   739
			if (ind->produced_cargo[0] != CT_INVALID) {
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   740
				SetDParam(1, ind->produced_cargo[0]);
7315
f1b2591ad082 (svn r10058) -Codechange: give some industry variable sensible names (like not telling "last_mo_production" when it is the production of the current month).
rubidium
parents: 7311
diff changeset
   741
				SetDParam(2, i->last_month_production[0]);
193
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   742
7132
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   743
				if (ind->produced_cargo[1] != CT_INVALID) {
08abbae3073e (svn r9867) -Codechange: Remove data duplication. The exact same values can be found in the industry spec, so take it from there instead.
belugas
parents: 7120
diff changeset
   744
					SetDParam(3, ind->produced_cargo[1]);
7315
f1b2591ad082 (svn r10058) -Codechange: give some industry variable sensible names (like not telling "last_mo_production" when it is the production of the current month).
rubidium
parents: 7311
diff changeset
   745
					SetDParam(4, i->last_month_production[1]);
f1b2591ad082 (svn r10058) -Codechange: give some industry variable sensible names (like not telling "last_mo_production" when it is the production of the current month).
rubidium
parents: 7311
diff changeset
   746
					SetDParam(5, i->last_month_pct_transported[0] * 100 >> 8);
f1b2591ad082 (svn r10058) -Codechange: give some industry variable sensible names (like not telling "last_mo_production" when it is the production of the current month).
rubidium
parents: 7311
diff changeset
   747
					SetDParam(6, i->last_month_pct_transported[1] * 100 >> 8);
6987
b0f13039bda2 (svn r9672) -Cleanup: lots of coding style fixes around operands.
rubidium
parents: 6573
diff changeset
   748
					DrawString(4, 28 + n * 10, STR_INDUSTRYDIR_ITEM_TWO, 0);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   749
				} else {
7315
f1b2591ad082 (svn r10058) -Codechange: give some industry variable sensible names (like not telling "last_mo_production" when it is the production of the current month).
rubidium
parents: 7311
diff changeset
   750
					SetDParam(3, i->last_month_pct_transported[0] * 100 >> 8);
6987
b0f13039bda2 (svn r9672) -Cleanup: lots of coding style fixes around operands.
rubidium
parents: 6573
diff changeset
   751
					DrawString(4, 28 + n * 10, STR_INDUSTRYDIR_ITEM, 0);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   752
				}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   753
			} else {
6987
b0f13039bda2 (svn r9672) -Cleanup: lots of coding style fixes around operands.
rubidium
parents: 6573
diff changeset
   754
				DrawString(4, 28 + n * 10, STR_INDUSTRYDIR_ITEM_NOPROD, 0);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   755
			}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   756
			p++;
2951
2db3adee7736 (svn r3510) Fiddle with whitespace and parentheses
tron
parents: 2866
diff changeset
   757
			if (++n == w->vscroll.cap) break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   758
		}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   759
	} break;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   760
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   761
	case WE_CLICK:
4634
897461a3e9ca (svn r6499) -Codechange: Finally, got "byte event" outside of the union WindowEvent, which is now a struct
belugas
parents: 4617
diff changeset
   762
		switch (e->we.click.widget) {
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   763
			case DIRECTORY_INDU_SORTBYNAME: {
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   764
				//byte current_sort = e->we.click.widget - DIRECTORY_INDU_SORTBYNAME;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   765
				_industry_sort_order = _industry_sort_order == 0 ? 1 : 0;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   766
				_industry_sort_dirty = true;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   767
				SetWindowDirty(w);
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   768
			} break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   769
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   770
			case DIRECTORY_INDU_SORTBYTYPE: {
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   771
				_industry_sort_order = _industry_sort_order == 2 ? 3 : 2;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   772
				_industry_sort_dirty = true;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   773
				SetWindowDirty(w);
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   774
			} break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   775
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   776
			case DIRECTORY_INDU_SORTBYPROD: {
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   777
				_industry_sort_order = _industry_sort_order == 4 ? 5 : 4;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   778
				_industry_sort_dirty = true;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   779
				SetWindowDirty(w);
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   780
			} break;
193
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   781
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   782
			case DIRECTORY_INDU_SORTBYTRANSPORT: {
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   783
				_industry_sort_order = _industry_sort_order == 6 ? 7 : 6;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   784
				_industry_sort_dirty = true;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   785
				SetWindowDirty(w);
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   786
			} break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   787
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   788
			case DIRECTORY_INDU_SHOWINDU: {
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   789
				int y = (e->we.click.pt.y - 28) / 10;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   790
				uint16 p;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   791
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   792
				if (!IS_INT_INSIDE(y, 0, w->vscroll.cap)) return;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   793
				p = y + w->vscroll.pos;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   794
				if (p < _num_industry_sort) {
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   795
					ScrollMainWindowToTile(_industry_sort[p]->xy);
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   796
				}
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   797
			} break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   798
		}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   799
		break;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   800
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   801
	case WE_4:
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   802
		SetWindowDirty(w);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   803
		break;
867
581154a08a78 (svn r1348) -Feature: resizable windows. Read the comment in window.h to find out
truelight
parents: 830
diff changeset
   804
581154a08a78 (svn r1348) -Feature: resizable windows. Read the comment in window.h to find out
truelight
parents: 830
diff changeset
   805
	case WE_RESIZE:
4634
897461a3e9ca (svn r6499) -Codechange: Finally, got "byte event" outside of the union WindowEvent, which is now a struct
belugas
parents: 4617
diff changeset
   806
		w->vscroll.cap += e->we.sizing.diff.y / 10;
867
581154a08a78 (svn r1348) -Feature: resizable windows. Read the comment in window.h to find out
truelight
parents: 830
diff changeset
   807
		break;
193
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   808
	}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   809
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   810
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   811
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   812
/* Industry List */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   813
static const WindowDesc _industry_directory_desc = {
5070
0bbf5264bfb7 (svn r7128) -Codechange: Replace magic numbers by magic enums (windowdesc positioning WDP_AUTO = -1)
Darkvater
parents: 5005
diff changeset
   814
	WDP_AUTO, WDP_AUTO, 508, 190,
6144
5a0ffbf27ced (svn r8511) -Codechange: make WindowClass an enumerated value.
rubidium
parents: 5860
diff changeset
   815
	WC_INDUSTRY_DIRECTORY, WC_NONE,
867
581154a08a78 (svn r1348) -Feature: resizable windows. Read the comment in window.h to find out
truelight
parents: 830
diff changeset
   816
	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_STICKY_BUTTON | WDF_RESIZABLE,
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   817
	_industry_directory_widgets,
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   818
	IndustryDirectoryWndProc
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   819
};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   820
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   821
6573
7624f942237f (svn r9050) -Codechange: Foo(void) -> Foo()
rubidium
parents: 6527
diff changeset
   822
void ShowIndustryDirectory()
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   823
{
4171
3fadda3afe70 (svn r5609) CodeChange : Apply coding style
belugas
parents: 3689
diff changeset
   824
	Window *w = AllocateWindowDescFront(&_industry_directory_desc, 0);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   825
2989
99c95a3ebcaa (svn r3564) Several smaller changes:
tron
parents: 2952
diff changeset
   826
	if (w != NULL) {
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   827
		w->vscroll.cap = 16;
867
581154a08a78 (svn r1348) -Feature: resizable windows. Read the comment in window.h to find out
truelight
parents: 830
diff changeset
   828
		w->resize.height = w->height - 6 * 10; // minimum 10 items
581154a08a78 (svn r1348) -Feature: resizable windows. Read the comment in window.h to find out
truelight
parents: 830
diff changeset
   829
		w->resize.step_height = 10;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   830
		SetWindowDirty(w);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   831
	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   832
}