Linie wird nicht angezeigt

[K-Asche]

Hi@all,

ich möchte für das unten erstellte Rect eine Rahmen zeichnen.
Die linke und die Linie für oben werden problemlos gezecihnet, aber die rechte wird nicht angezeigt.
Was mache ich falsch?

Delphi-Quellcode:

  Canvas.Pen.Color := clSkyBlue;
  //Funktioniert
  Canvas.MoveTo(0,0);
  Canvas.LineTo(ClientWidth, 0);
  //Funktioniert
  Canvas.MoveTo(0,0);
  Canvas.LineTo(0, 20);
  //Funktioniert nicht???
  Canvas.MoveTo(ClientWidth,0);
  Canvas.LineTo(ClientWidth, 20);

  Canvas.Brush.Color := clBtnFace;
  Canvas.Font.Size := 8;
  Canvas.FillRect(Rect (1,1,ClientWidth-1,20));
  Canvas.TextOut(10, 2 ,'text');

Gruß

Karsten

[Kroko1999]

ClientWidth-1 //EDIT

denn der Canvas ist ClientWidth breit und geht von 0..ClientWidth-1

[Sharky]

Hai K-Asche,

ich denke mal es liegt daran das bei dem Element auf das Du zeichnest ClientWidth = Width ist. Wenn Du das zum Beispiel mit einem TImage machst ist es so. Du müsstest also für das zeichnen der Linie auch ein (Client)Width - 1 verwenden.

[K-Asche]

Danke, das wars