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

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

:wiejetzt:

[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.

[TiGü]

Was genau verstehst du denn nicht an:
"Der Bogen der abgerundeten Ecken entspricht der Krümmung einer Ellipse mit der Breite X3 und der Höhe Y3."

Wenn das zu schwierig zu verstehen ist, probiere es doch einfach aus und nähere dich dem Ergebnis schrittweise an.
Also iterativ die Frage selbst beantworten: Wie rund darf es denn sein?

Folgendes Beispiel - Angenommen PL1 ist oben links und PR2 ist unten rechts eines gedachten Rechteckes.
Und von PL1.X bis PR2.X ist die Gesamtbreite und analog dazu PL1.Y bis PR2.Y die Gesamthöhe:

Delphi-Quellcode:

 C.RoundRect(PL1.X, PL1.Y, PR2.X, PR2.Y, (PL1.X + PR2.X) div 2, (PL1.Y + PR2.Y) div 2);

[DieDolly]

Ist egal es klappt nicht. Wäre schön gewesen wenn, aber es soll wohl nicht. Es wird dann leider einfach keine Linie gezeichnet.
Wenn ich das div 2 wegnehme, sehe ich irgendetwas Komisches, sieht aber nicht aus, als ob es richtig ist und auch an der falschen Stelle, also nicht oben wie ein Rand sein sollte.
Mit meinem Manuellen "4 Linien" malen sehe ich sie.

Zitat:

Was genau verstehst du denn nicht an:

Ich verstehe davon gar nichts. Solche Leute gibt es halt auch und es ist recht unfair wenn man von jedem erwartet, alles sofort zu verstehen oder jemals zu verstehen.

Wenns gar nicht geht, lasse ich es so wie ich es aktuell habe, starte die Linie rechts und links 4 Pixel weiter unten und setze für die Kurve halt 3 oder 4 Punkte.

[Sinspin]

Probier mal X3 und Y3 mit viel kleinere Zahlen. Keine Ahnung warum da in der Delphi Hilfe mit so großen Werten gspielt wird.

[DieDolly]

Egal welche Werte ich für X3 und Y3 benutze, es wird nichts gezeichnet oder was ganz Falsches. Aber kein Rand um einen Tab.

[Redeemer]

Dann beginn halt mit einem Rectangle. Die ersten vier Parameter sind nämlich identisch. Und dann beginnst du mit ganz kleinen Zahlen (2 oder 3) für X3 und Y3.

Und mit "was falsches" kann hier auch keiner was anfangen. Es ist nicht "falsch", es ist nur das, was du gesagt hast. Anhand der Eingabewerte und des sich ergebenden Bildes kannst du durch kleinere Veränderungen selbst lernen, was was ist. Wenn du nicht in der Lage bist, ein Rechteck zu zeichnen, kommen wir hier nicht weiter.

[TiGü]

Ich versuche es nochmal mit ein bisschen guten Willen und Beispielquelltext.
Bitte einfach ein neues VCL-Projekt erstellen, einen Paint-Eventhandler zusammenklicken und folgenden Quelltext reinkopieren:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
var
    R: TRect;
    X, Y: Integer;
begin
    Self.Canvas.Pen.Width := 3;

    Self.Canvas.Brush.Color := clWebYellowGreen;
    Self.Canvas.Pen.Color := clWebGreen;

    R := Self.ClientRect;

    R.Offset(0, R.Height div 2);

    X := Round(R.Width * 0.1);
    Y := Round(R.Height * 0.1);
    R.Inflate(-X, -Y);

    Self.Canvas.Rectangle(R.Left, R.Top, R.Right, R.Bottom);

    Self.Canvas.Brush.Color := clWebLavender;
    Self.Canvas.Pen.Color := clWebChocolate;

    X := Round(R.Width * 0.1);
    Y := Round(R.Height * 0.1);
    R.Inflate(-X, -Y);

    Self.Canvas.RoundRect(R.Left, R.Top, R.Right, R.Bottom, 30, 30);

    Self.Canvas.Brush.Color := clWebLightYellow;
    Self.Canvas.Pen.Color := clWebFirebrick;

    X := Round(R.Width * 0.1);
    Y := Round(R.Height * 0.1);
    R.Inflate(-X, -Y);

    Self.Canvas.RoundRect(R.Left, R.Top, R.Right, R.Bottom, 10, 10);

    Self.Canvas.Brush.Color := clWebLightSlateGray;
    Self.Canvas.Pen.Color := clWebOrchid;

    X := Round(R.Width * 0.1);
    Y := Round(R.Height * 0.1);
    R.Inflate(-X, -Y);

    Self.Canvas.RoundRect(R.Left, R.Top, R.Right, R.Bottom, X, Y);
end;

[Blup]

Falls jemand die Hilfe immer noch nicht gefunden hat: http://docwiki.embarcadero.com/Libra...nvas.RoundRect

Benötigt werden nur 2 Punkte zum Zeichnen eines Rechtecks.

Delphi-Quellcode:

 PTL := ARect.TopLeft;     // links oben
 PBR := ARect.BottomRight; // rechts unten

Für ein Rechteck mit runde Ecken muss man zusätzlich noch den Breite und Höhe der Rundungen festlegen.

Delphi-Quellcode:

  Rx := 10; // Radius einer runden Ecke horizontal
  Ry := 5;  // Radius einer rundne Ecke vertical

Damit die unteren Ecken nicht sichtbar sind, vergrössert man das Rechteck um den Radius der unteren runden Ecken.
Damit ragt das Rechteck aus dem Zeichenbereich hinaus.

Delphi-Quellcode:

  {Rahmen}
  Canvas.Pen
  {Inhalt}
  Canvas.Brush
  {Zeichnen}
  Canvas.RoundRect(PTL.X, PTL.y, PBR.x, PBR.y + Ry, Rx * 2, Ry * 2);

Leider werden runde Excken, Kreisbögen oder schräge Linien nur unbefriedigend dargestellt.
Für bessere Qualität müssten die Zeichenwerkzeuge Pixel z.T. halbtransparent zeichnen.

[TiGü]

Zitat:

Zitat von Blup (Beitrag 1491127)

Falls jemand die Hilfe immer noch nicht gefunden hat:

Beitrag #5? :warn:

[striderx]

Zitat:

Zitat von Blup (Beitrag 1491127)

Leider werden runde Excken, Kreisbögen oder schräge Linien nur unbefriedigend dargestellt.
Für bessere Qualität müssten die Zeichenwerkzeuge Pixel z.T. halbtransparent zeichnen.

Das kann man gut mit GDI+ machen (SmoothingModeAntiAlias). Wenn man die unteren runden Ecken nicht braucht, reichen die beiden oberen Kreisbögen und die Basis-Linie - den Rest kann man von GDI+ ergänzen lassen (CloseFigure).