German Linien zeichnen

[VoDB]

Hallo zusammen,
ich bin kürzlich auf Basic4ppc gestoßen. Die recht komfortable IDE und das lebendige Forum haben mich neugierig gemacht.
Nach einigen rumprobieren, kam mir dann die Idee zu dem angehängten Programm.
LineDraw mach genau das - Linien zeichnen. Keine Kreise, keine Rechtecke (zumindest nicht als fertiges Zeichnungsobjekt). Der Grundgedanke: Es eignet sich für kleine Konstruktionsskizzen für typische Haushaltskonstruktionen: Schuhregal, Überdachung für Terrasse, vielleicht auch Detailskizzen, was auch immer.
Es liefert keine technische Zeichnung, sondern eine Skizze, vielleicht für einen ersten Entwurf.
Der Clou dabei ist die Möglichkeit, gezeichnete Linien nachträglich zu editieren, ähnlich einer Vektorgraphik. Die Möglichkeiten werden kurz in <Help.jpg> dargestellt. Help.jpg separat starten, ist kein Teil des Programms!

Ein Problem habe ich noch nicht lösen können: In der Desktop-Ansicht ist das Bedienpanel nicht sichtbar, weil die Positionierung des Panels außerhalb der Form ist. Da ich Fullscreen nutze, ist die Position auf dem Device perfekt.
Gibt es z.B eine Möglichkeit, den Ort der Programmausführung (PC oder PPC) Programmseitig zu erkennen?
Solang ich das Problem nicht gelöst hab gilt also : PPC only!!
Gruß
Hardy
**Update: Fehler Dank klaus beseitigt: Zip-File aktualisiert**

 

[klaus]

Hallo VoDB,

Herzlich willkommen im Basic4ppc Forum.

Die Antwort aud Deine Frage ist JA, und sieht folgend aus:

[FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]If [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080][FONT=Courier New][SIZE=2][COLOR=#800080]cPPC [/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]  panel1.Top = Form1.Height [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000]'PPC [/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][FONT=Courier New][SIZE=2]  panel1.Top = Form1.Height -panel1.Height [/SIZE][/FONT][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000][FONT=Courier New][SIZE=2][COLOR=#008000]'Desktop[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff][FONT=Courier New][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT][/COLOR][/SIZE][/FONT]

Grüsse.

 

[VoDB]

Hallo klaus,
danke für die Begrüßung und herzlichen Dank für die schnelle Hilfe. Werde das ZIP-Archiv entsprechend aktualisieren.
Gruß
VoDB

 

[JOTHA]

Hallo VoDB,

auch von mir ein herzliches Willkommen im Forum.

Nettes Programm

Aber warum hast Du die Buttons, etc. in Englisch gemacht?

 

[VoDB]

...Aber warum hast Du die Buttons, etc. in Englisch gemacht?

Na ja, ich denke mit den paar englischen Begriffen hat hierzulande niemand Probleme. Außerdem habe ich vor, das Programm auch im englischsprachigem Forum zur Diskussion zu stellen, und nicht-Deutschkundige wären dann wahrscheinlich so irritiert wie ich von einer Bedienung in Französisch
Gruß
VoDB