Seltsames Zeichenverhalten

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

Download

î_.- Beispiel Programm

Wie man sieht ist der unterschied zwischen usRound und usRect gravierend, er zeichnet das einfach nicht richtig....

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

  case Shape of
    usRound: begin
               Canvas.Ellipse(GetClientRect);  // Uhrrahmen zeichnen
             end;
    usRect:  begin
               Canvas.FillRect(GetClientRect);
               Canvas.Rectangle(GetClientRect);
             end;

Der Rest ist gleich...

Das wird auf ein TBitmap gezeichnet das später direkt auf das Canvas gelegt wird

//Edit

Wenn ich es aber direkt auf das canvas zeichne sieht es normal asu...

Fis

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme