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
x1:=Form1.Left+Form1.Width div 4;
y1:=Form1.Top+Form1.Height div 4;
x2:=3*(Form1.left+Form1.Width) div 4;
y2:=3*(Form1.Top+Form1.Height) div 4;
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?