Map Creator

[Logic]

Auf eine Anfage eines Freundes hab' ich ihm nen kleines Prog gemacht mit dem er z.b. DSA Karten erstellen kann.

Ich denk' der Screenshot sagt schon einiges und noch mehr das Programm selbst.

Würd' mich über ein bißchen FeedBack freuen und wenn euchs gefällt oder ihrs nutzt, würd ich mich gern über zusätzliches FeedBack freuen

mfg
Thorsten

P.S. Programmtechnisch eher einfacher gestrickt, aber jeder fängt mal einfach an...

Download

http://www.logic-online.biz/cache/lo...MapCreator.gif

[Logic]

Zitat von Oxmyx:

Es passen im Rasterfangmodus viele horizontale Teile nicht mit den vertikalen zusammen... probier's selber aus, dann siehst du's.

Sorry ich verstehs immer noch nicht, vielleicht wäre es das einfachste wenn du mir einfach nen Screen postest. Danke.

Zitat von Pr0g:

Vielleicht solltest du mal den Code posten, den zu zum Berechnen nutzt.

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 von -NIP-:

Sorry, nur so ne Nub Frage, aber
was sind DSA Karten?

-NIP-

Also DSA ist wie schon mirage228 sagte ein Rollenspiel -> Das Schwarze Auge.

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.

[Birzenbae]

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.