Gleisbild Editor für Modellbahn

[Scotch]

Hallo,
ich bin dabei einen Gleisbild Editor zu erstellen.
Vergleichen kann man das mit einem 2D Level Editor.
Mein bisheriger Ansatz war ein DrawGrid mit Bildern
zu füllen (Bausteine) und ein zweites Grid zum
erstellen des Gleisbild (click & past).
Um die einzelnen Strecken zu benennen müssten
jetzt Text Felder die über mehrere Spalten gehen.
So wie die in der Beispielgrafik.
Evtl. habe ich ja auch eine Falsche Komponente
benutzt und es gibt dafür was besseres.
Über Vorschläge würde ich mich freuen.
Gruß Ingo

[DGL-luke]

Naja, du kannst ohne weiteres das zeichnen deines drawgrids "selbst in die hand nehmen". Dazu musst du nur das "OnDrawCell"-Ereignis implementieren, und kannst dann anhand der Koordinanten entscheiden, ob du da was zeichnen willst.

Du solltest nur deinen text erst auf eine eigene zeichenfläche (z.B. TBitmap) zeichnen, das Bild kannst du dann über deine Zellen verteilen.

[Ghostwalker]

Ich denke schon das du auf dem richtigen Weg bist, mit dem Grid. Da die Bauteile ja auch feste Längen und Radien haben, läßt sich das so ganz gut darstellen.

Da ich auch schon in Richtung Modellbahn-Programm mal einiges angedacht hab, kannst du dich gern per PN melden. Ich helfe wo ich kann

[fylo]

Moin,

es gab mal einen Thread in dem auch eine Modellbahnsteuerung beschrieben wurde (auch mit Editor) leider ist dort von den Autoren keiner mehr zu finden

Aber vielleicht hilft es dir ja trotzdem irgendwie.

[Scotch]

Danke für die schnellen Antworten.
@ DGL-luke
Text auf Bitmap zeichnen, hast du dafür ein Beispiel für mich?

@ Ghostwalker
Werde mich bei dir dann mal melden.
Habe da noch die eine oder andere Frage zu dem Thema Steuerung

@ flo
Danke für den Link, das hatte ich gester schon gelesen
schade das es das Programm nirgend wo gibt.
Besonders der Sourcecode hätte mich interessiert.

CU Ingo

[DGL-luke]

Hallo, hier:

Delphi-Quellcode:

procedure TextToBitmap(text: string; var Bitmap: TBitmap);
var
  r: TRect;
begin
  if Bitmap = nil then
    Bitmap := TBitmap.create;

  Bitmap.SetSize(10, 10);

  r := rect(0,0,10,10);

  DrawText(Bitmap.Canvas.Handle,PChar(text),length(text),r,DT_NOPREFIX or DT_NOCLIP or DT_CALCRECT);

  bitmap.SetSize(r.Right,r.Bottom);

  DrawText(Bitmap.Canvas.Handle,PChar(text),length(text),r,0,DT_NOPREFIX or DT_NOCLIP);
end;

Sollte dir ein Bitmap mit dem Text, nicht mehr und nicht weniger, geben. ich hoffe nur, er bricht nicht um, das müsste man testen. DT_SINGLELINE als zusätzliches Flag könnte helfen, obwohl das PSDK sich da anders ausdrückt.

[Scotch]

@ DGL-luke

danke für deine Antwort, werde es morgen mal testen.

CU Ingo