Revision 156:c3e84c102edd Client/UfrmMain.pas
| 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