Revision 156:c3e84c102edd
| b/Client/CentrED.lpi | ||
|---|---|---|
| 356 | 356 |
<Linking> |
| 357 | 357 |
<Debugging> |
| 358 | 358 |
<UseLineInfoUnit Value="False"/> |
| 359 |
<UseExternalDbgSyms Value="True"/>
|
|
| 359 |
<StripSymbols Value="True"/>
|
|
| 360 | 360 |
</Debugging> |
| 361 | 361 |
<LinkSmart Value="True"/> |
| 362 | 362 |
<Options> |
| b/Client/UfrmMain.lfm | ||
|---|---|---|
| 16 | 16 |
OnCreate = FormCreate |
| 17 | 17 |
OnDestroy = FormDestroy |
| 18 | 18 |
Position = poScreenCenter |
| 19 |
SessionProperties = 'acFlat.Checked;acNoDraw.Checked;Height;Left;mnuFlatShowHeight.Checked;mnuSecurityQuestion.Checked;mnuShowAnimations.Checked;tbStatics.Down;tbTerrain.Down;Top;Width;WindowState;spTileList.Top'
|
|
| 19 |
SessionProperties = 'acFlat.Checked;acNoDraw.Checked;Height;Left;mnuFlatShowHeight.Checked;mnuSecurityQuestion.Checked;mnuShowAnimations.Checked;spTileList.Top;tbStatics.Down;tbTerrain.Down;Top;Width;WindowState;mnuWhiteBackground.Checked'
|
|
| 20 | 20 |
ShowInTaskBar = stAlways |
| 21 | 21 |
LCLVersion = '0.9.29' |
| 22 | 22 |
WindowState = wsMaximized |
| ... | ... | |
| 1447 | 1447 |
Checked = True |
| 1448 | 1448 |
Hint = 'Ask for permission before processing area commands.' |
| 1449 | 1449 |
end |
| 1450 |
object mnuWhiteBackground: TMenuItem |
|
| 1451 |
AutoCheck = True |
|
| 1452 |
Caption = '&White Background' |
|
| 1453 |
OnClick = mnuWhiteBackgroundClick |
|
| 1454 |
end |
|
| 1450 | 1455 |
end |
| 1451 | 1456 |
object mnuHelp: TMenuItem |
| 1452 | 1457 |
Caption = '&?' |
| b/Client/UfrmMain.pas | ||
|---|---|---|
| 99 | 99 |
lblY: TLabel; |
| 100 | 100 |
lbClients: TListBox; |
| 101 | 101 |
MainMenu1: TMainMenu; |
| 102 |
mnuWhiteBackground: TMenuItem; |
|
| 102 | 103 |
mnuSecurityQuestion: TMenuItem; |
| 103 | 104 |
mnuShowAnimations: TMenuItem; |
| 104 | 105 |
mnuSettings: TMenuItem; |
| ... | ... | |
| 228 | 229 |
procedure mnuRegionControlClick(Sender: TObject); |
| 229 | 230 |
procedure mnuShowAnimationsClick(Sender: TObject); |
| 230 | 231 |
procedure mnuShutdownClick(Sender: TObject); |
| 232 |
procedure mnuWhiteBackgroundClick(Sender: TObject); |
|
| 231 | 233 |
procedure oglGameWindowDblClick(Sender: TObject); |
| 232 | 234 |
procedure oglGameWindowKeyDown(Sender: TObject; var Key: Word; |
| 233 | 235 |
Shift: TShiftState); |
| ... | ... | |
| 509 | 511 |
dmNetwork.Send(TQuitServerPacket.Create(''));
|
| 510 | 512 |
end; |
| 511 | 513 |
|
| 514 |
procedure TfrmMain.mnuWhiteBackgroundClick(Sender: TObject); |
|
| 515 |
begin |
|
| 516 |
FRepaintNeeded := True; |
|
| 517 |
end; |
|
| 518 |
|
|
| 512 | 519 |
procedure TfrmMain.oglGameWindowDblClick(Sender: TObject); |
| 513 | 520 |
begin |
| 514 | 521 |
if (acSelect.Checked) and (CurrentTile <> nil) then |
| ... | ... | |
| 1403 | 1410 |
|
| 1404 | 1411 |
procedure TfrmMain.oglGameWindowPaint(Sender: TObject); |
| 1405 | 1412 |
begin |
| 1406 |
glClearColor(0, 0, 0, 1); |
|
| 1413 |
if mnuWhiteBackground.Checked then |
|
| 1414 |
glClearColor(1, 1, 1, 1) |
|
| 1415 |
else |
|
| 1416 |
glClearColor(0, 0, 0, 1); |
|
| 1407 | 1417 |
glClear(GL_COLOR_BUFFER_BIT); |
| 1408 | 1418 |
|
| 1409 | 1419 |
InitRender; |
Also available in: Unified diff