Anchor Sides/de: what changed
Revision 3 to 4. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | - | ||
| 2 | - | ||
| 3 | - | ||
| 4 | - | ||
| 5 | - | ||
| 1 | + | Es gibt einige neue Eigenschaften und Methoden für das automatische Layout von Steuerelementen. Sie können jetzt Bedienelemente so einstellen, dass sie einen bestimmten Abstand zu anderen Bedienelementen einhalten, oder relativ zu anderen Bedienelementen zentrieren. Siehe unten für Beispiele. | |
| 6 | 2 | ||
| 7 | - | ||
| 8 | - | ||
| 9 | - | ||
| 10 | - | ||
| 11 | - | ||
| 12 | - | ||
| 13 | - | ||
| 14 | - | ||
| 15 | - | ||
| 16 | - | ||
| 17 | - | ||
| 3 | + | Jede der vier Seiten eines Bedienelements (Left, Top, Right, Bottom) kann jetzt verankert/angebunden werden an der Seite eines anderen Bedienelements. Zum Beispiel können Sie jetzt die linke Seite eines TEdit an der rechten Seite eines TLabel verankern. Jedes Mal, wenn das Label bewegt wird oder in der Größe angepasst wird, dann wird die linke Seite des Edit folgen, was normalerweise zu einer Bewegung des Edit parallel zum Label führt. | |
| 18 | 4 | ||
| 19 | 5 | # Beispiel 1 | |
| 20 | - | ||
| 21 | - | ||
| 22 | - | ||
| 23 | - | ||
| 24 | - | ||
| 25 | - | ||
| 26 | 6 | ||
| 7 | + | `+--------+ +-------+`\ | |
| 8 | + | `| Label1 | | Edit1 |`\ | |
| 9 | + | `+--------+ | |`\ | |
| 10 | + | ` +-------+` | |
| 11 | + | ||
| 27 | 12 | ## Im Code | |
| 28 | - | ||
| 13 | + | ||
| 14 | + | ``` pascal | |
| 29 | 15 | Edit1.AnchorSide[akLeft].Side:=asrRight; | |
| 30 | - | ||
| 31 | - | ||
| 16 | + | Edit1.AnchorSide[akLeft].Control:=Label1; | |
| 17 | + | Edit1.Anchors:=Edit1.Anchors+[akLeft]; | |
| 32 | 18 | ``` | |
| 33 | 19 | ||
| 34 | - | ||
| 35 | - | ||
| 20 | + | Sie können den Abstand mit den Eigenschaften von BorderSpacing definieren: | |
| 21 | + | ||
| 22 | + | ``` pascal | |
| 36 | 23 | Edit1.BorderSpacing.Left:=10; | |
| 37 | 24 | ``` | |
| 38 | 25 | ||
| 39 | - | ||
| 40 | - | ||
| 26 | + | Das selbe kann mit der Methode gemacht werden: | |
| 27 | + | ||
| 28 | + | ``` pascal | |
| 41 | 29 | Edit1.AnchorToNeighbour(akLeft,10,Label1); | |
| 42 | 30 | ``` | |
| 43 | 31 | ||
| 44 | 32 | ## Anmerkungen | |
| 45 | 33 | ||
| 46 | - | ||
| 34 | + | Edit1.Left wird Label1.Left+Label1.Width folgen, nicht umgekehrt. Das bedeutet, dass eine Bewegung von Label1 auch Edit1 bewegen wird. Aber eine Bewegung von Edit1 wird von der LCL annulliert. Wenn Sie auch die rechte Seite von Label1 an der linken Seite von Edit1 verankern, dann erzeugen sie einen Kreis. Dies kann zusammen mit einigen anderen Autosize-Eigenschaften eine Endlosschleife verursachen. Ist Parent.AutoSize auf true gesetzt, wird dies von der LCL ignoriert oder automatisch repariert. | |
| 47 | 35 | ||
| 48 | 36 | ## Mittels des Ankereditors | |
| 49 | 37 | ||
| 50 | - | ||
| 38 | + | Der Ankereditor ist ein schwebendes Fenster, den Sie erreichen über das Menü **Ansicht / Ankereditor anzeigen** oder über die Schaltfläche in der Eigenschaft **Anchors** des Objektinspektors. | |
| 51 | 39 | ||
| 52 | - | ||
| 40 | + |  | |
| 53 | 41 | ||
| 54 | 42 | # Beispiel 2 | |
| 55 | 43 | ||
| 56 | - | ||
| 57 | - | ||
| 58 | - | ||
| 44 | + | Sie können die obere Seite von Edit1 so verankern, dass sie der oberen Seite von Label1 folgt: | |
| 45 | + | ||
| 46 | + | +--------+ +-------+ | |
| 59 | 47 | | Label1 | | Edit1 | | |
| 60 | 48 | +--------+ | | | |
| 61 | 49 | +-------+ | |
| 62 | - | ||
| 63 | - | ||
| 50 | + | ||
| 51 | + | ``` pascal | |
| 64 | 52 | Edit1.AnchorSide[akTop].Side:=asrTop; | |
| 65 | - | ||
| 66 | - | ||
| 53 | + | Edit1.AnchorSide[akTop].Control:=Label1; | |
| 54 | + | Edit1.Anchors:=Edit1.Anchors+[akTop]; | |
| 67 | 55 | ``` | |
| 68 | 56 | ||
| 69 | - | ||
| 70 | - | ||
| 57 | + | Das selbe kann mit der Methode gemacht werden: | |
| 58 | + | ||
| 59 | + | ``` pascal | |
| 71 | 60 | Edit1.AnchorParallel(akTop,0,Label1); | |
| 72 | 61 | ``` | |
| 73 | 62 | ||
| 74 | 63 | # Beispiel 3 | |
| 75 | 64 | ||
| 76 | - | ||
| 77 | - | ||
| 78 | - | ||
| 65 | + | Vertikale Zentrierung von Label1 an Edit1: | |
| 66 | + | ||
| 67 | + | +-------+ | |
| 79 | 68 | +--------+ | | | |
| 80 | 69 | | Label1 | | Edit1 | | |
| 81 | 70 | +--------+ | | | |
| 82 | 71 | +-------+ | |
| 83 | - | ||
| 84 | - | ||
| 72 | + | ||
| 73 | + | ``` pascal | |
| 85 | 74 | Edit1.AnchorSide[akTop].Side:=asrCenter; | |
| 86 | - | ||
| 87 | - | ||
| 75 | + | Edit1.AnchorSide[akTop].Control:=Label1; | |
| 76 | + | Edit1.Anchors:=Edit1.Anchors+[akTop]-[akBottom]; | |
| 88 | 77 | ``` | |
| 89 | 78 | ||
| 90 | - | ||
| 91 | - | ||
| 79 | + | Das selbe kann mit der Methode gemacht werden: | |
| 80 | + | ||
| 81 | + | ``` pascal | |
| 92 | 82 | Edit1.AnchorVerticalCenterTo(Label1); | |
| 93 | 83 | ``` | |
| 94 | 84 | ||
| 95 | - | ||
| 85 | + | Offensichtlich ist die Verankerung der unteren Seite von Edit1 bei einer Zentrierung nicht sinnvoll. | |
| 96 | 86 | ||
| 97 | 87 | # Neue Eigenschaft | |
| 98 | - | ||
| 88 | + | ||
| 89 | + | ``` pascal | |
| 99 | 90 | property AnchorSide[Kind: TAnchorKind]: TAnchorSide read GetAnchorSide; | |
| 100 | 91 | ``` | |
| 101 | 92 | ||
| 102 | - | ||
| 93 | + | Dies wird nicht im Objektinspektor veröffentlicht. Sie können sie zur Entwicklungszeit mit dem Ankereditor bearbeiten (Menü: Ansicht -\> Ankereditor anzeigen, oder auf den Button der 'Anchors' Eigenschaft klicken). | |
| 103 | 94 | ||
| 104 | 95 | # Neue Methoden zur einfachen Konfiguration eines gebräuchlichen Layouts | |
| 105 | - | ||
| 96 | + | ||
| 97 | + | ``` pascal | |
| 106 | 98 | procedure AnchorToNeighbour(Side: TAnchorKind; Space: integer; | |
| 107 | - | ||
| 108 | - | ||
| 109 | - | ||
| 110 | - | ||
| 111 | - | ||
| 112 | - | ||
| 99 | + | Sibling: TControl); | |
| 100 | + | procedure AnchorParallel(Side: TAnchorKind; Space: integer; | |
| 101 | + | Sibling: TControl); | |
| 102 | + | procedure AnchorHorizontalCenterTo(Sibling: TControl); | |
| 103 | + | procedure AnchorVerticalCenterTo(Sibling: TControl); | |
| 104 | + | procedure AnchorAsAlign(TheAlign: TAlign; Space: Integer); | |
| 113 | 105 | ``` | |
| 114 | 106 | ||
| 115 | - | ||
| 107 | + | AnchorVerticalCenterTo arbetet auch mit Eltern. Dann wird auf den Client-Bereich zentriert, das bedeutet die Mitte des Steuerelements ist bei *ClientHeight div 2*. | |
| 116 | 108 | ||
| 117 | - | ||
| 109 | + | Das zentrierte Verankern ist noch nicht vollständig unterstützt für die Berechnung der Größe der Eltern. Wenn Sie beispielsweise ein Label in einer Groupbox1 zentriert verankern und Groupbox1.AutoSize auf true setzen, dann schrumpft die Höhe der Groupbox1 und läßt keinen Platz für das Label. Die Lösung besteht darin, auf ein Steuerelement zu zentrieren, das selbst nicht zentriert ist. Zum Beispiel zentriere ein Label1 auf eine ComboBox und nimm für die ComboBox die vorgegebenen Anker (Anchors=\[akLeft,akTop\]). | |
| 118 | 110 | ||
| 119 | 111 | # Verankern an unsichtbaren Kontrollelementen | |
| 120 | 112 | ||
| 121 | - | ||
| 122 | - | ||
| 123 | - | ||
| 124 | - | ||
| 125 | - | ||
| 126 | - | ||
| 113 | + | Ab Version 0.9.25 rev 12800 wurde das Verankern an unsichtbaren Kontrollelemente geändert, damit es intuitiver arbeitet. Beispiel: Die Kontrollelemente A, B und C sind wie folgt verankert (C.Left an B.Right und B.Left an A.Right): | |
| 127 | 114 | ||
| 128 | - | ||
| 129 | - | ||
| 130 | - | ||
| 131 | - | ||
| 132 | - | ||
| 133 | - | ||
| 115 | + | ` +---+ +---+ +---+`\ | |
| 116 | + | ` | A | | B | | C |`\ | |
| 117 | + | ` +---+ +---+ +---+` | |
| 134 | 118 | ||
| 119 | + | Ist B unsichtbar (Visible:=false), wird C.Left B überspringen und sich an der rechten Seite von A verankern, womit das Ganze dann so aussieht: | |
| 120 | + | ||
| 121 | + | ` +---+ +---+`\ | |
| 122 | + | ` | A | | C |`\ | |
| 123 | + | ` +---+ +---+` | |
| 124 | + | ||
| 135 | 125 | # Zirkuläre Bezüge | |
| 136 | 126 | ||
| 137 | - | ||
| 127 | + | Sie erhalten einen Zirkularbezug, wenn Sie zwei Seiten an der jeweils anderen verankern. Dies liefert eine unmögliche Verankerung. Die LCL bemerkt das, löst aber keine Exception aus, weil es sich um einen temporären Kreis handeln könnte. Zum Beispiel: Eine Reihe von Schaltflächen. Button1 ist links von Button2, Button2 ist links von Button3. Jetzt verändern wir die Reihenfolge zu: Button3, Button1, Button2. Wenn die Verankerung mit Button3 startet, entsteht ein temporärer Kreis der aufgelöst wird, wenn das Umordnen abgeschlossen ist. Die LCL entdeckt Kreise und wird den Button nicht verschieben. Kreise sind nicht die einzige Anomalie. | |
| 138 | 128 | ||
| 139 | - | ||
| 140 | - | ||
| 129 | + | Es gibt eine Ausnahme zu dieser Regel. Wenn Parent.AutoSize wahr ist, dann bricht die LCL beim Autosize Kreise automatisch auf und schreibt eine Warnung über debugln (Windows: --debug-log.txt, Linux, et al: stdout). Welcher Anker aufgebrochen wird hängt von der Reihenfolge der Steuerelemente und der Seiten ab. Deshalb sind temporäre Kreise erlaubt mit AutoSize:=true wenn Sie die Änderungen einschließen in | |
| 130 | + | ||
| 131 | + | ``` pascal | |
| 141 | 132 | Parent.DisableAutosizing; | |
| 142 | - | ||
| 143 | - | ||
| 144 | - | ||
| 145 | - | ||
| 146 | - | ||
| 133 | + | try | |
| 134 | + | // change anchors, aligns, bounds... | |
| 135 | + | finally | |
| 136 | + | Parent.EnableAutosizing; | |
| 137 | + | end; | |
| 147 | 138 | ``` | |
| 148 | 139 | ||
| 149 | - | ||
| 140 | + | Der AutoSize-Algorithmus bricht nicht nur Kreisbezüge auf, sondern beseitigt auch Inkonsistenzen mit Align/AnchorSide. | |
| 150 | 141 | ||
| 151 | - | ||
| 142 | + | Eventuell wäre es günstig, im Designer Hinweise darauf einzufügen oder ein Werkzeug zum Auflisten der Kreisbezüge und Inkonsistenzen. | |
| 152 | 143 | ||
| 153 | 144 | # Siehe auch | |
| 154 | 145 | ||
| 155 | - | ||
| 156 | - | ||
| 157 | - | ||
| 146 | + | - [[Autosize / Layout]] | |
| 147 | + | - [[LCL AutoSizing]] | |
| 148 | + | - [[Example: Anchors. How to reliably align dynamically created controls under changing visibility]] | |
| 158 | 149 | ||
| 159 | 150 | --- | |
| 160 | - | ||
| 151 | + | *From the Free Pascal wiki, page "Anchor Sides/de", as it stood on 2020-02-06 after a change by GAN, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* | |
| 152 | + | Category: Lazarus/de |