Spiel - Bilder werden nicht angezeigt

[Onid]

Hallo,
ich muss ne Projektarbeit erstellen.
Dazu wollt ich nen kleines Spiel in Lazarus zum laufen bringen.
Von dem Code her klappt's, also es werden keine Fehler angezeigt, wenn ich das Programm dann aber starte funktionieren die Button nicht und die TImages werden nicht angezeigt, bzw.
überhaupt geladen.
Ich weiß nicht, ob ich den ganzen Code reinschicken soll, weil dieser ca. 350 Zeilen umfasst.

Code: Alles auswählen

    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure ShowPastorDialog(Phase: Integer);
    procedure ShowBedienungDialog(Phase: Integer);
    procedure ShowPriesterDialog(Phase: Integer);
    procedure ShowSektenfuehrerDialog(Phase: Integer);
    procedure ShowMutterDialog(Phase: Integer);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    Ort: string;
    erhaltenNotizblatt: Boolean;
    OrtKirche: Boolean;
    erhaltenBriefSektenfuehrer: Boolean;
    OrtPriesterBuero: Boolean;
    gefundenTagebuch: Boolean;
    OrtKinderzimmer: Boolean;
    erhaltenKinderzeichnung: Boolean;
    gefundenBibel: Boolean;
    DialogPhase: Integer;
    AktuellePerson: String;

  public
    {Public-Deklarationen}
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('Start.png');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Ort:= 'Dorf';
  Image1.Picture.LoadFromFile('Dorf.png');
  Image2.Picture.LoadFromFile('Pastor.png');
  AktuellePerson:= 'Pastor';
  DialogPhase:= 1;
  ShowPastorDialog(DialogPhase);
end;

[kralle]

Herzlich Willkommen im Lazarusforum.

Wenn Du hier Code posten willst, dann nutze im Editor bitte den Button "</>", dann landet der Code in eines Box und man kann ihn scrollen.
Gerade zu Anfang, lieber einmal mehr die Vorschau-Funktion des Editors hier nutzen.

Bei mir funktioniert das hier auf Anhieb.

Code: Alles auswählen

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    image1.Picture.Loadfromfile(OpenDialog1.FileName);
   // image1.show;

  end;
end;

end.

Gruß Kralle
(Admin)

[af0815]

Ohne den Code tiefer angeschaut habe: Versuch einmal den vollen Dateinamen inklusive Pfad anzugeben, eines der ersten Schwierigkeiten ist oft, das die Dateien nicht gefunden werden, weil das default Directory nicht zusammenpasst. Deswegen einmal die ersten Bilder mit absoluten Pfad. Funktioniert das plötzlich, so kann man dann eine Lösung finden.

[Onid]

Hi, sorry, ich glaub, dass es offensichtlich ist, dass ich nicht wirklich Ahnung habe.

Wenn ich das aber genauso mit dem OpenDialog eingebe kommt bei dem (OpenDialog1.) folgende Fehlermeldung:
"identifier" expected but "const string" found

Ich hab auch noch nie mit TOpenDialog gearbeitet, also kenn ich mich absolut garnicht damit aus.

Das mit dem Dateipfad hab ich auch beachtet (den ganzen Pfad angeben), es wird auch kein Problem dabei angezeigt, von wegen dass das Bild nicht gefunden werden kann.
Wenn ich das Programm starte werden halt weder die Bilder angezeigt, noch erfüllen die Buttons ihre Funktion.
Ich weiß auch nicht, ob ich den ganzen Code rein schicken soll, aber der ist halt etwas länger.

[kralle]

Angenommen Dein Bild liegt unter "c:\windows\benutzer\onid\bilder\bild001.jpg" und
Dein Programm liegt unter "c:\programme\onid\meinprogramm.exe".

Dann würdest Du bei einem absoluten Pfad das angeben: "c:\windows\benutzer\onid\bilder\bild001.jpg" .
Ein relativer Pfad bezieht sich auf das Startverzeichnis Deines Programms.
Das bedeutet, damit Dein Programm bei relativen Pfadangaben Deine Bilder findet, müssten Deine Bilder z.B. in dem Verzeichnis
c:\programme\onid\bilder\" liegen.

Füge bei meinem Beispiel noch ein "TLabel" ein und ergänzen den Code um:

Code: Alles auswählen

	image1.Picture.LoadfromFile(openDialog1.Filename)
	label1.caption:=OpenDialog1.FileName;  // Diese Zeile ergänzen

Dann führe das Programm in Lazarus aus und navigiere zu Deinen Bildern.
Schaue Dir den Pfad an.
Jetzt verlässt Du die Lazarus, startest das ausführbare Programm und navigierst wieder zu Deinen Bildern.
Schaue Dir den Pfad an.

Man kann Lazarus so konfigurieren, das der Quellcode in dem einem Verzeichnis landet und die ausführbare Datei in einem anderen und schon kann es passieren´, das einer von beiden die Bilder nicht findet.

Gruß Kralle

[kralle]

Wenn ich das aber genauso mit dem OpenDialog eingebe kommt bei dem (OpenDialog1.) folgende Fehlermeldung:
"identifier" expected but "const string" found

Nicht in Deinen Code einbauen, sondern ein neues Programm erstellen,
F12, einen

Code: Alles auswählen

TButton

, ein

Code: Alles auswählen

TImage

, ein

Code: Alles auswählen

TLabel

und den

Code: Alles auswählen

TOpenDialog

auf Formular packen,
meinen Code reinkopieren (der der unterhalb von

Code: Alles auswählen

{ TForm1 }

steht) und starten.

Gruß Kralle

[Onid]

Kann es sein, dass das Bild-Problem damit zusammenhängt, dass die Buttons nicht funktionieren? Weil es zeigt mir keine Fehlermeldung bei dem Pfad.
Ich meine es zeigt allgemein keine Fehlermeldung.... Ich hab alle Buttons definiert (procedure TForm1.Button1Click....), aber wenn ich nach dem Start des Programms drauf klicke passiert nichts. So sollten sich ja auch eigentlich die Bilder ändern.

[kralle]

Kann es sein, das Du im Objektinspektor das Formular deaktiviert hast und das deshalb nichts funktioniert?

Gruß Kralle

[theo]

...oder sind vielleicht die Eventhandler im Objektinspektor bei Ereignisse (TButton OnClick) gar nicht eingehängt?
Wenn du nur den Code in den Editor kopierst passiert nämlich nichts.

[Onid]

Verändert hab ich nichts daran und ich hab mittlerweile auch schon mehrmals probiert in neu erstellten Projekten und da müsste dürfte die Form ja nicht deaktiviert sein.
Also am Objektinspektor hab ich nichts verändert, müsste theoretisch am funktionierenden Code liegen, was aber nicht wirklich Sinn macht, außer ich hab halt was vergessen.

[kralle]

Markiere mal auf dem Formular den TButton, gehe dann in den Objektinspektor (F11 falls er nicht sichtbar ist) , dort auf den Reiter "Ereignisse" und was steht da rechts von "OnClick"?
Es sollte dort "Button1Click" drin stehen.
Wenn es das nicht macht, klicke in das Feld und wähle "Button1Click" aus.

Klicke mal irgendwo auf das Formular (nicht auf den Button) oder markiere im Objektinspektor "Form1: TForm1".
Was steht unter Eigenschaften rechts von "Enabled"? Da sollte ein Haken gesetzt sein und "(True)" stehen.

Gruß Kralle

[kralle]

Upps,

...oder sind vielleicht die Eventhandler im Objektinspektor bei Ereignisse (TButton OnClick) gar nicht eingehängt?
Wenn du nur den Code in den Editor kopierst passiert nämlich nichts.

ich hätte das dazu schreiben sollen.

Kralle

[Onid]

Ja gut, ich hab die procedures immer rein kopiert, daran lag's
VIELEN, VIELEN LIEBEN DANK AN EUCH BEIDE, ihr habt mir meinen Arsch gerettet :]

[kralle]

Wenn das Spiel fertig ist, schicke mal einen Download-Link.
Wenn das nicht für alle lesbar machen möchtest, unter unseren Userbilder, sind die Kontaktdaten oder einfach auf den User klicken und dann "PN" schicken.

Gruß Kralle