1 (*

     2  * Hedgewars, a worms-like game

     3  * Copyright (c) 2004, 2005 Andrey Korotaev <unC0Rr@gmail.com>

     4  *

     5  * Distributed under the terms of the BSD-modified licence:

     6  *

     7  * Permission is hereby granted, free of charge, to any person obtaining a copy

     8  * of this software and associated documentation files (the "Software"), to deal

     9  * with the Software without restriction, including without limitation the

    10  * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or

    11  * sell copies of the Software, and to permit persons to whom the Software is

    12  * furnished to do so, subject to the following conditions:

    13  *

    14  * 1. Redistributions of source code must retain the above copyright notice,

    15  *    this list of conditions and the following disclaimer.

    16  * 2. Redistributions in binary form must reproduce the above copyright notice,

    17  *    this list of conditions and the following disclaimer in the documentation

    18  *    and/or other materials provided with the distribution.

    19  * 3. The name of the author may not be used to endorse or promote products

    20  *    derived from this software without specific prior written permission.

    21  *

    22  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED

    23  * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF

    24  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO

    25  * EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,

    26  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,

    27  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;

    28  * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,

    29  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR

    30  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF

    31  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

    32  *)

    33 

    34 unit fOptionsGUI;

    35 interface

    36 uses windows,

    37      messages,SysUtils;

    38 

    39 procedure DoCreateOptionsWindow;

    40 procedure ShowOptionsWindow;

    41 procedure DoCreateOptionsControls;

    42 

    43 var HOptTeamName, HOptBGStatic : HWND;

    44     HOptHedgeName : array[0..7] of HWND; 

    45 

    46 

    47 

    48 implementation

    49 uses fGUI,

    50      fConsts, fMisc;

    51 

    52 procedure ShowOptionsWindow;

    53 begin

    54 ShowWindow(hwndOptions,SW_SHOW);

    55 ShowWindow(hwndMain, SW_HIDE);

    56 ShowWindow(HOptTeamName,SW_SHOW)

    57 end;

    58 

    59 procedure DoCreateOptionsControls;

    60 var i:integer;

    61 begin

    62 HOptBGStatic  := CreateWindow('STATIC','opt bg img'   ,WS_CHILD or WS_VISIBLE or SS_OWNERDRAW, 0, 0, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN) , hwndOptions, cOptBGStatic, HInstance, nil);

    63 HOptTeamName  := CreateWindow('EDIT','Колючая Команда',WS_CHILD or WS_TABSTOP or WS_VISIBLE, trunc(260 * scrx), trunc(70 *scry), trunc(215* scrx) , trunc(28*scry) , hwndOptions, cOptTeamName, HInstance, nil);

    64 for i := 0 to 7 do

    65 HOptHedgeName[i] := CreateWindow('EDIT',PChar('Йож '+inttostr(i+1)),WS_CHILD or WS_TABSTOP or WS_VISIBLE, trunc(110 * scrx), trunc((102+i*28)*scry), trunc(260* scrx) , trunc(25*scry) , hwndOptions, cOptTeamName, HInstance, nil);

    66 end;

    67 

    68 procedure DoCreateOptionsWindow;

    69 var  wc: WNDCLASS;

    70 begin

    71 FillChar(wc, sizeof(wc), 0);

    72 wc.style         := CS_VREDRAW or CS_HREDRAW;

    73 wc.hbrBackground := COLOR_BACKGROUND;

    74 wc.lpfnWndProc   := @MainWndProc;

    75 wc.hInstance     := hInstance;

    76 wc.lpszClassName := cOptionsName;

    77 wc.hCursor := LoadCursor(hwndOptions,IDC_ARROW);

    78 if RegisterClass(wc) = 0 then begin MessageBox(0,'RegisterClass failed for opts wnd','Failed',MB_OK); halt; end;

    79 hwndOptions := CreateWindowEx(0, cOptionsName, cOptionsTitle, WS_POPUP,

    80 	                    0, 0,

    81 	                    GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN),

    82                             0, 0, hInstance, nil)

    83 end;

    84 

    85 

    86 end.