Problem mit Image

[Affje800]

hi

ich habe n kleines programm, bei dem es auch sound gibt. dafür habe ich ein extra bild mit einem sound-schriftzug. wenn man darauf klicken soll, soll das bild gewechselt werden. ich habe das früher schon einmal gemacht und es ging einwandfrei, aber nun werde ich fast verrückt, da ich es einbfach nicht mehr zum laufen bringe :wall: :wall: :wall: :wall: :wall:

hier der code:

Delphi-Quellcode:

If Mediaplayer1.Enabled = true then begin
                               Mediaplayer1.Stop;
                               Mediaplayer1.Enabled:= false;
                               Sound.Picture.LoadFromFile(extractfilepath(paramstr(0)) + '/Data/Pics/Soundbutton_Over.JPG');
                               end;
If Mediaplayer1.Enabled = false then begin
                               Mediaplayer1.Enabled:= true;
                               Mediaplayer1.Open;
                               Mediaplayer1.Play;
                               Sound.Picture.loadfromfile(extractfilepath(paramstr(0)) + '/Data/Pics/Soundbutton.JPG');
                               end;

[SirThornberry]

Wo tritt ein Fehler auf????

[MrKnogge]

also statt "/" würd ich erstmal "\" nehmen und bei

Delphi-Quellcode:

'/Data/Pics/Soundbutton_Over.JPG');

kannst du den ersten / ganz weglassen.

[Affje800]

einfach überall. wenn ich einmal draufklicke, dann wird das bild geändert und der mediaplayer stoppt.
wenn ich nochmal draufdrücke passiert nix :wiejetzt:

[MrKnogge]

ist auch logisch !

du setzt bei der ersten abfrage enabled auf false, bei der zweiten fragst du ist enabled false ?

natürlich, du hast es ja gerade so gesetzt !

Delphi-Quellcode:

If Mediaplayer1.Enabled = true then begin 
                               Mediaplayer1.Stop; 
                               Mediaplayer1.Enabled:= false; 
                               Sound.Picture.LoadFromFile(extractfilepath(paramstr(0)) + '/Data/Pics/Soundbutton_Over.JPG') 
                               else 
If Mediaplayer1.Enabled = false then begin 
                               Mediaplayer1.Enabled:= true; 
                               Mediaplayer1.Open; 
                               Mediaplayer1.Play; 
                               Sound.Picture.loadfromfile(extractfilepath(paramstr(0)) + '/Data/Pics/Soundbutton.JPG'); 
                               end;

(ungetestet, müsste aber funzen !)

[Affje800]

davor sind doch aber if schleifen....

[SirThornberry]

das if blöcke werden bei dir aber trotzdem noch einander ausgeführt also muss die alternative if-anweisung in den elsezweig

[MikeS]

@MrKnogge
das sollte bestimmt so aussehen ODER :wink:

Delphi-Quellcode:

If Mediaplayer1.Enabled = true then 
begin 
  Mediaplayer1.Stop; 
  Mediaplayer1.Enabled:= false; 
  Sound.Picture.LoadFromFile(extractfilepath(paramstr(0)) + '/Data/Pics/Soundbutton_Over.JPG') 
end
else If Mediaplayer1.Enabled = false then 
begin 
  Mediaplayer1.Enabled:= true; 
  Mediaplayer1.Open; 
  Mediaplayer1.Play; 
  Sound.Picture.loadfromfile(extractfilepath(paramstr(0)) + '/Data/Pics/Soundbutton.JPG'); 
end;

[Affje800]

okay, es geht, danke.

[MrKnogge]

oh, ja da hab ich wohl end unterschlagen :lol:

@Affje800

Jetzt geh mal den Code durch, nehmen wir an der mediaplayer is an:

Bei dem zweiten If-Zweig wird nun geprüft ist er an ?
Da dies zutrifft, stoppst du den Mediaplayer.

Bei dem zweiten If-Zweig wird nun geprüft ist er aus ?
Da er ja nun aus ist, wird er wieder eingeschaltet.