Deutsches Lazarusforum

Heinrich Wolf hat geschrieben:Hallo,

die Bildschirmauflösung ändern geht nicht so einfach. Die Größe Deines Fensters ändern ist aber einfach.

Code: Alles auswählen

Height := ...; 
Width := ...;

Heiner

Ja, nur wie kann er BENUTZER DES PROGRAMMS es ändern.

Ein einfaches Optionsmenü, wie in jedem Spiel, wo man z.B die Bildschirmauflösung etc. ändern kann.

const
CHoehe = 768;
CBreite = 1366;

CBallGeschwindigkeit = 45;
CWinkel = 22;

CSchlaegerHoehe = 80;
CBallGroesse = 15;

CMaxPunktzahl = 10;

Wie ist es möglich das der Benutzer Konstanten, wie z.B die Bildschrimauflösung die in einer Konstanten festgelegt ist, ändern kann. Sprich eine Art Optionsmenü.
Bitte um keine großartige Fachsprache :/

Danke schonmal

Nagut, Danke trotzdem, werde versuchen es noch iwie zu lösen

Vielen Dank dafür :)
Allerdings habe ich bereits Procedure um die Schläger zu zeichnen, wie bekomme ich deinen Code jetzt in meinen?
Bzw kannst du mir eine kurz Erläuterung zu Boolean geben?..

procedure TForm1.ZeichneSchlaegerLinks(const AYNew: integer);
begin
if (AYNew <= 0) or (AYNew ...

Danke, Fehler behoben, allerdings Funktionieren die Schläger nicht wirklich.
Man soll sie beide gleichzeitig bewegegn können, und bei druck auf die Taste sich um 20px verschieben....

Ich habe eine Tastenabfrage erstellt, bekomme aber dann beim Kompileren die meldung:

Error: Constant and CASE types do not match


TForm1 = class(TForm)
Timer1: TTimer;
procedure KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure SteuerungsTimer(Sender: TObject ...

Nimm doch anstelle von TBitmap, TImage und setzte die Eigenschaft Align auf alClient und Stretch auf True. Somit füllt die Bitmap immer schon dein Form aus.

Wie lautet der Code dafür? Bin grade ziemlich überfordert bei der Objektprogrammierung.

Resize habe ich gefunden, versteh nicht ganz wie du das meinst zwecks Klassen erstellen, bzw Wo ich die lassen erstellen soll.

unit FMain;

}
{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
tmrMoveBall: TTimer;
procedure FFormPaint(Sender: TObject);
procedure FormCreate (Sender: TObject); {Gestaltung ...

Wird denn in deinem Spiel mit jedem Tastendruck etwas verschoben oder hängt es davon ab, wie lange man sie gedrückt hält?

Es ist Pong, sprich die Schläger Rechts und links werden verschoben, bei gedrückter Taste. Das ganze ist im Multiplayer, sprich es muss mir möglich sein 2 Tasten gleichzeitig ...

Okay, da war jetzt viel Fachsprache bei, mal sehen ob ich durchsehe :D
Danke aufjedenfall schon mal.

TGameKey = (gkLeft, gkTop, gkRight, gkDown, …);
TGameKeys = set of TGameKey;

procedure TForm1.FormKeyDown
Case Key of
VK_LEFT: GameKeys += [gkLeft];
VK_Up: GameKeys += [gkTop];
VK_RIGHT ...

Habs getestet, bekomme die Anmerkung, das "Shift" nicht verwendet wird, Shift sthet in der Procedure..
Und dann noch. "Warning: Am inherited method is hidden by"TForm1.KeyDown(TObject,var Word,TShiftState);"

Bis jetzt scheint es nicht zu funktionieren das beide gleichzeitig drücken können.

Ja okay, vielen dank

Danke wie geben ich dann an das zu taste x aktion x ausgeführt wird? auch wie in meinem beispielt mit der if aufforderung?