Memory-Spiel: Ideen

[XardasLP]

der Post hier hat sich erledigt. geht nur noch um die ImageListen.

[Luckie]

Und was soll uns der Screenshot sagen?

[Neutral General]

Ich glaube Delphi hängt sich nicht auf. Du brauchst nur sehr viel Geduld schätze ich.
Wenn du viele oder/und große Bilder in ImageListen lädst geht Delphi etwas in die Knie.
Da kannst du nichts machen außer damit Leben oder die Bilder zur Laufzeit aus Dateien lesen statt aus der Imagelist.

[XardasLP]

Er scheitert an diesem Bild in .bmp Form.

[XardasLP]

Delphi-Quellcode:

if OpenDialog1.Execute then
TimerMusik.Enabled := False;
MediaPlayer1.Close;
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
TimerMusik.Enabled := True;
TrackBarMusik.Max := MediaPlayer1.Length;
TrackBarMusik.Position := MediaPlayer1.Position;

Wie macht er die Position der TrackBar nicht? Diese bleibt bei 0 stehen.

[DeddyH]

Nach dem MediaPlayer1.Open steht MediaPlayer1.Position auf 0, folglich auch die Trackbar. Was ist daran verwunderlich? BTW: bist Du sicher, dass der gesamte Code ab der 2. Zeile nicht in einen begin-end-Block gehört?

[XardasLP]

Jo stimmt, man klickt danach ja noch bei dem MediaPlayer auf Play ^^

Delphi-Quellcode:

procedure TFormSpiel.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
TimerMusik.Enabled := False;
MediaPlayer1.Close;
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
TimerMusik.Enabled := True;
TrackBarMusik.Max := MediaPlayer1.Length;
TrackBarMusik.Position := MediaPlayer1.Position;
end;
end;

Bei der Trackbar Bewegung habe ich jetzt im 1. Moment an einen Timer gedacht.

Delphi-Quellcode:

procedure TFormSpiel.TimerMusik2Timer(Sender: TObject);
var i: integer;
begin
TrackBarMusik.Max := MediaPlayer1.Length;
for i := 1 to MediaPlayer1.Length do begin
TrackBarMusik.Position := MediaPlayer1.Position+1;
end;
end;

[XardasLP]

Delphi-Quellcode:

private
  StartTime: TTime;


procedure TFormSpiel.TimerZeitTimer(Sender: TObject);
begin
  LabelZeit.Caption := FormatDateTime('hh:nn:ss',StartTime);
end;

Es erscheint 00:00:00, der Timer läuft ja dann weiter. Wieso zählt es bei einem Interval von 1 die Zahl nicht rauf ?

[DeddyH]

Ändert sich denn StartTime?

[XardasLP]

Habe erst den Code von Luckie genommen, der geht aber auch nicht.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    StartTime: TTime;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
  StartTime := Time;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Time - StartTime);
end;