so da der mom quelltext bei knapp 2000zeilen is , hab ich nur den momentanen text zum "neues spiel" hier:
Code:
procedure TForm1.NeuesSpiel1Click(Sender: TObject);
Var i,j,m,z:Byte;
begin
if messagedlg('Neues Spiel starten?',mtconfirmation,[mbYes,mbNo],0)= mrYes then begin
for i:=1 to 144 do Steine[i].Visible:=true;
if messagedlg('Spielregeln erklären?',mtinformation,[mbYes,mbNo],0)=mryes then
showmessage('Das Ziel ist, durch Anklicken zweier identischer Steine alle Elemente abzubauen. Allerdings können Steine nicht markiert werden, die jeweils links und rechts einen weiteren Stein haben oder teilweise durch andere verdeckt werden.');
begin
for i:=0 to 3 do
for j:=1 to 36 do
begin
Bilder[j+i*36]:=j-1;
end;
Randomize;
for i:=1 to 144 do
begin
z:=Random(144)+1;
m:=Bilder[i];
Bilder[i]:=Bilder[z];
Bilder[z]:=m;
end;
for i:=1 to 144 do
ImageList1.GetBitmap(Bilder[i],Steine[i].Glyph);
end;
end;
end;
so ich hoffe ihr könnt beim prob helfen , weeitere fragen beantworte ich gerne