![]() |
Re: Map Creator
Zitat:
Zitat:
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
var CursorPos: TPoint; x,y:integer; begin x:=Form1.Left; y:=Form1.Top; GetCursorPos(CursorPos); //ermitteln der Cursorposition if raster=true then //falls das Raster aktiviert ist, darf er nur in begin if CursorPos.X mod 10 = 0 then // 10px Schritten verschieben, und wenn der 10px Schritt (hier bei der x Koordinate) gegeben ist, dann... begin if bild=true then begin picture.Left:=CursorPos.x-x; //Verschiebung des Bildes, falls "bild" erfüllt wird (in x richtung) end else begin Label_.Left:=CursorPos.x-x; //Verschiebung des Labels, wenn "bild" nicht erfüllt ist (in x richtung) end; end; if CursorPos.y mod 10 = 0 then begin if bild=true then begin picture.Top:=CursorPos.y-25-y; end else begin Label_.Top:=CursorPos.y-25-y; end; end; end else //ganz normales verschieben, wenn das 10px Raster deaktiviert ist: begin if bild=true then begin picture.Top:=CursorPos.y-25-y; picture.Left:=CursorPos.x-x; end else begin Label_.Top:=CursorPos.y-25-y; Label_.Left:=CursorPos.x-x; end; end; end; Zitat:
Und wenn man sich keine Abendteuer kauft sondern welche selber gestalltet, so macht man ab und zu mal Dungeonskarten oder eine Karte einer Stadt (der Spielleiter beschreibt ja was man sieht als Charakter). Und mit dem Programm kann man welche Designen und dann ausdrucken. Natürlich sind wie Grafiken wie gesagt einfach erweiterbar. |
Re: Map Creator
was vll. auch noch nicht schlecht wäre wenn man nicht immer wieder neu wählen müsste wenn man mehrer gleiche stücke brauch.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:46 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz