Dreiecke

[Amateurprofi]

Ich hab mich ein wenig mit Dreiecken beschäftigt.
Das Resultat ist im Anhang. Vielleicht kann der eine oder andere Nutzen daraus ziehen.

Im Hauptfenster wird kontext-sensitive Hilfe unterstützt - also Mauszeiger auf das Objekt zu dem man was wissen will und F1 drücken. Mit Strg-F1 gehts auf die Haupseite des Helpfiles.

Integriert ist ein kleiner Parser zur Auswertung numerischer Ausdrücke, der eigentlich nur gedacht war, die im Helpfile gezeigten Formeln zu prüfen, der aber dann ein gewisses Eigenleben entwickelt hat und dehalb zu gegebener Zeit als separates Programm veröffentlicht wird. @marabu : Darauf bezog sich meine Frage zu Zeilenwechsel beim TMEMO.

Änderung 25.11.2017
Ich habe vor einiger Zeit festgestellt, dass die ursprüngliche Version (stammt aus 2007) bei mir nicht mehr richtig lief (Komponenten lagen teilweise außerhalb des Programmfensters). Ich hab dann neu kompiliert, aber seinerzeit vergessen die geänderte Version hier reinzustellen.
Die neue Version heißt Dreieck.zip.

[Amateurprofi]

Zitat von jmit:

Warum läßt Du nicht zu, dass man das Fenster minimieren kann?

Gruß Jörg

Hab ich ausgeschaltet, weil ich dachte, daß das Probleme mit sich bringt wenn bei den Constraints MinHeight und MinWidth definiert sind. Das scheint aber nicht der Fall zu sein.
Werd ich ändern.

@bitsetter
Der Bereich in dem das Dreieck gezeichnet wird, ist eine PaintBox.
Kannst Du mir erklären, wie das mit Doublebuffered funktioniert - ich hab das noch nie benutzt. Danke.

[Amateurprofi]

Zitat von xZise:

Zitat von Amateurprofi:

Zur Checkbox statt 2 Menu Items.
Geht nicht.
Das Menu ist dafür gedacht, z.B. alle Linien eines Typs aus- oder einzublenden.
Es ist aber möglich für jede Linie separat festzulegen, ob sie gezeigt werden soll oder nicht.
Wenn nun z.B. gerade 2 der Mittelsenkrechten gezeigt werden und eine nicht - was soll dann die Checkbox zeigen ?

Das müsste kein Problem sein. Heißt das Menüitem beispielsweise "miHalbierende", dann musst du bei OnClick überprüfen, ob das gesetzt ist:

Delphi-Quellcode:

procedure ...
begin
  if miHalbierende.Checked then
    ShowHalbierende
  esle 
    HideHalbierende;
end;

Als ich schrieb "das geht nicht", ging es mir nicht um die Frage wie ich ein MenuItem auf checked oder unchecked setze, oder darum auf ein gechecktes bzw. ungechecktes zu reagieren, sondern um folgendes.
Mit den Menueinträgen kann man alle Linien eines Typs, also zum Beispiel alle Winkelhalbierenden ein- / ausblenden.
Es gibt aber andere Wege, gezielt eine bestimmte Winkelhalbierende auszublenden, die beiden anderen aber unverändert zu lassen.
Somit sind 6 verschiedene Zustände möglich.
Mit einem Check im MenuItem sind aber nur 2 dieser Zustände darstellbar.
Nehmen wir an Wa=sichtbar, Wb=sichtbar, Wc=nicht sichtbar.
Wie soll dann der Status des Menuitems sein ?
Checked wäre falsch, denn es sind nicht alle sichbar.
Unchecked wäre ebefalls falsch, denn es sind nicht alle unsichtbar.
Folglich : Geht nicht

[Amateurprofi]

Zitat von WS1976:

Hallo,

wieder mal ohne Quellcode. Geb ich keinen Kommentar zu.

Grüsse Rainer

Da du fundiertes Halbwissen hasst, wird es für dich sicherlich kein abendfüllendes Problem sein, so ein Pipifax-Programm selbst zu schreiben. Wozu also brauchst du den Quellcode ?

[Amateurprofi]

Zitat von "xZise:

Gibt es ein "Mouseshortcut" zum Drehen/Zoomen?

Und einen kleinen visuellen Bug :) Und zwar bekomme ich (mit Luna) rechts eine Scrolleiste

MouseShortcuts zum drehen/zoomen :
nein, entweder Scrollbar oder Tastatur

Und einen kleinen visuellen Bug :) Und zwar bekomme ich (mit Luna) rechts eine Scrolleiste :
Wo genau kommt rechts eine Scrollleiste ?

[Hawkeye219]

Hallo Klaus,

das ist ein sehr schönes (und mächtiges) Programm, welches du mit viel Liebe zum Detail gestaltet hast. Zwei Kleinigkeiten sind mir aufgefallen: beim "OK"-Button im Test-Dialog und bei beiden Buttons im Parser-Dialog solltest du die vertikalen Anchors korrigieren.

Gruß Hawkeye

[bitsetter]

Zitat von Amateurprofi:

@bitsetter
Der Bereich in dem das Dreieck gezeichnet wird, ist eine PaintBox.
Kannst Du mir erklären, wie das mit Doublebuffered funktioniert - ich hab das noch nie benutzt. Danke.

Hallo,

also eine Paintbox ich dachte ein TImage, du kannst ja mal versuchen im onCreate Event PaintBox1.Parent.DoubleBuffered:= true; aufzurufen.

Ansonsten könnte man das Problem noch mit einem OffScreenBitmap lösen. Da werden die einzelnen Kreise und Linien auf ein Bitmap im Speicher gezeichnet und dann wird das gesamte Bild im onPaint Event zum Beispiel mit BitBlt() in die Paintbox gezeichnet.

[xZise]

Zu den visuellen Bug hab ich mal ein Screenshot angehangen.

Zitat von Amateurprofi:

MouseShortcuts zum drehen/zoomen :
nein, entweder Scrollbar oder Tastatur

Wäre das noch irgendwie möglich

[edit]Ein Tipp: Editiere Beiträge welche innerhalb von 24h geschrieben worden sind! Ansonsten kannst du Probleme mit den Mods bekommen [/edit]

[Amateurprofi]

Zitat von Hawkeye219:

Hallo Klaus,

das ist ein sehr schönes (und mächtiges) Programm, welches du mit viel Liebe zum Detail gestaltet hast. Zwei Kleinigkeiten sind mir aufgefallen: beim "OK"-Button im Test-Dialog und bei beiden Buttons im Parser-Dialog solltest du die vertikalen Anchors korrigieren.

Gruß Hawkeye

Danke, Hawkeye.
Die Buttons hab ich nachträglich hinzugefügt (weil es machem lästig ist, das kleine x in der Titelzeile zu "suchen") und habe dann nicht mehr an Anchors gedacht. Werde ich ändern.

[Amateurprofi]

Ich habe ein paar Änderungen durchgeführt.

@bitsetter:
PaintBox.Parent.DoubleBuffered auf True gesetzt.

@Hawkeye:
Anchors bei den Buttons korrigiert.

@xSize:
Das Problem mit der Scrollbar scheint an einem Delphi-Bug zu liegen.
Ich hatte während der Programmentwicklung oft das Problem, daß dann, wenn ich in den Design-Modus ging, alle Komponenten, bei denen bei den Anchors Bottom=True ist, ein Stück nach oben rutschten.
Dieses Problem tritt bei mir immer dann auf, wenn ein Formular ein MainMenu hat und bei Komponenten Anchors.Bottom True ist.
Ich hatte hierzu schon mal eine Anfrage gestartet, leider ohne Resonanz.
Siehe hier
Ich vermute einen Zusammenhang mit der bei dir erscheinenden Scrollbar.
Workaround:
Im Design-Modus haben jetzt alle Komponenten Anchors.Bottom=false und werden erst im OnCreate auf True gesetzt.
Vielleicht hilft das.
Über die Möglichkeit Drehen/Größe ändern mit der Maus werde ich nachdenken.

[Jakob Ullmann]

Sehr schönes Programm. Ja, mehr kann man echt nicht sagen. Gefällt mir auch mit den Hovern und allem. Was allerdings zu verbessern wäre: Das Formelzeichen der Fläche ist nicht "F" sondern "A" wie Area(l).