Canvas RoundRect aber wie

**DieDolly**

Es geht um eine Tableiste, ähnlich TTabControl oder TPageControl.

Die folgenden Punkte eines jeden Tabs sind bekannt

Delphi-Quellcode:

			 PL1 := Point(ARect.Left, ARect.Top); // links oben

 PL2 := Point(ARect.Left, ARect.Bottom - 1); // links unten

 PR1 := Point(ARect.Right - 1, ARect.Top); // rechts oben

 PR2 := Point(ARect.Right - 1, ARect.Bottom - 1); // rechts unten

Ich male die Umrandung eines Tabs immer selber mit

markieren

Delphi-Quellcode:

			DrawLine(C, PL1.X, PL1.Y, PL2.X, PL2.Y + 1, AColorBorder); // LINKS: von links oben nach links unten

DrawLine(C, PR1.X, PR1.Y, PR2.X, PR2.Y + 1, AColorBorder); // RECHTS: von rechts oben nach rechts unten

DrawLine(C, PL1.X, PL1.Y, PR1.X, PL1.Y, AColorBorder); // OBEN: von links oben nach rechts oben

// je nachdem ob ein Tab aktiv ist oder nicht

DrawLine(C, PL2.X, ARect.Bottom, PR2.X, ARect.Bottom, AColorBorderLow); // UNTEN: von links unten nach rechts unten (aktiv)

DrawLine(C, PL2.X + 1, ARect.Bottom, PR2.X - 1, ARect.Bottom, AColorBg); // UNTEN: von links unten nach rechts unten (inaktiv)

Wie kann ich anhand der Punkte PL1 und PL2 jetzt mit RoundRect einen runden Tab malen?
Oder wie kann ich die beiden oberen Ecken links und rechts abrunden?

**stahli**

Es gab kürzlich mal einen ähnlichen Beitrag:

https://www.delphipraxis.net/207924-...ml#post1489609
Vielleicht hilft Dir das ja schon...

**Redeemer**

Warum steht im Titel RoundRect, du benutzt es aber nicht? Ich hätte ja jetzt erwartet, dass man, wenn unten eh Ende der Zeichenfläche ist (wovon ich einfach mal ausgehe), das RoundRect einfach höher zeichnet, sodass die Rundungen unten nicht mehr im Zeichenbereich liegen.

**DieDolly**

Ich benutze es nicht, weil ich nicht weiß wie. Deswegen frage ich ja hier nach.
Wie ich CreateRoundRectRgn anwende habe ich keine Ahnung. Ich habe ein Canvas (C) und nur damit darf ich arbeiten.

**TiGü**

Ist die Hilfe und das Internet kaputt?

http://docwiki.embarcadero.com/Libra...nvas.RoundRect

**DieDolly**

Um das noch einmal ganz genau zu erklären: ich weiß nicht welcher meiner Punkte bei der Übergabe wohin gehört. Da bringt mir die Hilfe auch nicht viel.
Weil dann will RoundRect zusätzlich noch X3 und Y3 aber ich habe nur PL1, PL2, PR1 und PR2.

Canvas RoundRect aber wie

Canvas RoundRect aber wie

AW: Canvas RoundRect aber wie

AW: Canvas RoundRect aber wie

AW: Canvas RoundRect aber wie

AW: Canvas RoundRect aber wie

AW: Canvas RoundRect aber wie

Forumregeln

stahli Registriert seit: 26. Nov 2003 Ort: Halle/Saale 4.352 Beiträge Delphi 11 Alexandria	#2 AW: Canvas RoundRect aber wie 14. Jun 2021, 20:50 Es gab kürzlich mal einen ähnlichen Beitrag: https://www.delphipraxis.net/207924-...ml#post1489609 Vielleicht hilft Dir das ja schon... Stahli http://www.StahliSoft.de --- "Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
	Zitat

Redeemer Registriert seit: 19. Jan 2009 Ort: Kirchlinteln (LK Verden) 1.114 Beiträge Delphi 2009 Professional	#3 AW: Canvas RoundRect aber wie 15. Jun 2021, 12:00 Warum steht im Titel RoundRect, du benutzt es aber nicht? Ich hätte ja jetzt erwartet, dass man, wenn unten eh Ende der Zeichenfläche ist (wovon ich einfach mal ausgehe), das RoundRect einfach höher zeichnet, sodass die Rundungen unten nicht mehr im Zeichenbereich liegen. Janni 2005 PE, 2009 PA, XE2 PA
	Zitat

DieDolly Registriert seit: 22. Jun 2018 2.175 Beiträge	#4 AW: Canvas RoundRect aber wie 15. Jun 2021, 16:36 Ich benutze es nicht, weil ich nicht weiß wie. Deswegen frage ich ja hier nach. Wie ich CreateRoundRectRgn anwende habe ich keine Ahnung. Ich habe ein Canvas (C) und nur damit darf ich arbeiten. Geändert von DieDolly (15. Jun 2021 um 16:39 Uhr)
	Zitat

TiGü Registriert seit: 6. Apr 2011 Ort: Berlin 3.073 Beiträge Delphi 10.4 Sydney	#5 AW: Canvas RoundRect aber wie 15. Jun 2021, 16:42 Ist die Hilfe und das Internet kaputt? http://docwiki.embarcadero.com/Libra...nvas.RoundRect
	Zitat

DieDolly Registriert seit: 22. Jun 2018 2.175 Beiträge	#6 AW: Canvas RoundRect aber wie 15. Jun 2021, 16:58 Um das noch einmal ganz genau zu erklären: ich weiß nicht welcher meiner Punkte bei der Übergabe wohin gehört. Da bringt mir die Hilfe auch nicht viel. Weil dann will RoundRect zusätzlich noch X3 und Y3 aber ich habe nur PL1, PL2, PR1 und PR2.
	Zitat