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

[Nicodius]

nebenbei 356 KB ;) ich tests mal


also beim markieren einer bschriftung etc sollte ein rahmen drum gemalen werden ...

noch wichtig siehe anhang klickte auf das eine aber immer komtm dieses verkerhte

[Pr0g]

Wenn das Raster aktiviert ist, dann ruckelt das Objekt beim Verschieben.

MfG Pr0g

[Oxmyx]

Im Raster passen die Teile nicht zusammen (z.B. horizontale gerade Straße und die Kreuzung daneben).

[Logic]

Zitat:

Zitat von Nicodius

also beim markieren einer bschriftung etc sollte ein rahmen drum gemalen werden ...

noch wichtig siehe anhang klickte auf das eine aber immer komtm dieses verkerhte

Mhh mal überlegen wie ich das mache, aber sollte möglich sein... oder hast du ne Idee?

Danke wegen dem verkehrten Teil, ich habs ausgebessert mal hochgeladen.

Zitat:

Zitat von Pr0g

Wenn das Raster aktiviert ist, dann ruckelt das Objekt beim Verschieben.

MfG Pr0g

Das kommt daher, dass das Objekt nur alle 10px verschoben werden... daher der "nachhink-effekt" außerdem wenn du die Maus sehr schnell bewegst kommt es auch einem vor dass es ruckelt... ich wüsste nicht wie ich das vermeiden könnte...

Zitat:

Zitat von Oxmyx

Im Raster passen die Teile nicht zusammen (z.B. horizontale gerade Straße und die Kreuzung daneben).

Welches meinst du?

[Oxmyx]

Zitat:

Zitat von Logic

Welches meinst du?

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

[Pr0g]

Zitat:

Zitat von Logic

Das kommt daher, dass das Objekt nur alle 10px verschoben werden... daher der "nachhink-effekt" außerdem wenn du die Maus sehr schnell bewegst kommt es auch einem vor dass es ruckelt... ich wüsste nicht wie ich das vermeiden könnte...

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

[gmarts]

Zitat:

Zitat von Logic

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

Was sind DSA-Karten? :nerd:

[mirage228]

Hi,

ich glaube das sind Spielkarten für das Spiel "Das Schwarze Auge"

mfG
mirage228

[-NIP-]

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

-NIP-

[Logic]

Zitat:

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:

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:

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.