Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.312 Beiträge
 
Delphi XE2 Professional
 
#1

TCanvas: Probleme mit Form-Umrandung

  Alt 26. Dez 2004, 15:33
Hallo,

anbei ein Test-Projekt von mir.

Dort wird ein BalloonTip erzeugt und im OnPaint der Form die komplette Form umrandet.

Mit
Code:
//Rahmen um den Balloon zeichnen
Pen.Width := PenWidth_BalloonTip;
Pen.Color := PenColor_Rand;
RoundRect(0, 0, Form_Width, Form_Height - C, C, C);
wird ein schwarzer Rahmen um den BalloonTip gezeichnet - mein Problem ist hierbei, dass die Rahmenstärke sichtbar nicht überall gleich dick ist und dass links die Form-Farbe (rot) noch durchscheint.

Mit
Code:
//Rahmen um den Pfeil zeichnen
Pen.Width := PenWidth_Pfeil;
Pen.Color := PenColor_Rand;
Polyline(Points_Framework);
wird ein schwarzer Rahmen um den Pfeil gezeichnet. Das geht soweit auch gut, aber nur nach Art des Pfeils (Links (L), Rechts (R), Mitte (M)) ist die Rahmenstärke anders.

Mit
Code:
Pen.Width := PenWidth_Pfeil;
Pen.Color := Color;

Rect.Top   := Form_Height - C - PenWidth_BalloonTip;
Rect.Bottom := Form_Height - C;
Rect.Left  := Points_Framework[0].X + PenWidth_BalloonTip;
Rect.Right := Rect.Left + C - PenWidth_Pfeil + 1;

Rectangle(Rect);
wird der schwarze Strich zwischen BalloonTip und Pfeil mit der Form-Farbe übermalt.

Jetzt meine Fragen:
Wie bekomme ich es hin, dass überall (sichtbar) die gleiche Strichstärke ist?
Warum scheint links die Form-Farbe durch und wie kann ich es verhindern?

mfg
Helmi
Angehängte Dateien
Dateityp: zip test3_175.zip (205,5 KB, 7x aufgerufen)
  Mit Zitat antworten Zitat