dibujar un rectangulo
 

Estoy aquí con mi nuevo amigo canvas intentando llevarnos bien pero no hay manera...

Tengo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  x1,x2,y1,y2: integer;
begin
  { punto (x1,y1) => centro del segundo cuadrante de la ventana }
  x1:=Form1.Left+Form1.Width div 4;
  y1:=Form1.Top+Form1.Height div 4;
  { punto (x2,y2) => centro del cuarto cuadrante de la ventana}
  x2:=3*(Form1.left+Form1.Width) div 4;
  y2:=3*(Form1.Top+Form1.Height) div 4;
  { dibujado del rectángulo }
  canvas.Rectangle(x1,y1,x2,y2);
end;

La idea es que dibuje un rectángulo centrado en el form de la mitad del tamaño del mismo y cuando la ventana está maximizada lo hace bien, pero cuando no lo está aunque el tamaño parece el correcto (más pequeño debido a que la ventana también es más pequeña) la posición no lo es ya que no está centrado.

¿Creen que estoy haciendo algo mal? :confused:

Prueba a simplificarlo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Rect: TRect;
begin
  Rect:= ClientRect;
  InflateRect(Rect, -Width div 4, -Height div 4);
  Canvas.Rectangle(Rect);
end;

Saludos.

Gracias por la sugerencia, me funciona tal como quería y es más simple. Ahora mismo me pongo con la help a ver qué es lo que hace :)