src/industry_gui.cpp
author smatz
Sun, 03 Feb 2008 12:41:06 +0000
changeset 8972 420a826a4f88
parent 8932 989fe2280933
child 9255 22da20a012ba
child 10657 fedc1923d40e
permissions -rw-r--r--
(svn r12049) -Fix (r10496)(r10619): memset on multibyte array with wrong byte count
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"
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
     8
#include "gui.h"
8603
88c5ce6a5215 (svn r11668) -Codechange: more refactoring aimed at reducing compile time and making it more logic where function definitions can be found.
rubidium
parents: 8602
diff changeset
     9
#include "window_gui.h"
88c5ce6a5215 (svn r11668) -Codechange: more refactoring aimed at reducing compile time and making it more logic where function definitions can be found.
rubidium
parents: 8602
diff changeset
    10
#include "textbuf_gui.h"
8612
6414fc21c2f3 (svn r11677) -Codechange: move price and command related types/functions to their respective places.
rubidium
parents: 8610
diff changeset
    11
#include "command_func.h"
8720
4e60c30e2006 (svn r11787) -Codechange: more header rewrites. This time related to viewport.h.
rubidium
parents: 8675
diff changeset
    12
#include "viewport_func.h"
4e60c30e2006 (svn r11787) -Codechange: more header rewrites. This time related to viewport.h.
rubidium
parents: 8675
diff changeset
    13
#include "gfx_func.h"
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    14
#include "industry.h"
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    15
#include "town.h"
2159
3b634157c3b2 (svn r2669) Shuffle some more stuff around to reduce dependencies
tron
parents: 2084
diff changeset
    16
#include "variables.h"
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
    17
#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
    18
#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
    19
#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
    20
#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
    21
#include "newgrf_text.h"
8610
17cc343a23dd (svn r11675) -Codechange: split the string types from the string functions.
rubidium
parents: 8603
diff changeset
    22
#include "strings_func.h"
8635
3bbb6f87fced (svn r11701) -Codechange: removal unnecessary inclusions of map.h (and split map.h).
rubidium
parents: 8627
diff changeset
    23
#include "map_func.h"
8750
fdd6054e7bae (svn r11818) -Codechange: split player.h into smaller pieces.
rubidium
parents: 8733
diff changeset
    24
#include "player_func.h"
8766
c86cfa3a7580 (svn r11834) -Codechange: only include settings_type.h if needed.
rubidium
parents: 8760
diff changeset
    25
#include "settings_type.h"
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    26
8760
ce0891c412ce (svn r11828) -Codechange: include table/* as the last includes and remove an unneeded include from openttd.h.
rubidium
parents: 8750
diff changeset
    27
#include "table/strings.h"
ce0891c412ce (svn r11828) -Codechange: include table/* as the last includes and remove an unneeded include from openttd.h.
rubidium
parents: 8750
diff changeset
    28
#include "table/sprites.h"
ce0891c412ce (svn r11828) -Codechange: include table/* as the last includes and remove an unneeded include from openttd.h.
rubidium
parents: 8750
diff changeset
    29
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    30
bool _ignore_restrictions;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    31
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    32
/** Names of the widgets of the dynamic place industries gui */
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    33
enum DynamicPlaceIndustriesWidgets {
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    34
	DPIW_CLOSEBOX = 0,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    35
	DPIW_CAPTION,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    36
	DPIW_MATRIX_WIDGET,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    37
	DPIW_SCROLLBAR,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    38
	DPIW_INFOPANEL,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    39
	DPIW_FUND_WIDGET,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    40
	DPIW_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
    41
};
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    42
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
    43
/** Attached struct to the window extended data */
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
    44
struct fnd_d {
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
    45
	int index;             ///< index of the element in the matrix
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
    46
	IndustryType select;   ///< industry corresponding to the above index
7779
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
    47
	uint16 callback_timer; ///< timer counter for callback eventual verification
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
    48
	bool timer_enabled;    ///< timer can be used
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
    49
};
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
    50
assert_compile(WINDOW_CUSTOM_SIZE >= sizeof(fnd_d));
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
    51
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
    52
/** Helper struct holding the available industries for current situation */
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    53
static struct IndustryData {
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
    54
	uint16 count;                               ///< How many industries are loaded
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
    55
	IndustryType index[NUM_INDUSTRYTYPES + 1];  ///< Type of industry, in the order it was loaded
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
    56
	StringID text[NUM_INDUSTRYTYPES + 1];       ///< Text coming from CBM_IND_FUND_MORE_TEXT (if ever)
7779
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
    57
	bool enabled[NUM_INDUSTRYTYPES + 1];        ///< availability state, coming from CBID_INDUSTRY_AVAILABLE (if ever)
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
    58
} _fund_gui;
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
    59
8972
420a826a4f88 (svn r12049) -Fix (r10496)(r10619): memset on multibyte array with wrong byte count
smatz
parents: 8932
diff changeset
    60
assert_compile(lengthof(_fund_gui.index) == lengthof(_fund_gui.text));
420a826a4f88 (svn r12049) -Fix (r10496)(r10619): memset on multibyte array with wrong byte count
smatz
parents: 8932
diff changeset
    61
assert_compile(lengthof(_fund_gui.index) == lengthof(_fund_gui.enabled));
420a826a4f88 (svn r12049) -Fix (r10496)(r10619): memset on multibyte array with wrong byte count
smatz
parents: 8932
diff changeset
    62
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    63
static void BuildDynamicIndustryWndProc(Window *w, WindowEvent *e)
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    64
{
2951
2db3adee7736 (svn r3510) Fiddle with whitespace and parentheses
tron
parents: 2866
diff changeset
    65
	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
    66
		case WE_CREATE: {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    67
			IndustryType ind;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    68
			const IndustrySpec *indsp;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    69
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    70
			/* 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
    71
			 * 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
    72
			 * 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
    73
			if (!_loaded_newgrf_features.has_newindustries) {
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    74
				w->widget[DPIW_INFOPANEL].bottom -= 44;
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    75
				w->widget[DPIW_FUND_WIDGET].bottom -= 44;
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    76
				w->widget[DPIW_FUND_WIDGET].top -= 44;
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    77
				w->widget[DPIW_RESIZE_WIDGET].bottom -= 44;
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
    78
				w->widget[DPIW_RESIZE_WIDGET].top -= 44;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    79
				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
    80
			}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
    81
7779
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
    82
			WP(w, fnd_d).timer_enabled = _loaded_newgrf_features.has_newindustries;
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
    83
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    84
			/* Initilialize structures */
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
    85
			_fund_gui.count = 0;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    86
8972
420a826a4f88 (svn r12049) -Fix (r10496)(r10619): memset on multibyte array with wrong byte count
smatz
parents: 8932
diff changeset
    87
			for (uint i = 0; i < lengthof(_fund_gui.index); i++) {
420a826a4f88 (svn r12049) -Fix (r10496)(r10619): memset on multibyte array with wrong byte count
smatz
parents: 8932
diff changeset
    88
				_fund_gui.index[i]   = 0xFF;
420a826a4f88 (svn r12049) -Fix (r10496)(r10619): memset on multibyte array with wrong byte count
smatz
parents: 8932
diff changeset
    89
				_fund_gui.text[i]    = STR_NULL;
420a826a4f88 (svn r12049) -Fix (r10496)(r10619): memset on multibyte array with wrong byte count
smatz
parents: 8932
diff changeset
    90
				_fund_gui.enabled[i] = false;
420a826a4f88 (svn r12049) -Fix (r10496)(r10619): memset on multibyte array with wrong byte count
smatz
parents: 8932
diff changeset
    91
			}
420a826a4f88 (svn r12049) -Fix (r10496)(r10619): memset on multibyte array with wrong byte count
smatz
parents: 8932
diff changeset
    92
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    93
			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
    94
			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
    95
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
    96
			if (_game_mode == GM_EDITOR) { // give room for the Many Random "button"
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
    97
				_fund_gui.index[_fund_gui.count] = INVALID_INDUSTRYTYPE;
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
    98
				_fund_gui.count++;
7779
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
    99
				WP(w, fnd_d).timer_enabled = false;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   100
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   101
8204
8ebeee77f39c (svn r11242) -Codechange: When displaying the industry funding gui, present the industries in the same order as they are available.
belugas
parents: 8143
diff changeset
   102
			/* Fill the _fund_gui structure with industries.
8ebeee77f39c (svn r11242) -Codechange: When displaying the industry funding gui, present the industries in the same order as they are available.
belugas
parents: 8143
diff changeset
   103
			 * The tests performed after the enabled allow to load the industries
8ebeee77f39c (svn r11242) -Codechange: When displaying the industry funding gui, present the industries in the same order as they are available.
belugas
parents: 8143
diff changeset
   104
			 * In the same way they are inserted by grf (if any)
8ebeee77f39c (svn r11242) -Codechange: When displaying the industry funding gui, present the industries in the same order as they are available.
belugas
parents: 8143
diff changeset
   105
			 */
7815
04deaeb181ab (svn r10675) -Codechange: unhardcode the industry types used in several locations of the source code.
rubidium
parents: 7785
diff changeset
   106
			for (ind = 0; ind < NUM_INDUSTRYTYPES; ind++) {
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   107
				indsp = GetIndustrySpec(ind);
8204
8ebeee77f39c (svn r11242) -Codechange: When displaying the industry funding gui, present the industries in the same order as they are available.
belugas
parents: 8143
diff changeset
   108
				if (indsp->enabled){
8ebeee77f39c (svn r11242) -Codechange: When displaying the industry funding gui, present the industries in the same order as they are available.
belugas
parents: 8143
diff changeset
   109
					/* Rule is that editor mode loads all industries.
8ebeee77f39c (svn r11242) -Codechange: When displaying the industry funding gui, present the industries in the same order as they are available.
belugas
parents: 8143
diff changeset
   110
					 * In game mode, all non raw industries are loaded too
8ebeee77f39c (svn r11242) -Codechange: When displaying the industry funding gui, present the industries in the same order as they are available.
belugas
parents: 8143
diff changeset
   111
					 * and raw ones are loaded only when setting allows it */
8ebeee77f39c (svn r11242) -Codechange: When displaying the industry funding gui, present the industries in the same order as they are available.
belugas
parents: 8143
diff changeset
   112
					if (_game_mode != GM_EDITOR && indsp->IsRawIndustry() && _patches.raw_industry_construction == 0) continue;
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   113
					_fund_gui.index[_fund_gui.count] = ind;
8143
f03f8a352866 (svn r11178) -Fix: don't check newgrf callback 22 in scenario editor
glx
parents: 8141
diff changeset
   114
					_fund_gui.enabled[_fund_gui.count] = (_game_mode == GM_EDITOR) || CheckIfCallBackAllowsAvailability(ind, IACT_USERCREATION);
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   115
					_fund_gui.count++;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   116
				}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   117
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   118
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   119
			/* first indutry type is selected.
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   120
			 * I'll be damned if there are none available ;) */
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   121
			WP(w, fnd_d).index = 0;
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   122
			WP(w, fnd_d).select = _fund_gui.index[0];
7779
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   123
			WP(w, fnd_d).callback_timer = DAY_TICKS;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   124
		} break;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   125
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   126
		case WE_PAINT: {
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   127
			const IndustrySpec *indsp = (WP(w, fnd_d).select == INVALID_INDUSTRYTYPE) ? NULL : GetIndustrySpec(WP(w, fnd_d).select);
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   128
			int x_str = w->widget[DPIW_INFOPANEL].left + 3;
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   129
			int y_str = w->widget[DPIW_INFOPANEL].top + 3;
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   130
			const Widget *wi = &w->widget[DPIW_INFOPANEL];
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   131
			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
   132
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   133
			/* Raw industries might be prospected. Show this fact by changing the string
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   134
			 * In Editor, you just build, while ingame, or you fund or you prospect */
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   135
			if (_game_mode == GM_EDITOR) {
7779
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   136
				/* We've chosen many random industries but no industries have been specified */
7785
9e85a222f8fb (svn r10637) -Fix: Enable the Random Industries in scenario editor if setting Number of Industries is not NONE.
belugas
parents: 7780
diff changeset
   137
				if (indsp == NULL) _fund_gui.enabled[WP(w, fnd_d).index] = _opt.diff.number_industries != 0;
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   138
				w->widget[DPIW_FUND_WIDGET].data = STR_BUILD_NEW_INDUSTRY;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   139
			} else {
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   140
				w->widget[DPIW_FUND_WIDGET].data = (_patches.raw_industry_construction == 2 && indsp->IsRawIndustry()) ? STR_PROSPECT_NEW_INDUSTRY : STR_FUND_NEW_INDUSTRY;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   141
			}
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   142
			w->SetWidgetDisabledState(DPIW_FUND_WIDGET, !_fund_gui.enabled[WP(w, fnd_d).index]);
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   143
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   144
			SetVScrollCount(w, _fund_gui.count);
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   145
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   146
			DrawWindowWidgets(w);
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   147
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   148
			/* and now with the matrix painting */
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   149
			for (byte i = 0; i < w->vscroll.cap && ((i + w->vscroll.pos) < _fund_gui.count); i++) {
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   150
				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
   151
				int x = 3;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   152
				int y = 16;
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   153
				bool selected = WP(w, fnd_d).index == i + w->vscroll.pos;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   154
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   155
				if (_fund_gui.index[i + w->vscroll.pos] == INVALID_INDUSTRYTYPE) {
8373
2281716386c5 (svn r11427) -Fix: Forgot to Truncate the string "Many Random Industries" in the funding industry window. In some languages, it gets drawn outside of the gui.
belugas
parents: 8320
diff changeset
   156
					DrawStringTruncated(20, y + offset, STR_MANY_RANDOM_INDUSTRIES, selected ? TC_WHITE : TC_ORANGE, max_width - 25);
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   157
					continue;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   158
				}
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   159
				const IndustrySpec *indsp = GetIndustrySpec(_fund_gui.index[i + w->vscroll.pos]);
7714
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
				/* Draw the name of the industry in white is selected, otherwise, in orange */
8320
6ffad7a5d242 (svn r11374) -Codechange: Give meaning to the magical number that specifies the color of the text in a DrawString call.
belugas
parents: 8318
diff changeset
   162
				DrawStringTruncated(20, y + offset, indsp->name, selected ? TC_WHITE : TC_ORANGE, max_width - 25);
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   163
				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
   164
				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
   165
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   166
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   167
			if (WP(w, fnd_d).select == INVALID_INDUSTRYTYPE) {
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   168
				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
   169
				break;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   170
			}
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
			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
   173
				SetDParam(0, indsp->GetConstructionCost());
8320
6ffad7a5d242 (svn r11374) -Codechange: Give meaning to the magical number that specifies the color of the text in a DrawString call.
belugas
parents: 8318
diff changeset
   174
				DrawStringTruncated(x_str, y_str, STR_482F_COST, TC_FROMSTRING, max_width);
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   175
				y_str += 11;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   176
			}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   177
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   178
			/* Draw the accepted cargos, if any. Otherwhise, will print "Nothing" */
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   179
			StringID str = STR_4827_REQUIRES;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   180
			byte p = 0;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   181
			SetDParam(0, STR_00D0_NOTHING);
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   182
			for (byte j = 0; j < lengthof(indsp->accepts_cargo); j++) {
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   183
				if (indsp->accepts_cargo[j] == CT_INVALID) continue;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   184
				if (p > 0) str++;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   185
				SetDParam(p++, GetCargo(indsp->accepts_cargo[j])->name);
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   186
			}
8320
6ffad7a5d242 (svn r11374) -Codechange: Give meaning to the magical number that specifies the color of the text in a DrawString call.
belugas
parents: 8318
diff changeset
   187
			DrawStringTruncated(x_str, y_str, str, TC_FROMSTRING, max_width);
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   188
			y_str += 11;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   189
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;
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   192
			p = 0;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   193
			SetDParam(0, STR_00D0_NOTHING);
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   194
			for (byte j = 0; j < lengthof(indsp->produced_cargo); j++) {
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   195
				if (indsp->produced_cargo[j] == CT_INVALID) continue;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   196
				if (p > 0) str++;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   197
				SetDParam(p++, GetCargo(indsp->produced_cargo[j])->name);
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   198
			}
8320
6ffad7a5d242 (svn r11374) -Codechange: Give meaning to the magical number that specifies the color of the text in a DrawString call.
belugas
parents: 8318
diff changeset
   199
			DrawStringTruncated(x_str, y_str, str, TC_FROMSTRING, max_width);
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   200
			y_str += 11;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   201
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   202
			/* Get the additional purchase info text, if it has not already been */
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   203
			if (_fund_gui.text[WP(w, fnd_d).index] == STR_NULL) {   // Have i been called already?
8424
4a488a90ccab (svn r11481) -Codechange: Rename the HASBIT function to fit with the naming style
skidd13
parents: 8418
diff changeset
   204
				if (HasBit(indsp->callback_flags, CBM_IND_FUND_MORE_TEXT)) {          // No. Can it be called?
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   205
					uint16 callback_res = GetIndustryCallback(CBID_INDUSTRY_FUND_MORE_TEXT, 0, 0, NULL, WP(w, fnd_d).select, INVALID_TILE);
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   206
					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
   207
						StringID newtxt = GetGRFStringID(indsp->grf_prop.grffile->grfid, 0xD000 + callback_res);  // No. here's the new string
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   208
						_fund_gui.text[WP(w, fnd_d).index] = newtxt;   // Store it for further usage
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   209
					}
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
			/* 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
   214
			 * Otherwhise, will print Nothing */
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   215
			str = _fund_gui.text[WP(w, fnd_d).index];
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   216
			if (str != STR_NULL && str != STR_UNDEFINED) {
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   217
				SetDParam(0, str);
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   218
				DrawStringMultiLine(x_str, y_str, STR_JUST_STRING, max_width, wi->bottom - wi->top - 40);
7714
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
		} break;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   221
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   222
		case WE_DOUBLE_CLICK:
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   223
			if (e->we.click.widget != DPIW_MATRIX_WIDGET) break;
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   224
			e->we.click.widget = DPIW_FUND_WIDGET;
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   225
			/* Fall through */
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   226
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   227
		case WE_CLICK:
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   228
			switch (e->we.click.widget) {
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   229
				case DPIW_MATRIX_WIDGET: {
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   230
					const IndustrySpec *indsp;
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   231
					int y = (e->we.click.pt.y - w->widget[DPIW_MATRIX_WIDGET].top) / 13 + w->vscroll.pos ;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   232
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   233
					if (y >= 0 && y < _fund_gui.count) { // Is it within the boundaries of available data?
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   234
						WP(w, fnd_d).index = y;
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   235
						WP(w, fnd_d).select = _fund_gui.index[WP(w, fnd_d).index];
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   236
						indsp = (WP(w, fnd_d).select == INVALID_INDUSTRYTYPE) ? NULL : GetIndustrySpec(WP(w, fnd_d).select);
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   237
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   238
						SetWindowDirty(w);
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   239
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   240
						if ((_game_mode != GM_EDITOR && _patches.raw_industry_construction == 2 && indsp != NULL && indsp->IsRawIndustry()) ||
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   241
								WP(w, fnd_d).select == INVALID_INDUSTRYTYPE) {
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   242
							/* Reset the button state if going to prospecting or "build many industries" */
8528
04b4ef9abd9b (svn r11592) -Codechange: Use the Window member RaiseButtons and remove the now useless RaiseWindowButtons function
belugas
parents: 8493
diff changeset
   243
							w->RaiseButtons();
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   244
							ResetObjectToPlace();
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   245
						}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   246
					}
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   247
				} break;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   248
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   249
				case DPIW_FUND_WIDGET: {
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   250
					if (WP(w, fnd_d).select == INVALID_INDUSTRYTYPE) {
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   251
						w->HandleButtonClick(DPIW_FUND_WIDGET);
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   252
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   253
						if (GetNumTowns() == 0) {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   254
							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
   255
						} else {
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   256
							extern void GenerateIndustries();
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   257
							_generating_world = true;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   258
							GenerateIndustries();
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   259
							_generating_world = false;
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   260
						}
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   261
					} else if (_game_mode != GM_EDITOR && _patches.raw_industry_construction == 2 && GetIndustrySpec(WP(w, fnd_d).select)->IsRawIndustry()) {
8932
989fe2280933 (svn r12006) -Fix: implement FS#1697 without the nasty side effects as specified in FS#1712.
rubidium
parents: 8913
diff changeset
   262
						DoCommandP(0, WP(w, fnd_d).select, InteractiveRandom(), NULL, CMD_BUILD_INDUSTRY | CMD_MSG(STR_4830_CAN_T_CONSTRUCT_THIS_INDUSTRY));
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   263
						w->HandleButtonClick(DPIW_FUND_WIDGET);
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   264
					} else {
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   265
						HandlePlacePushButton(w, DPIW_FUND_WIDGET, SPR_CURSOR_INDUSTRY, VHM_RECT, NULL);
7714
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: {
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   272
			/* Adjust the number of items in the matrix depending of the rezise */
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   273
			w->vscroll.cap  += e->we.sizing.diff.y / (int)w->resize.step_height;
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   274
			w->widget[DPIW_MATRIX_WIDGET].data = (w->vscroll.cap << 8) + 1;
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   275
		} break;
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   276
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   277
		case WE_PLACE_OBJ: {
8243
7af75c16f4ea (svn r11284) -Codechange: don't reset build industry cursor if it failed
glx
parents: 8209
diff changeset
   278
			bool success = true;
7776
aa072bd88690 (svn r10619) -Codechange: Use shorter variable/member names and add some code separation.
belugas
parents: 7775
diff changeset
   279
			/* We do not need to protect ourselves against "Random Many Industries" in this mode */
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   280
			const IndustrySpec *indsp = GetIndustrySpec(WP(w, fnd_d).select);
8932
989fe2280933 (svn r12006) -Fix: implement FS#1697 without the nasty side effects as specified in FS#1712.
rubidium
parents: 8913
diff changeset
   281
			uint32 seed = InteractiveRandom();
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   282
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   283
			if (_game_mode == GM_EDITOR) {
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   284
				/* Show error if no town exists at all */
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   285
				if (GetNumTowns() == 0) {
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   286
					SetDParam(0, indsp->name);
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   287
					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
   288
					return;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   289
				}
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   290
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   291
				_current_player = OWNER_NONE;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   292
				_generating_world = true;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   293
				_ignore_restrictions = true;
8932
989fe2280933 (svn r12006) -Fix: implement FS#1697 without the nasty side effects as specified in FS#1712.
rubidium
parents: 8913
diff changeset
   294
				success = DoCommandP(e->we.place.tile, (InteractiveRandomRange(indsp->num_table) << 16) | WP(w, fnd_d).select, seed, NULL, CMD_BUILD_INDUSTRY | CMD_MSG(STR_4830_CAN_T_CONSTRUCT_THIS_INDUSTRY));
8243
7af75c16f4ea (svn r11284) -Codechange: don't reset build industry cursor if it failed
glx
parents: 8209
diff changeset
   295
				if (!success) {
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   296
					SetDParam(0, indsp->name);
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   297
					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
   298
				}
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   299
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   300
				_ignore_restrictions = false;
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   301
				_generating_world = false;
8243
7af75c16f4ea (svn r11284) -Codechange: don't reset build industry cursor if it failed
glx
parents: 8209
diff changeset
   302
			} else {
8932
989fe2280933 (svn r12006) -Fix: implement FS#1697 without the nasty side effects as specified in FS#1712.
rubidium
parents: 8913
diff changeset
   303
				success = DoCommandP(e->we.place.tile, (InteractiveRandomRange(indsp->num_table) << 16) | WP(w, fnd_d).select, seed, NULL, CMD_BUILD_INDUSTRY | CMD_MSG(STR_4830_CAN_T_CONSTRUCT_THIS_INDUSTRY));
8243
7af75c16f4ea (svn r11284) -Codechange: don't reset build industry cursor if it failed
glx
parents: 8209
diff changeset
   304
			}
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   305
8243
7af75c16f4ea (svn r11284) -Codechange: don't reset build industry cursor if it failed
glx
parents: 8209
diff changeset
   306
			/* If an industry has been built, just reset the cursor and the system */
7af75c16f4ea (svn r11284) -Codechange: don't reset build industry cursor if it failed
glx
parents: 8209
diff changeset
   307
			if (success) ResetObjectToPlace();
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   308
		} break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   309
7779
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   310
		case WE_TICK:
8675
5ff307aa5048 (svn r11742) -Codechange [FS#1319]: Run window tick events when paused, so that news pop-ups and the about window still progress. For other windows the events are ignored when paused.
peter1138
parents: 8636
diff changeset
   311
			if (_pause_game != 0) break;
7779
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   312
			if (!WP(w, fnd_d).timer_enabled) break;
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   313
			if (--WP(w, fnd_d).callback_timer == 0) {
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   314
				/* We have just passed another day.
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   315
				 * See if we need to update availability of currently selected industry */
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   316
				WP(w, fnd_d).callback_timer = DAY_TICKS;  //restart counter
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   317
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   318
				const IndustrySpec *indsp = GetIndustrySpec(WP(w, fnd_d).select);
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   319
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   320
				if (indsp->enabled) {
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   321
					bool call_back_result = CheckIfCallBackAllowsAvailability(WP(w, fnd_d).select, IACT_USERCREATION);
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   322
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   323
					/* Only if result does match the previous state would it require a redraw. */
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   324
					if (call_back_result != _fund_gui.enabled[WP(w, fnd_d).index]) {
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   325
						_fund_gui.enabled[WP(w, fnd_d).index] = call_back_result;
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   326
						SetWindowDirty(w);
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   327
					}
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   328
				}
ad42dbf9069d (svn r10622) -Feature: Introduction of the CBID_INDUSTRY_AVAILABLE's handling, in fund industry window.
belugas
parents: 7778
diff changeset
   329
			}
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   330
			break;
193
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   331
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   332
		case WE_TIMEOUT:
7778
e8ccdf216de1 (svn r10621) -Codechange: install a struct holding the user's selection from _fund_gui.
belugas
parents: 7776
diff changeset
   333
		case WE_ABORT_PLACE_OBJ:
8528
04b4ef9abd9b (svn r11592) -Codechange: Use the Window member RaiseButtons and remove the now useless RaiseWindowButtons function
belugas
parents: 8493
diff changeset
   334
			w->RaiseButtons();
7767
7d8033aa8248 (svn r10600) -Codechange: code-stylising the gui switch-case code
belugas
parents: 7714
diff changeset
   335
			break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   336
	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   337
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   338
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   339
/** Widget definition of the dynamic place industries gui */
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   340
static const Widget _build_dynamic_industry_widgets[] = {
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   341
{   WWT_CLOSEBOX,    RESIZE_NONE,    7,     0,    10,     0,    13, STR_00C5,                       STR_018B_CLOSE_WINDOW},            // DPIW_CLOSEBOX
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   342
{    WWT_CAPTION,   RESIZE_RIGHT,    7,    11,   169,     0,    13, STR_0314_FUND_NEW_INDUSTRY,     STR_018C_WINDOW_TITLE_DRAG_THIS},  // DPIW_CAPTION
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   343
{     WWT_MATRIX,      RESIZE_RB,    7,     0,   157,    14,   118, 0x801,                          STR_INDUSTRY_SELECTION_HINT},      // DPIW_MATRIX_WIDGET
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   344
{  WWT_SCROLLBAR,     RESIZE_LRB,    7,   158,   169,    14,   118, 0x0,                            STR_0190_SCROLL_BAR_SCROLLS_LIST}, // DPIW_SCROLLBAR
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   345
{      WWT_PANEL,     RESIZE_RTB,    7,     0,   169,   119,   199, 0x0,                            STR_NULL},                         // DPIW_INFOPANEL
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   346
{    WWT_TEXTBTN,     RESIZE_RTB,    7,     0,   157,   200,   211, STR_FUND_NEW_INDUSTRY,          STR_NULL},                         // DPIW_FUND_WIDGET
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   347
{  WWT_RESIZEBOX,    RESIZE_LRTB,    7,   158,   169,   200,   211, 0x0,                            STR_RESIZE_BUTTON},                // DPIW_RESIZE_WIDGET
176
84990c4b9212 (svn r177) -Fix: padded out Widget code to solve warnings on C99 compiler (Tron)
darkvater
parents: 164
diff changeset
   348
{   WIDGETS_END},
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   349
};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   350
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   351
/** Window definition of the dynamic place industries gui */
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   352
static const WindowDesc _build_industry_dynamic_desc = {
7837
65d7362153a6 (svn r10704) -Codechange: provide an infrastructure to have resizable windows that are smaller than the default window size.
rubidium
parents: 7815
diff changeset
   353
	WDP_AUTO, WDP_AUTO, 170, 212, 170, 212,
6144
5a0ffbf27ced (svn r8511) -Codechange: make WindowClass an enumerated value.
rubidium
parents: 5860
diff changeset
   354
	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
   355
	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
   356
	_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
   357
	BuildDynamicIndustryWndProc,
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   358
};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   359
6573
7624f942237f (svn r9050) -Codechange: Foo(void) -> Foo()
rubidium
parents: 6527
diff changeset
   360
void ShowBuildIndustryWindow()
193
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   361
{
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   362
	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
   363
	AllocateWindowDescFront(&_build_industry_dynamic_desc, 0);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   364
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   365
7714
d2060492ca03 (svn r10496) -Feature: Replace all the windows for Industry building by a more flexible one.
belugas
parents: 7691
diff changeset
   366
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
   367
7780
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   368
static inline bool isProductionMinimum(const Industry *i, int pt)
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   369
{
8286
f3d626cd1969 (svn r11340) -Fix[FS#1362]: Newindustries can provide no production at start. So the Modifying Production cheat was a bit puzzled on how to deal with it. This will help a bit.
belugas
parents: 8246
diff changeset
   370
	return i->production_rate[pt] == 0;
4211
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   371
}
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   372
7780
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   373
static inline bool isProductionMaximum(const Industry *i, int pt)
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   374
{
8286
f3d626cd1969 (svn r11340) -Fix[FS#1362]: Newindustries can provide no production at start. So the Modifying Production cheat was a bit puzzled on how to deal with it. This will help a bit.
belugas
parents: 8246
diff changeset
   375
	return i->production_rate[pt] >= 255;
4211
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   376
}
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   377
4194
18a32dace8ba (svn r5654) -Cleanup: Change an ugly define into a function
Darkvater
parents: 4193
diff changeset
   378
static inline bool IsProductionAlterable(const Industry *i)
18a32dace8ba (svn r5654) -Cleanup: Change an ugly define into a function
Darkvater
parents: 4193
diff changeset
   379
{
18a32dace8ba (svn r5654) -Cleanup: Change an ugly define into a function
Darkvater
parents: 4193
diff changeset
   380
	return ((_game_mode == GM_EDITOR || _cheats.setup_prod.value) &&
8141
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   381
			(i->accepts_cargo[0] == CT_INVALID || i->accepts_cargo[0] == CT_VALUABLES));
4194
18a32dace8ba (svn r5654) -Cleanup: Change an ugly define into a function
Darkvater
parents: 4193
diff changeset
   382
}
18a32dace8ba (svn r5654) -Cleanup: Change an ugly define into a function
Darkvater
parents: 4193
diff changeset
   383
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   384
/** Names of the widgets of the view industry gui */
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   385
enum IndustryViewWidgets {
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   386
	IVW_CLOSEBOX = 0,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   387
	IVW_CAPTION,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   388
	IVW_STICKY,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   389
	IVW_BACKGROUND,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   390
	IVW_VIEWPORT,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   391
	IVW_INFO,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   392
	IVW_GOTO,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   393
	IVW_SPACER,
8913
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   394
	IVW_RESIZE_WIDGET,
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   395
};
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   396
7780
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   397
/** Information to store about the industry window */
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   398
struct indview_d : public vp_d {
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   399
	byte editbox_line;        ///< The line clicked to open the edit box
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   400
	byte clicked_line;        ///< The line of the button that has been clicked
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   401
	byte clicked_button;      ///< The button that has been clicked (to raise)
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   402
	byte production_offset_y; ///< The offset of the production texts/buttons
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   403
};
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   404
assert_compile(WINDOW_CUSTOM_SIZE >= sizeof(indview_d));
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   405
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   406
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   407
static void IndustryViewWndProc(Window *w, WindowEvent *e)
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   408
{
2951
2db3adee7736 (svn r3510) Fiddle with whitespace and parentheses
tron
parents: 2866
diff changeset
   409
	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
   410
	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
   411
		/* Count the number of lines that we need to resize the GUI with */
8141
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   412
		const Industry *i = GetIndustry(w->window_number);
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   413
		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
   414
		int lines = -3;
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   415
		bool first = true;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   416
		bool has_accept = false;
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
   417
8424
4a488a90ccab (svn r11481) -Codechange: Rename the HASBIT function to fit with the naming style
skidd13
parents: 8418
diff changeset
   418
		if (HasBit(ind->callback_flags, CBM_IND_PRODUCTION_CARGO_ARRIVAL) || HasBit(ind->callback_flags, CBM_IND_PRODUCTION_256_TICKS)) {
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   419
			for (byte j = 0; j < lengthof(i->accepts_cargo); j++) {
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   420
				if (i->accepts_cargo[j] == CT_INVALID) continue;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   421
				has_accept = true;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   422
				if (first) {
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   423
					lines++;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   424
					first = false;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   425
				}
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
   426
				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
   427
			}
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   428
		} else {
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   429
			for (byte j = 0; j < lengthof(i->accepts_cargo); j++) {
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   430
				if (i->accepts_cargo[j] == CT_INVALID) continue;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   431
				has_accept = true;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   432
				lines++;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   433
				break;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   434
			}
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
   435
		}
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
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   437
		first = true;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   438
		for (byte j = 0; j < lengthof(i->produced_cargo); j++) {
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   439
			if (i->produced_cargo[j] == CT_INVALID) continue;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   440
			if (first) {
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   441
				if (has_accept) lines++;
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
   442
				lines++;
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   443
				first = false;
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
   444
			}
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
   445
			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
   446
		}
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
8913
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   448
		if (HasBit(ind->callback_flags, CBM_IND_WINDOW_MORE_TEXT)) {
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   449
			lines += 2;
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   450
		} else {
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   451
			/* Remove the resizing option from the widgets. Do it before the Hiding since it will be overwritten */
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   452
			for (byte j = IVW_INFO; j <= IVW_RESIZE_WIDGET; j++) {
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   453
				w->widget[j].display_flags = RESIZE_NONE;
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   454
			}
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   455
			/* Hide the resize button and enlarge the spacer so it will take its place */
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   456
			w->HideWidget(IVW_RESIZE_WIDGET);
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   457
			w->widget[IVW_SPACER].right = w->widget[IVW_RESIZE_WIDGET].right;
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   458
		}
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
   459
8913
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   460
		lines *= 10;
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   461
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   462
		/* Resize the widgets for the new size, given by the addition of cargos */
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   463
		for (byte j = IVW_INFO; j <= IVW_RESIZE_WIDGET; j++) {
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   464
			if (j != IVW_INFO) w->widget[j].top += lines;
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   465
			w->widget[j].bottom += lines;
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
		}
8913
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   467
		w->height += lines;
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   468
		w->resize.height += lines;
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
   469
	} 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
   470
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   471
	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
   472
		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
   473
		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
   474
		int y = 111;
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   475
		bool first = true;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   476
		bool has_accept = false;
2557
3ed00023e382 (svn r3090) Remove long dead pieces of code
tron
parents: 2469
diff changeset
   477
2070
26c657906f25 (svn r2580) Change: Added {INDUSTRY} command for printing industry names instead of the old {TOWN} {STRING} way.
ludde
parents: 2063
diff changeset
   478
		SetDParam(0, w->window_number);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   479
		DrawWindowWidgets(w);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   480
8424
4a488a90ccab (svn r11481) -Codechange: Rename the HASBIT function to fit with the naming style
skidd13
parents: 8418
diff changeset
   481
		if (HasBit(ind->callback_flags, CBM_IND_PRODUCTION_CARGO_ARRIVAL) || HasBit(ind->callback_flags, CBM_IND_PRODUCTION_256_TICKS)) {
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   482
			for (byte j = 0; j < lengthof(i->accepts_cargo); j++) {
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   483
				if (i->accepts_cargo[j] == CT_INVALID) continue;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   484
				has_accept = true;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   485
				if (first) {
8320
6ffad7a5d242 (svn r11374) -Codechange: Give meaning to the magical number that specifies the color of the text in a DrawString call.
belugas
parents: 8318
diff changeset
   486
					DrawString(2, y, STR_INDUSTRY_WINDOW_WAITING_FOR_PROCESSING, TC_FROMSTRING);
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
   487
					y += 10;
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   488
					first = false;
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
   489
				}
8141
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   490
				SetDParam(0, i->accepts_cargo[j]);
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
   491
				SetDParam(1, i->incoming_cargo_waiting[j]);
8320
6ffad7a5d242 (svn r11374) -Codechange: Give meaning to the magical number that specifies the color of the text in a DrawString call.
belugas
parents: 8318
diff changeset
   492
				DrawString(4, y, STR_INDUSTRY_WINDOW_WAITING_STOCKPILE_CARGO, TC_FROMSTRING);
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
   493
				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
   494
			}
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   495
		} else {
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   496
			StringID str = STR_4827_REQUIRES;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   497
			byte p = 0;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   498
			for (byte j = 0; j < lengthof(i->accepts_cargo); j++) {
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   499
				if (i->accepts_cargo[j] == CT_INVALID) continue;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   500
				has_accept = true;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   501
				if (p > 0) str++;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   502
				SetDParam(p++, GetCargo(i->accepts_cargo[j])->name);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   503
			}
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   504
			if (has_accept) {
8320
6ffad7a5d242 (svn r11374) -Codechange: Give meaning to the magical number that specifies the color of the text in a DrawString call.
belugas
parents: 8318
diff changeset
   505
				DrawString(2, y, str, TC_FROMSTRING);
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   506
				y += 10;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   507
			}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   508
		}
193
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   509
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   510
		first = true;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   511
		for (byte j = 0; j < lengthof(i->produced_cargo); j++) {
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   512
			if (i->produced_cargo[j] == CT_INVALID) continue;
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   513
			if (first) {
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   514
				if (has_accept) y += 10;
8320
6ffad7a5d242 (svn r11374) -Codechange: Give meaning to the magical number that specifies the color of the text in a DrawString call.
belugas
parents: 8318
diff changeset
   515
				DrawString(2, y, STR_482A_PRODUCTION_LAST_MONTH, TC_FROMSTRING);
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
   516
				y += 10;
7780
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   517
				WP(w, indview_d).production_offset_y = y;
8318
cf03501a4664 (svn r11372) -Fix [FS#1394]: don't stop on first invalid cargo type when displaying industry acceptance
glx
parents: 8302
diff changeset
   518
				first = false;
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
   519
			}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   520
8141
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   521
			SetDParam(0, i->produced_cargo[j]);
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
   522
			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
   523
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
   524
			SetDParam(2, i->last_month_pct_transported[j] * 100 >> 8);
8320
6ffad7a5d242 (svn r11374) -Codechange: Give meaning to the magical number that specifies the color of the text in a DrawString call.
belugas
parents: 8318
diff changeset
   525
			DrawString(4 + (IsProductionAlterable(i) ? 30 : 0), y, STR_482B_TRANSPORTED, TC_FROMSTRING);
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
   526
			/* Let's put out those buttons.. */
4211
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   527
			if (IsProductionAlterable(i)) {
7780
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   528
				DrawArrowButtons(5, y, 3, (WP(w, indview_d).clicked_line == j + 1) ? WP(w, indview_d).clicked_button : 0,
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
   529
						!isProductionMinimum(i, j), !isProductionMaximum(i, j));
4211
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   530
			}
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
   531
			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
   532
		}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   533
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
   534
		/* Get the extra message for the GUI */
8424
4a488a90ccab (svn r11481) -Codechange: Rename the HASBIT function to fit with the naming style
skidd13
parents: 8418
diff changeset
   535
		if (HasBit(ind->callback_flags, CBM_IND_WINDOW_MORE_TEXT)) {
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
   536
			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
   537
			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
   538
				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
   539
				if (message != STR_NULL && message != STR_UNDEFINED) {
8913
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   540
					const Widget *wi = &w->widget[IVW_INFO];
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
   541
					y += 10;
8112
f432a920f3b7 (svn r11145) -Codechange: add support for "decoding" TTDPs string codes wrt to registers 0x100 to 0x10F.
rubidium
parents: 7837
diff changeset
   542
8246
ff7b892d8a28 (svn r11287) -Codechange: add support for pushing paramaters into NewIndustries' error messages. Patch by Csaboka.
rubidium
parents: 8243
diff changeset
   543
					PrepareTextRefStackUsage(6);
8913
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   544
					/* Use all the available space left from where we stand up to the end of the window */
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   545
					DrawStringMultiLine(2, y, message, wi->right - wi->left - 4, wi->bottom - y);
8112
f432a920f3b7 (svn r11145) -Codechange: add support for "decoding" TTDPs string codes wrt to registers 0x100 to 0x10F.
rubidium
parents: 7837
diff changeset
   546
					StopTextRefStackUsage();
4211
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   547
				}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   548
			}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   549
		}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   550
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   551
		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
   552
	} break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   553
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   554
	case WE_CLICK: {
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   555
		Industry *i;
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   556
4634
897461a3e9ca (svn r6499) -Codechange: Finally, got "byte event" outside of the union WindowEvent, which is now a struct
belugas
parents: 4617
diff changeset
   557
		switch (e->we.click.widget) {
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   558
		case IVW_INFO: {
4193
ef08dda0369e (svn r5653) -Cleanup: Do a little cleanup of the industry gui code.
Darkvater
parents: 4192
diff changeset
   559
			int line, x;
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   560
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   561
			i = GetIndustry(w->window_number);
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   562
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
   563
			/* We should work if needed.. */
4194
18a32dace8ba (svn r5654) -Cleanup: Change an ugly define into a function
Darkvater
parents: 4193
diff changeset
   564
			if (!IsProductionAlterable(i)) return;
4634
897461a3e9ca (svn r6499) -Codechange: Finally, got "byte event" outside of the union WindowEvent, which is now a struct
belugas
parents: 4617
diff changeset
   565
			x = e->we.click.pt.x;
7780
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   566
			line = (e->we.click.pt.y - WP(w, indview_d).production_offset_y) / 10;
8450
dce58137301f (svn r11510) -Codechange: merge the IS_*INSIDE* functions and rename them fitting to the naming style
skidd13
parents: 8424
diff changeset
   567
			if (e->we.click.pt.y >= WP(w, indview_d).production_offset_y && IsInsideMM(line, 0, 2) && i->produced_cargo[line] != CT_INVALID) {
dce58137301f (svn r11510) -Codechange: merge the IS_*INSIDE* functions and rename them fitting to the naming style
skidd13
parents: 8424
diff changeset
   568
				if (IsInsideMM(x, 5, 25) ) {
4193
ef08dda0369e (svn r5653) -Cleanup: Do a little cleanup of the industry gui code.
Darkvater
parents: 4192
diff changeset
   569
					/* Clicked buttons, decrease or increase production */
1019
6363b8a4273e (svn r1520) Trim 134 (!) lines with trailing whitespace ):
tron
parents: 1004
diff changeset
   570
					if (x < 15) {
4211
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   571
						if (isProductionMinimum(i, line)) return;
8286
f3d626cd1969 (svn r11340) -Fix[FS#1362]: Newindustries can provide no production at start. So the Modifying Production cheat was a bit puzzled on how to deal with it. This will help a bit.
belugas
parents: 8246
diff changeset
   572
						i->production_rate[line] = max(i->production_rate[line] / 2, 0);
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   573
					} else {
8286
f3d626cd1969 (svn r11340) -Fix[FS#1362]: Newindustries can provide no production at start. So the Modifying Production cheat was a bit puzzled on how to deal with it. This will help a bit.
belugas
parents: 8246
diff changeset
   574
						/* a zero production industry is unlikely to give anything but zero, so push it a little bit */
f3d626cd1969 (svn r11340) -Fix[FS#1362]: Newindustries can provide no production at start. So the Modifying Production cheat was a bit puzzled on how to deal with it. This will help a bit.
belugas
parents: 8246
diff changeset
   575
						int new_prod = i->production_rate[line] == 0 ? 1 : i->production_rate[line] * 2;
4211
d8c4c40eba62 (svn r5714) Backport from branches/TGP (r5701 and r5711)
miham
parents: 4194
diff changeset
   576
						if (isProductionMaximum(i, line)) return;
8286
f3d626cd1969 (svn r11340) -Fix[FS#1362]: Newindustries can provide no production at start. So the Modifying Production cheat was a bit puzzled on how to deal with it. This will help a bit.
belugas
parents: 8246
diff changeset
   577
						i->production_rate[line] = minu(new_prod, 255);
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   578
					}
4193
ef08dda0369e (svn r5653) -Cleanup: Do a little cleanup of the industry gui code.
Darkvater
parents: 4192
diff changeset
   579
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   580
					UpdateIndustryProduction(i);
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   581
					SetWindowDirty(w);
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   582
					w->flags4 |= 5 << WF_TIMEOUT_SHL;
7780
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   583
					WP(w, indview_d).clicked_line = line + 1;
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   584
					WP(w, indview_d).clicked_button = (x < 15 ? 1 : 2);
8450
dce58137301f (svn r11510) -Codechange: merge the IS_*INSIDE* functions and rename them fitting to the naming style
skidd13
parents: 8424
diff changeset
   585
				} else if (IsInsideMM(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
   586
					/* clicked the text */
7780
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   587
					WP(w, indview_d).editbox_line = line;
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   588
					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
   589
					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
   590
				}
1019
6363b8a4273e (svn r1520) Trim 134 (!) lines with trailing whitespace ):
tron
parents: 1004
diff changeset
   591
			}
4193
ef08dda0369e (svn r5653) -Cleanup: Do a little cleanup of the industry gui code.
Darkvater
parents: 4192
diff changeset
   592
		} break;
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   593
		case IVW_GOTO:
919
b0d6c7642f99 (svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents: 893
diff changeset
   594
			i = GetIndustry(w->window_number);
1981
de031d2aed47 (svn r2487) Replace TILE_XY by TileXY/TileDiffXY
tron
parents: 1914
diff changeset
   595
			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
   596
		} break;
4193
ef08dda0369e (svn r5653) -Cleanup: Do a little cleanup of the industry gui code.
Darkvater
parents: 4192
diff changeset
   597
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   598
		}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   599
		break;
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   600
	case WE_TIMEOUT:
7780
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   601
		WP(w, indview_d).clicked_line = 0;
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   602
		WP(w, indview_d).clicked_button = 0;
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   603
		SetWindowDirty(w);
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   604
		break;
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   605
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   606
	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
   607
		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
   608
			Industry* i = GetIndustry(w->window_number);
7780
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   609
			int line = WP(w, indview_d).editbox_line;
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   610
8418
b49fc6be1ab9 (svn r11475) -Codechange: rename clamp and clampu to Clamp and ClampU to fit with the coding style
skidd13
parents: 8385
diff changeset
   611
			i->production_rate[line] = ClampU(atoi(e->we.edittext.str), 0, 255);
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   612
			UpdateIndustryProduction(i);
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   613
			SetWindowDirty(w);
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   614
		}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   615
	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   616
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   617
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   618
static void UpdateIndustryProduction(Industry *i)
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   619
{
8141
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   620
	for (byte j = 0; j < lengthof(i->produced_cargo); j++) {
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   621
		if (i->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
   622
			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
   623
		}
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
   624
	}
1004
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   625
}
edbdc62fbf24 (svn r1503) Added feature:
miham
parents: 919
diff changeset
   626
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   627
/** Widget definition of the view industy gui */
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   628
static const Widget _industry_view_widgets[] = {
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   629
{   WWT_CLOSEBOX,   RESIZE_NONE,     9,     0,    10,     0,    13, STR_00C5,          STR_018B_CLOSE_WINDOW},            // IVW_CLOSEBOX
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   630
{    WWT_CAPTION,   RESIZE_NONE,     9,    11,   247,     0,    13, STR_4801,          STR_018C_WINDOW_TITLE_DRAG_THIS},  // IVW_CAPTION
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   631
{  WWT_STICKYBOX,   RESIZE_NONE,     9,   248,   259,     0,    13, 0x0,               STR_STICKY_BUTTON},                // IVW_STICKY
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   632
{      WWT_PANEL,   RESIZE_NONE,     9,     0,   259,    14,   105, 0x0,               STR_NULL},                         // IVW_BACKGROUND
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   633
{      WWT_INSET,   RESIZE_NONE,     9,     2,   257,    16,   103, 0x0,               STR_NULL},                         // IVW_VIEWPORT
8913
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   634
{      WWT_PANEL, RESIZE_BOTTOM,     9,     0,   259,   106,   147, 0x0,               STR_NULL},                         // IVW_INFO
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   635
{ WWT_PUSHTXTBTN,     RESIZE_TB,     9,     0,   129,   148,   159, STR_00E4_LOCATION, STR_482C_CENTER_THE_MAIN_VIEW_ON}, // IVW_GOTO
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   636
{      WWT_PANEL,     RESIZE_TB,     9,   130,   247,   148,   159, 0x0,               STR_NULL},                         // IVW_SPACER
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   637
{  WWT_RESIZEBOX,     RESIZE_TB,     9,   248,   259,   148,   159, 0x0,               STR_RESIZE_BUTTON},                // IVW_RESIZE_WIDGET
176
84990c4b9212 (svn r177) -Fix: padded out Widget code to solve warnings on C99 compiler (Tron)
darkvater
parents: 164
diff changeset
   638
{   WIDGETS_END},
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   639
};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   640
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   641
/** Window definition of the view industy gui */
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   642
static const WindowDesc _industry_view_desc = {
7837
65d7362153a6 (svn r10704) -Codechange: provide an infrastructure to have resizable windows that are smaller than the default window size.
rubidium
parents: 7815
diff changeset
   643
	WDP_AUTO, WDP_AUTO, 260, 160, 260, 160,
6144
5a0ffbf27ced (svn r8511) -Codechange: make WindowClass an enumerated value.
rubidium
parents: 5860
diff changeset
   644
	WC_INDUSTRY_VIEW, WC_NONE,
8913
b62e2db9de38 (svn r11987) -Feature[newGRF]: Allow the industry view window to be resized only when callback 3A (Show additional text in industry window) is available for the current industry.
belugas
parents: 8845
diff changeset
   645
	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
   646
	_industry_view_widgets,
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   647
	IndustryViewWndProc
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   648
};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   649
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   650
void ShowIndustryViewWindow(int industry)
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   651
{
4171
3fadda3afe70 (svn r5609) CodeChange : Apply coding style
belugas
parents: 3689
diff changeset
   652
	Window *w = AllocateWindowDescFront(&_industry_view_desc, industry);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   653
2989
99c95a3ebcaa (svn r3564) Several smaller changes:
tron
parents: 2952
diff changeset
   654
	if (w != NULL) {
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   655
		w->flags4 |= WF_DISABLE_VP_SCROLL;
7780
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   656
		WP(w, indview_d).editbox_line = 0;
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   657
		WP(w, indview_d).clicked_line = 0;
205d95d3bb5b (svn r10624) -Fix [FS#1047]: the production of banks could not be modified (either in scenario editor or with the cheat).
rubidium
parents: 7779
diff changeset
   658
		WP(w, indview_d).clicked_button = 0;
7120
e31767effc16 (svn r9844) -Codechange: replace zoomlevel with an enum
truelight
parents: 6988
diff changeset
   659
		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
   660
	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   661
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   662
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   663
/** Names of the widgets of the industry directory gui */
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   664
enum IndustryDirectoryWidgets {
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   665
	IDW_CLOSEBOX = 0,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   666
	IDW_CAPTION,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   667
	IDW_STICKY,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   668
	IDW_SORTBYNAME,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   669
	IDW_SORTBYTYPE,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   670
	IDW_SORTBYPROD,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   671
	IDW_SORTBYTRANSPORT,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   672
	IDW_SPACER,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   673
	IDW_INDUSRTY_LIST,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   674
	IDW_SCROLLBAR,
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   675
	IDW_RESIZE,
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   676
};
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   677
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   678
/** Widget definition of the industy directory gui */
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   679
static const Widget _industry_directory_widgets[] = {
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   680
{   WWT_CLOSEBOX,   RESIZE_NONE,    13,     0,    10,     0,    13, STR_00C5,                STR_018B_CLOSE_WINDOW},             // IDW_CLOSEBOX
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   681
{    WWT_CAPTION,   RESIZE_NONE,    13,    11,   495,     0,    13, STR_INDUSTRYDIR_CAPTION, STR_018C_WINDOW_TITLE_DRAG_THIS},   // IDW_CAPTION
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   682
{  WWT_STICKYBOX,   RESIZE_NONE,    13,   496,   507,     0,    13, 0x0,                     STR_STICKY_BUTTON},                 // IDW_STICKY
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   683
{ WWT_PUSHTXTBTN,   RESIZE_NONE,    13,     0,   100,    14,    25, STR_SORT_BY_NAME,        STR_SORT_ORDER_TIP},                // IDW_SORTBYNAME
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   684
{ WWT_PUSHTXTBTN,   RESIZE_NONE,    13,   101,   200,    14,    25, STR_SORT_BY_TYPE,        STR_SORT_ORDER_TIP},                // IDW_SORTBYTYPE
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   685
{ WWT_PUSHTXTBTN,   RESIZE_NONE,    13,   201,   300,    14,    25, STR_SORT_BY_PRODUCTION,  STR_SORT_ORDER_TIP},                // IDW_SORTBYPROD
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   686
{ WWT_PUSHTXTBTN,   RESIZE_NONE,    13,   301,   400,    14,    25, STR_SORT_BY_TRANSPORTED, STR_SORT_ORDER_TIP},                // IDW_SORTBYTRANSPORT
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   687
{      WWT_PANEL,   RESIZE_NONE,    13,   401,   495,    14,    25, 0x0,                     STR_NULL},                          // IDW_SPACER
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   688
{      WWT_PANEL, RESIZE_BOTTOM,    13,     0,   495,    26,   189, 0x0,                     STR_200A_TOWN_NAMES_CLICK_ON_NAME}, // IDW_INDUSRTY_LIST
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   689
{  WWT_SCROLLBAR, RESIZE_BOTTOM,    13,   496,   507,    14,   177, 0x0,                     STR_0190_SCROLL_BAR_SCROLLS_LIST},  // IDW_SCROLLBAR
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   690
{  WWT_RESIZEBOX,     RESIZE_TB,    13,   496,   507,   178,   189, 0x0,                     STR_RESIZE_BUTTON},                 // IDW_RESIZE
176
84990c4b9212 (svn r177) -Fix: padded out Widget code to solve warnings on C99 compiler (Tron)
darkvater
parents: 164
diff changeset
   691
{   WIDGETS_END},
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   692
};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   693
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   694
static uint _num_industry_sort;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   695
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   696
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
   697
static const Industry* _last_industry;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   698
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   699
static byte _industry_sort_order;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   700
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
   701
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
   702
{
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
   703
	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
   704
	const Industry* j = *(const Industry**)b;
4282
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   705
	int r;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   706
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   707
	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
   708
		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
   709
		case 0: /* Sort by Name (handled later) */
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   710
			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
   711
			break;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   712
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   713
		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
   714
			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
   715
			break;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   716
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   717
		case 2: /* Sort by Production */
8141
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   718
			if (i->produced_cargo[0] == CT_INVALID) {
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   719
				r = (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
   720
			} else {
8141
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   721
				if (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
   722
					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
   723
				} else {
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   724
					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
   725
						(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
   726
						(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
   727
				}
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   728
			}
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   729
			break;
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   730
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   731
		case 3: /* Sort by transported fraction */
8141
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   732
			if (i->produced_cargo[0] == CT_INVALID) {
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   733
				r = (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
   734
			} else {
8141
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   735
				if (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
   736
					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
   737
				} else {
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   738
					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
   739
					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
   740
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
					pi = i->last_month_pct_transported[0] * 100 >> 8;
8141
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   742
					if (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
   743
						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
   744
						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
   745
					}
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   746
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
   747
					pj = j->last_month_pct_transported[0] * 100 >> 8;
8141
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   748
					if (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
   749
						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
   750
						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
   751
					}
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   752
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   753
					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
   754
				}
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   755
			}
cd0af1cdc454 (svn r5912) -Fix: Sort order for produced amount and transported percentage was reversed in the industry list
tron
parents: 4277
diff changeset
   756
			break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   757
	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   758
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
   759
	/* 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
   760
	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
   761
		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
   762
2070
26c657906f25 (svn r2580) Change: Added {INDUSTRY} command for printing industry names instead of the old {TOWN} {STRING} way.
ludde
parents: 2063
diff changeset
   763
		SetDParam(0, i->town->index);
4912
d04b3f2bca70 (svn r6884) -Codechange: Add strict bounds checking in string formatting system.
Darkvater
parents: 4896
diff changeset
   764
		GetString(buf1, STR_TOWN, lastof(buf1));
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   765
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
   766
		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
   767
			_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
   768
			SetDParam(0, j->town->index);
4912
d04b3f2bca70 (svn r6884) -Codechange: Add strict bounds checking in string formatting system.
Darkvater
parents: 4896
diff changeset
   769
			GetString(_bufcache, STR_TOWN, lastof(_bufcache));
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   770
		}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   771
		r = strcmp(buf1, _bufcache);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   772
	}
193
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   773
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   774
	if (_industry_sort_order & 1) r = -r;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   775
	return r;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   776
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   777
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
   778
/**
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
   779
 * 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
   780
 * 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
   781
 * 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
   782
 * 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
   783
 */
6573
7624f942237f (svn r9050) -Codechange: Foo(void) -> Foo()
rubidium
parents: 6527
diff changeset
   784
static void MakeSortedIndustryList()
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   785
{
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
   786
	const Industry* i;
919
b0d6c7642f99 (svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents: 893
diff changeset
   787
	int n = 0;
b0d6c7642f99 (svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents: 893
diff changeset
   788
b0d6c7642f99 (svn r1407) -Codechange: changed a lot around _stations, _vehicles, _towns and _industries
truelight
parents: 893
diff changeset
   789
	/* 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
   790
	_industry_sort = ReallocT(_industry_sort, GetMaxIndustryIndex() + 1);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   791
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
   792
	/* 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
   793
	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
   794
		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
   795
		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
   796
	}
4346
3f00094f2670 (svn r6047) -Codechange: FOR_ALL now _only_ loops valid items, and skips invalid ones
truelight
parents: 4344
diff changeset
   797
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   798
	_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
   799
	_last_industry = NULL; // used for "cache"
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   800
5568
75f13d7bfaed (svn r7565) -Codechange: Rework DEBUG functionality. Look for appropiate debugging levels to
Darkvater
parents: 5247
diff changeset
   801
	DEBUG(misc, 3, "Resorting industries list");
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   802
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   803
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   804
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   805
static void IndustryDirectoryWndProc(Window *w, WindowEvent *e)
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   806
{
2951
2db3adee7736 (svn r3510) Fiddle with whitespace and parentheses
tron
parents: 2866
diff changeset
   807
	switch (e->event) {
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   808
	case WE_PAINT: {
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   809
		if (_industry_sort_dirty) {
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   810
			_industry_sort_dirty = false;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   811
			MakeSortedIndustryList();
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   812
		}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   813
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
   814
		SetVScrollCount(w, _num_industry_sort);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   815
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   816
		DrawWindowWidgets(w);
8845
e0eac76d3d16 (svn r11915) -Codechange: Add a function to draw a sort button's up/down arrow. Arrows are now drawn in a consistent position based on the widget, instead of randomly positioned by pixel.
peter1138
parents: 8766
diff changeset
   817
		DrawSortButtonState(w, IDW_SORTBYNAME + (_industry_sort_order >> 1), _industry_sort_order & 1 ? SBS_DOWN : SBS_UP);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   818
8845
e0eac76d3d16 (svn r11915) -Codechange: Add a function to draw a sort button's up/down arrow. Arrows are now drawn in a consistent position based on the widget, instead of randomly positioned by pixel.
peter1138
parents: 8766
diff changeset
   819
		uint p = w->vscroll.pos;
e0eac76d3d16 (svn r11915) -Codechange: Add a function to draw a sort button's up/down arrow. Arrows are now drawn in a consistent position based on the widget, instead of randomly positioned by pixel.
peter1138
parents: 8766
diff changeset
   820
		int n = 0;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   821
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   822
		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
   823
			const Industry* i = _industry_sort[p];
2989
99c95a3ebcaa (svn r3564) Several smaller changes:
tron
parents: 2952
diff changeset
   824
2070
26c657906f25 (svn r2580) Change: Added {INDUSTRY} command for printing industry names instead of the old {TOWN} {STRING} way.
ludde
parents: 2063
diff changeset
   825
			SetDParam(0, i->index);
8141
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   826
			if (i->produced_cargo[0] != CT_INVALID) {
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   827
				SetDParam(1, i->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
   828
				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
   829
8141
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   830
				if (i->produced_cargo[1] != CT_INVALID) {
c052dc0dc029 (svn r11176) -Revert (r9867): as it is needed for newgrf callbacks 14B and 14C
glx
parents: 8112
diff changeset
   831
					SetDParam(3, i->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
   832
					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
   833
					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
   834
					SetDParam(6, i->last_month_pct_transported[1] * 100 >> 8);
8320
6ffad7a5d242 (svn r11374) -Codechange: Give meaning to the magical number that specifies the color of the text in a DrawString call.
belugas
parents: 8318
diff changeset
   835
					DrawString(4, 28 + n * 10, STR_INDUSTRYDIR_ITEM_TWO, TC_FROMSTRING);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   836
				} 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
   837
					SetDParam(3, i->last_month_pct_transported[0] * 100 >> 8);
8320
6ffad7a5d242 (svn r11374) -Codechange: Give meaning to the magical number that specifies the color of the text in a DrawString call.
belugas
parents: 8318
diff changeset
   838
					DrawString(4, 28 + n * 10, STR_INDUSTRYDIR_ITEM, TC_FROMSTRING);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   839
				}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   840
			} else {
8320
6ffad7a5d242 (svn r11374) -Codechange: Give meaning to the magical number that specifies the color of the text in a DrawString call.
belugas
parents: 8318
diff changeset
   841
				DrawString(4, 28 + n * 10, STR_INDUSTRYDIR_ITEM_NOPROD, TC_FROMSTRING);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   842
			}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   843
			p++;
2951
2db3adee7736 (svn r3510) Fiddle with whitespace and parentheses
tron
parents: 2866
diff changeset
   844
			if (++n == w->vscroll.cap) break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   845
		}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   846
	} break;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   847
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   848
	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
   849
		switch (e->we.click.widget) {
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   850
			case IDW_SORTBYNAME: {
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   851
				_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
   852
				_industry_sort_dirty = true;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   853
				SetWindowDirty(w);
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   854
			} break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   855
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   856
			case IDW_SORTBYTYPE: {
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   857
				_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
   858
				_industry_sort_dirty = true;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   859
				SetWindowDirty(w);
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   860
			} break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   861
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   862
			case IDW_SORTBYPROD: {
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   863
				_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
   864
				_industry_sort_dirty = true;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   865
				SetWindowDirty(w);
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   866
			} break;
193
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   867
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   868
			case IDW_SORTBYTRANSPORT: {
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   869
				_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
   870
				_industry_sort_dirty = true;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   871
				SetWindowDirty(w);
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   872
			} break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   873
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   874
			case IDW_INDUSRTY_LIST: {
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   875
				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
   876
				uint16 p;
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   877
8450
dce58137301f (svn r11510) -Codechange: merge the IS_*INSIDE* functions and rename them fitting to the naming style
skidd13
parents: 8424
diff changeset
   878
				if (!IsInsideMM(y, 0, w->vscroll.cap)) return;
7774
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   879
				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
   880
				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
   881
					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
   882
				}
4fe72e9c0daa (svn r10617) -Codechange: code style changes (removing an erroneous tab plus switch case alignment)
belugas
parents: 7767
diff changeset
   883
			} break;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   884
		}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   885
		break;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   886
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   887
	case WE_4:
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   888
		SetWindowDirty(w);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   889
		break;
867
581154a08a78 (svn r1348) -Feature: resizable windows. Read the comment in window.h to find out
truelight
parents: 830
diff changeset
   890
581154a08a78 (svn r1348) -Feature: resizable windows. Read the comment in window.h to find out
truelight
parents: 830
diff changeset
   891
	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
   892
		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
   893
		break;
193
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents: 176
diff changeset
   894
	}
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   895
}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   896
8543
fd72fcb5e3c4 (svn r11607) -Codechange: Enumify the industry widgets
skidd13
parents: 8536
diff changeset
   897
/** Window definition of the industy directory gui */
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   898
static const WindowDesc _industry_directory_desc = {
7837
65d7362153a6 (svn r10704) -Codechange: provide an infrastructure to have resizable windows that are smaller than the default window size.
rubidium
parents: 7815
diff changeset
   899
	WDP_AUTO, WDP_AUTO, 508, 190, 508, 190,
6144
5a0ffbf27ced (svn r8511) -Codechange: make WindowClass an enumerated value.
rubidium
parents: 5860
diff changeset
   900
	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
   901
	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
   902
	_industry_directory_widgets,
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   903
	IndustryDirectoryWndProc
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   904
};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   905
6573
7624f942237f (svn r9050) -Codechange: Foo(void) -> Foo()
rubidium
parents: 6527
diff changeset
   906
void ShowIndustryDirectory()
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   907
{
4171
3fadda3afe70 (svn r5609) CodeChange : Apply coding style
belugas
parents: 3689
diff changeset
   908
	Window *w = AllocateWindowDescFront(&_industry_directory_desc, 0);
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   909
2989
99c95a3ebcaa (svn r3564) Several smaller changes:
tron
parents: 2952
diff changeset
   910
	if (w != NULL) {
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   911
		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
   912
		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
   913
		w->resize.step_height = 10;
0
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   914
		SetWindowDirty(w);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   915
	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN
truelight
parents:
diff changeset
   916
}