JPEG verändern

ShinShan · Beiträge: 19

Hi ich habe viele Jpg-Images auf ein Formular mit zufälliger Position erzeugen lassen, und möchte nun, wenn man auf ein entsprechendes Bild clickt dieses ändern. Sprich ein neues an die selbe Position Laden.

Die Daten über die Position der einzelnen Bilder habe ich in einem Array gespeichert.

Ich weis nur nicht wie ich das Bild raus bekommen soll, auf das geklickt wurde. Hab schon viel mit dem Sender des TImages rumprobiert. Aber wenn ich es mit

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var jpg:TJPEGImage;
  begin
 try TImage(Sender).Picture.LoadFromFile('E:\desktop\Memorie\Bilder\25.jpg');
 except
  showmessage('danaben');
 end;
end;

versucht, aber da ändert sich nichts, wenn ich wenn ich drauf klicke.

alias5000 · Verfasst: So 13.08.06 22:50

Benutze doch einfach entsprechende Ereignisse der einzelnen TImages
Also OnClick/OnMosueDown/OnMosueUp von jedem TImage

Gruß
alias5000

_________________
Programmers never die, they just GOSUB without RETURN

Narses · Verfasst: So 13.08.06 23:11

Moin!

Schau mal hier, vielleicht kommst du damit weiter.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

GSE · Beiträge: 740 Win 2k, Win XP Pro D5 Prof, D6 Ent, D2k5 PE

der Code muss ins MouseDown der Images nich das der Form

mfg
GSE

_________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)

ShinShan · Beiträge: 19

danke shcon mal für die Antworten.

Ich glub es ist besser wenn ich hier mal den ganzen Code anzeigen lasse, damit ihr seht, wie das alles funzt bzw. nicht funzt

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

var
  Form1: TForm1;
  Karte: array[1..25] of Bild;

...

procedure TForm1.Kartenlegen;      //hier werden zufällig Karten auf der Form abgelegt
var i,j:byte;
    jpg:TJPEGImage;
begin
 for i:=1 to 25 do
  begin
   for j:=1 to 2 do
    begin
    Karte[i].Bild:=TImage.Create(self); // in der Prozedur TForm1.Rungame (wegen TForm1 ist self=TForm1)
    Karte[i].Bild.Parent:=self;
    Karte[i].Bild.Left:=random(639)+1; // Position setten
    Karte[i].Bild.Top:=random(479)+1;
    Karte[i].vorne:=inttostr(i); // welches Bild
    Karte[i].wo.X:=random(639)+1; // wo liegt
    Karte[i].wo.Y:=random(479)+1; //    "
    jpg:=TJPEGImage.create;
    jpg.LoadFromFile('E:\desktop\Memorie\Bilder\26.jpg'); // Ist das Bild der Rückseite einer Karte
    Karte[i].Bild.Picture.Assign(jpg);
    jpg.free;
    end;
  end;
end;

procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var jpg:TJPEGImage;
    i:byte;
  begin
  for i:=1 to 25 do
   begin
    if (Karte[i].wo.X<=X) and (Karte[i].wo.X+30>=X) then // denn die Bilder 30x40 Pixel
     begin
      if (Karte[i].wo.Y<=Y) and (Karte[i].wo.Y+40>=Y) then
       begin
        Karte[i].Bild:=TImage.Create(self); // in der Prozedur TForm1.irgendwas(wegen TForm1 ist self=TForm1)
        Karte[i].Bild.Parent:=self;
        Karte[i].Bild.Left:=Karte[i].wo.X;  // Die Stelle raus suchen, an der das
        Karte[i].Bild.Top:=Karte[i].wo.Y;   // Bild ist.
        jpg:=TJPEGImage.create;             // und dort die Forderseite laden
        jpg.LoadFromFile('E:\desktop\Memorie\Bilder\'+inttostr(i)+'.jpg');
        Karte[i].Bild.Picture.Assign(jpg);
       end
        else showmessage('daneben');
     end
      else showmessage('daneben');
   end;
end;

initialization
randomize;

end.

Wieso läd der das neue Bild nicht rein, bzw. geht garnicht in die Prozedur um zu testen ob man mit der Maus getroffen hat?

Narses · Verfasst: Mo 14.08.06 15:06

Moin!

Zwei Sachen auf Anhieb:

- Warum packst du die Bilder nicht in eine Image-List? Ist doch viel einfacher zu handeln...

- Du erzeugst da andauernd Images, wann gibst du die denn wieder frei? :gruebel:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

ShinShan · Beiträge: 19

@ Nerses:
Leider weis ich nicht wie ich eine Image-List handle

so ist es dann mit den einzelnen Bildern erstmal einfacher für mich gewesen.
Was sind denn die Vorteile von soner Image-List?

Und die Freiganbe, hab ich im close-event.
Oder gehört die in das destroy-event?

Raffo · Beiträge: 300

Na ja, ich für meinen Teil würde sagen, es wird eh "destroyed" wenn das Programm beendet wird. Wichtig wäre das nur, wenn Dein Programm aufm Server läuft und es ständig an wäre...

ShinShan · Beiträge: 19

Ja aber zurück zu meiner Frage:

Ich hab jetzt mit

Getcursorpos

die Mausposition geholt und vergleiche dann, ob ein Bild getroffen wurde.

Aber irgendwie treffe ich auch die Bilder, wenn ich nicht drauf klicke *kopfkratz*

Kann das an Getsursorpos liegen?

Meine Form füllt nämlich nicht den ganzen Bildschirm aus.
Vielleicht geht aber Getcursorpos davon aus.

ich stelle mal den gesammten code rein
Ich hoffe er erklärt sich ein wenig von alleine

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, ImgList;

type
  Bild = record
   vorne:string;
   Bild:TImage;
   wo:TPoint;
  end;
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Kartenlegen;
    procedure ImageMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ImageClick(Sender:TObject);
  private
    gabe:integer;
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;
  Karte: array[1..50] of Bild;
  Spieler: array of byte;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var n:byte;
begin
 try
  n:=strtoint(edit1.text);
 except
  showmessage('Bitte geben Sie keine Buchstaben ein!');
 end;
 if (n>0)and(n<5) then setlength(Spieler,n)
  else
   showmessage('Keine Spieler?/zu viele?');
  Button1.Visible:=false;
  Edit1.Visible:=false;
  Label1.Visible:=false;
  Kartenlegen;
end;

procedure TForm1.Kartenlegen;      //hier werden zufällig Karten auf der Form abgelegt
var i,j:byte;
    jpg:TJPEGImage;
begin
 for i:=1 to 50 do
  begin
    Karte[i].Bild:=TImage.Create(self); // in der Prozedur TForm1.Rungame (wegen TForm1 ist self=TForm1)
    Karte[i].Bild.Parent:=self;
    Karte[i].Bild.Left:=random(639)+1; // Position setten
    Karte[i].Bild.Top:=random(479)+1;
    Karte[i].vorne:=inttostr(i); // welches Bild
    Karte[i].wo.X:=Karte[i].Bild.Left; // wo liegt
    Karte[i].wo.Y:=Karte[i].Bild.Top; //    "
    jpg:=TJPEGImage.create;
    jpg.LoadFromFile('E:\desktop\Memorie\Bilder\26.jpg'); // Ist das Bild der Rückseite
    Karte[i].Bild.OnClick:=ImageClick;
    Karte[i].Bild.Picture.Assign(jpg);
    jpg.free;
  end;
end;

procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var jpg:TJPEGImage;
    i:byte;
  begin

end;

procedure TForm1.ImageClick(Sender:TObject);
var i,X,Y,b:integer;
    jpg:TJPEGImage;
    p:TPoint;
begin
   GetCursorPos(p);
   X:=p.X;
   Y:=p.Y;
   for i:=1 to 50 do
   begin
    if (Karte[i].wo.X<=X) and (Karte[i].wo.X+30>=X) then // denn die Bilder 30x40 Pixel
     begin
      if (Karte[i].wo.Y<=Y) and (Karte[i].wo.Y+40>=Y) then
       begin
        if i<=25 then b:=i else b:=i-25;
        Karte[i].Bild:=TImage.Create(self); // in der Prozedur TForm1.irgendwas(wegen TForm1 ist self=TForm1)
        Karte[i].Bild.Parent:=self;
        Karte[i].Bild.Left:=Karte[i].wo.X;  // Die Stelle raus suchen, an der das
        Karte[i].Bild.Top:=Karte[i].wo.Y;   // Bild ist.
        jpg:=TJPEGImage.create;             // und dort die Forderseite laden
        jpg.LoadFromFile('E:\desktop\Memorie\Bilder\'+inttostr(b)+'.jpg');
        Karte[i].Bild.Picture.Assign(jpg);
        jpg.free;
       end
        else showmessage('daneben');
     end;
   end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i:integer;
begin
 for i:=1 to 50 do
   Karte[i].Bild.Free;
end;

initialization
randomize;

end.

Vorhanden sind am Anfang ein Label, Edit1 (eingabe der Anzahl der Spieler (was bishar noch keine Auswikungen hat, es sei denn ,man gibt einen Buchsatben oder ein eZahl größer als 4 ein), und der LOS-(button1) der alles starten lässt.

Die Bilder die Geladen werden, haben Zahlen als Namen (von 1 bis 26). 26 ist dabei die Rückseite.
ich hoffe ihr seht jetzt etwas durch.

Marco D. · Verfasst: Do 17.08.06 22:17

ShinShan hat folgendes geschrieben:

Ich hab jetzt mit

Getcursorpos

die Mausposition geholt und vergleiche dann, ob ein Bild getroffen wurde.

Aber irgendwie treffe ich auch die Bilder, wenn ich nicht drauf klicke *kopfkratz*

Kann das an Getsursorpos liegen?

Meine Form füllt nämlich nicht den ganzen Bildschirm aus.
Vielleicht geht aber Getcursorpos davon aus.

Dafür gibts die Funktion ScreenToClient. Schau mal in der Hilfe nach.

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Narses · Verfasst: Do 17.08.06 23:27

Narses hat folgendes geschrieben:

Warum packst du die Bilder nicht in eine Image-List? Ist doch viel einfacher zu handeln...

ShinShan hat folgendes geschrieben:

Leider weis ich nicht wie ich eine Image-List handle

Narses hat folgendes geschrieben:

Schau mal hier, vielleicht kommst du damit weiter.

---

Raffo hat folgendes geschrieben:

Na ja, ich für meinen Teil würde sagen, es wird eh "destroyed" wenn das Programm beendet wird. Wichtig wäre das nur, wenn Dein Programm aufm Server läuft und es ständig an wäre...

Aha, dann würde ich schrecklich gerne mal dein Zimmer sehen, und wie´s da drin so aussieht... :rofl:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Raffo · Beiträge: 300

@marco, habe folgendes Grundgerüst gefunden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function IsMouseOver(Control: TControl): Boolean; 
var 
  p: TPoint;
begin
  if GetCursorPos(p) then 
  begin
    p := Control.ScreenToClient(p);
    Result := (p.X >= 0) and (p.X <= Control.Width) and
              (p.Y >= 0) and (p.Y <= Control.Height) {AND Control.Visible};
  end
  else
    Result := False;
end;

@narses, wirklich sehr geistreicher Kommentar, was hat die Virtualität mit der Realität zu tun? Ich würde das in der Realtität eher so vergleichen: Wenn ich meinen Computer ausschalte, brauche ICH die laufenden Programme nicht beenden.

Narses · Verfasst: Fr 18.08.06 09:20

Moin!

Raffo hat folgendes geschrieben:

Wenn ich meinen Computer ausschalte, brauche ICH die laufenden Programme nicht beenden.

Windows hat folgendes geschrieben:

Der Computer wurde das letzte mal nicht ordnungsgemäß heruntergefahren...

Und wer repariert dann die kaputt gegangenen Files?

Das hat was mit sinnvoller Art und Weise zu tun, man könnte auch "Programmierstil" dazu sagen. Da das hier aber schon fast immer auf einen Glaubenskrieg hinauslaufen wird, spare ich mir Weiteres, will dir aber eine meiner Erkenntnisse nicht vorenthalten: "Geht doch" ist der Programmierstil, der dir langfristig die meisten Probleme bereiten wird.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

heinze · Beiträge: 112 XP D4 Prof

Zitat:

Und wer repariert dann die kaputt gegangenen Files?

Es gehen doch keine Kaputt?

Windows schickt an alle Programme den Befehl sich zu Beenden, und sofern sich keins extrem dagegen auflehnt fährt sich der PC dan runter ohne das ich Programme wie WinAmp, ICQ, bzw 20 andere Hintergrundprozesse selbst beenden mus.

Soweit ich es Richtig verstanden habe macht Delphi selbiges, sofern das Program richtig beendet wird und nicht bei testläufen einfach abgebrochen wird (wegen Endlosschleife usw) was nach einigen male dan ne Meldung bringt das der Speicher zu voll ist und man dan Delphi selbst neu starten muss. (So gings mir bei Datenbanken)

Zitat:

Wenn ich meinen Computer ausschalte, brauche ICH die laufenden Programme nicht beenden.

Er hat ja nie behauptet das sie niemand beendet, nur das er selbst es nicht tut.

Optimiert wirds wens erstmal überhaupt richtig läuft denk ich mir bei sowas.

_________________
Für Fehler haftet die Tastatur bzw Für Gramatik ist meine legasthenie zu verklagen sonstige Verbesserungsvorschläge meiner Text bitte per pn an mich

ShinShan · Beiträge: 19

Ich hab das ganze jetzt malso gelöst.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Klick.X:=X;
Klick.Y:=Y;
klick:=ScreenToClient(ClientToScreen(klick));
showmessage(inttostr(klick.x)+'/'+inttostr(klick.y));
end;

Das Problem ist jetzt nur noch, dass mir an einigen Stellen des Bildschirms keine Rückgabe gegeben wird, welche Koordinaten der Klcik hatte.

Das ist volkommen unabhängig davon, ob ich auf ein Bild klicke, das erstellt wurde oder nicht.
Was kann daran nur falsch sein?????

Die Idee mit dem ScreenToClient war trotzdem super!
DANKE nochmal

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme