Hallo Jazzman,
mit dem Stil
psInsideFrame kannst du - unabhängig von der Stiftbreite - einen Rahmen innerhalb eines gegebenen Rechtecks zeichnen:
Delphi-Quellcode:
Canvas.Brush.Style := bsClear;
Canvas.Pen.Width := 19;
Canvas.Pen.Style := psInsideFrame;
Canvas.Pen.Color := clYellow;
Canvas.Rectangle (20, 20, 180, 120);
Canvas.Pen.Color := clBlack;
Canvas.Pen.Width := 1;
Canvas.Pen.Style := psSolid;
Canvas.Rectangle (19, 19, 181, 121);
Gruß Hawkeye