Hallo,
mit diesem Code(Stammt aus der Physic demo von Andorra):
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Selected := AdSpriteEngine.GetSpriteAt(X,Y);
if (Selected <> nil) and (Selected is TPhysicalSprite) then
begin
dx := round(Selected.WorldX - X);
dy := round(Selected.WorldY - Y);
TPhysicalSprite(Selected).ActivateNeighbours;
TPhysicalSprite(Selected).Active := false;
end
else
begin
Selected := nil;
end;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Selected <> nil then
begin
Selected.X := X + dx;
Selected.Y := Y + dy;
end;
CursorPosX := X;
CursorPosY := Y;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Selected <> nil then
begin
TPhysicalSprite(Selected).Active := true;
end;
Selected := nil;
end;
verschiebe ich das Sprite. Ich will jetzt in einer INI Datei das Image des Selektierten TPhysicalSprite speichern. Mit diesem Code:
INI.WriteString('Objects', IntToStr(Objectcount)+'Type', Obj.Image.Name); // obj ist TPhysicalSprite
kann ich nichts machen, weil selected (Obj = Selected(Selected = TSprite(sonst geht das Selectieren net))) keine Eigenschaft Image hat. Also denk ich mir tu ich halt Selected als TPhysicalSprite definieren. Das funktioniert aber nicht weil ich dann nicht diesen Code hier:
Selected := AdSpriteEngine.GetSpriteAt(X,Y);
einsetzen kann, da die funktion GetSpriteAt(X,Y) nur das Sprite und nicht das PhysicalSprite an der Stelle ermittelt. Also funktionier das nicht mit dem umdefinieren. Was kann ich tun?
Zitat
Baum-Darstellung
