Forum: Object-Pascal / Delphi-Language
Delphi
by dajuhsa,
22. Mär 2008
da hast du doch deinen code schon^^ du musst halt nur
Left := {8 *} X - FDownX + Left;
Top := {8 *} Y - FDownY + Top;
schreiben, oder nicht :mrgreen:
Forum: Object-Pascal / Delphi-Language
Delphi
by dajuhsa,
22. Mär 2008
procedure Verschieben(var KomponenteXYZ:TObject; const XVerschiebefaktor,YVerschiebefaktor:Integer);
begin
//Edit: kleiner Zusatz, vielleicht meintest du ja sowas:
KomponenteXYZ.Left := KomponenteXYZ.Left div 8 * 8;
KomponenteXYZ.Top := KomponenteXYZ.Top div 8 * 8;
//^^^^^^^^^^^^
KomponenteXYZ.Left := KomponenteXYZ.Left + 8 * XVerschiebefaktor;
KomponenteXYZ.Top := KomponenteXYZ.Top + 8 *...