Fehlermeldung "external SIGSEGV"

[a.def]

Du hast zwei Mal Paintbox1 deklariert.
Das obere ist eine automatische Deklaration, nachdem du die PaintBox auf dein Formular gepackt hast.

Die untere ist von dir. Entferne mal das untere und teste dann.

Die beiden globalen Variablen xWert und yWert kannst du auch entfernen.
Genau wie Punkt. Deklariere Punkt direkt im BitBtn.

Ich würde das alles generell anders machen und die Klasse TPunkt komplett weglassen.

[himitsu]

Zitat:

Image1.Picture.LoadFromFile('Logo.jpg');

Und dieser "relative" Pfad wird früher oder später auch knallen.

Geh mal auf Menü > Start > Parameter > Arbeitsverzeichnis (ich hoffe das ist in Lazarus an der selten Stelle, aber glaub schon),
schreib dort C:\ rein und drück beherzt auf F9.

[StolenURBike]

Zitat von himitsu:

Und dieser "relative" Pfad wird früher oder später auch knallen.

Geh mal auf Menü > Start > Parameter > Arbeitsverzeichnis (ich hoffe das ist in Lazarus an der selten Stelle, aber glaub schon),
schreib dort C:\ rein und drück beherzt auf F9.

Habe das jetzt mal reingeschrieben. Weiß nicht was du wirklich mit Knallen meinst, aber ich hoffe, dass es für dieses Schulprojekt ausreicht.

[nahpets]

Habe mal den Quelltext ein bisserl verändert:

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image1: TImage;
    PaintBox1: TPaintBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
    procedure MyPaint(xWert, yWert:integer);
  public
    { public declarations }
  end;

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  //Logo
  Image1.Picture.LoadFromFile('Logo.jpg');
end;

procedure TForm1.MyPaint(xWert, yWert: integer);
begin
  Paintbox1.Canvas.Pen.Width := 10;
  Paintbox1.Canvas.Pen.Color := clLime;
  Paintbox1.Canvas.MoveTo(xWert,yWert);
  Paintbox1.Canvas.LineTo(xWert,yWert);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  MyPaint(10, 10);
end;

end.

Schau mal bitte, ob es so funktioniert und wenn ja, erkläre uns bitte warum.

[StolenURBike]

Ich habe deinen Quelltext 1:1 übernommen und nun funktioniert es auch, dass ich den besagten Punkt zeichen kann. DU HAST MIR DAMIT SEHR GEHOLFEN!

[StolenURBike]

Komisch ist nur warum es bei mir die ganze Zeit gesponnen hat. Aber das kann ein kleiner Denkfehler gewesen sein.

[nahpets]

Schau Dir bitte die Unterschiede an und versuche sie zu verstehen, sonst machst Du den Fehler in Zukunft vermutlich regelmäßig wieder.

Dashier

Zitat:

Schau mal bitte, ob es so funktioniert und wenn ja, erkläre uns bitte warum.

meinte ich durchaus ernst.

[StolenURBike]

Zitat von a.def:

Du hast zwei Mal Paintbox1 deklariert.
Das obere ist eine automatische Deklaration, nachdem du die PaintBox auf dein Formular gepackt hast.

Die untere ist von dir. Entferne mal das untere und teste dann.

Problem ist, dass jetzt folgende Fehlermeldung kommt: "Error: Identifier not found "Paintbox1""