Работа с PaintBox

[ElenkaG]

Ребят,помогите!!!!! Нигде не могу найти решение это проблемы! Требуется написать программу с использованием PaintBox, суть проги в следующем: Пользователь вводить размеры прямоугольника,круга или многоугольника в строки Edit (н-р: длина,ширина для прямоугольника) и на Канве в PaintBox должно по клику мыши нарисовать. Проблема в следующем: нужно чтоб фигура размещалась по центру независоми от размера,например если размер канвы 300*300,а ращмер фигуры 1000*1000, то как быть,чтоб за пределы не выходила фигура и чтоб масштабировалсь с расположением посередине,может как то можно сделать без использвания паинтбоакса???? Огромнейшее спасибо,всем кто откликнется!!!!!

вот код того что я написала:

unit UnitP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    PaintBox1: TPaintBox;


    procedure BitBtn1Click(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,y: integer;
  StrA: string;
  StrB: string;
  m, k, mk: real;
  h,b,h1,b1,x1,y1: integer;

implementation

{$R *.dfm}





procedure TForm1.BitBtn1Click(Sender: TObject);
begin
StrA:= Edit1.Text;
StrB:= Edit2.Text;
b:= StrToIntDef(Edit1.Text,0);
h:= StrToIntDef(Edit2.Text,0);
              h1:= 250;
              b1:= 250;
              x1:= abs((b - b1) div 2);
              y1:= abs((h - h1) div 2);
              x:= b + x1 ;   //ввод размеров сечения
              y:= h + y1;
              k:= 1;
              m:= 1;
              mk:= 1;
                           if b > b1 then  // ограничение границ 
                           m:= b1 / (1.3 * b - 0.5 * b1);
                           if h > h1 then
                           k:= h1 / (y+325);
                           if m > k then mk:= k else
                                    mk:= m;


                             if mk <> 1 then
                              begin
                              x:= round(x * mk);
                              y:= round (y * mk);
                              x1:= round(abs((x - b1) div 2)*mk);
                              y1:= round(abs((y - h1) div 2) * mk);
                              end;

              PaintBox1.Canvas.Rectangle(0,0,250,250);
              PaintBox1.Canvas.Brush.Color:= clSilver;// отрисовка сечения
              PaintBox1.Canvas.Rectangle(x1,y1,x,y);
              PaintBox1.Canvas.Brush.Color:= clWhite;


end;



procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
PaintBox1.Color:= clWhite;
with PaintBox1, Canvas do
     begin
     Pen.Color:= clBlack;
     Rectangle(0,0,250,250); //создание канвы(основного фона)


     end;
end;


end.

[Foreseen]

Не вижу проблемы, чистая арехметика.
Вот так, например, центруется окружность:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
x,y,x1,y1: integer;
begin
x1:=strtoint(Edit1.Text);
y1:=strtoint(Edit1.Text);
x:=PaintBox1.Height div 2;
y:=PaintBox1.Width div 2;
PaintBox1.Canvas.Rectangle(0,0, PaintBox1.Height, PaintBox1.Width);
PaintBox1.Canvas.Ellipse(x-x1,y-y1, x+x1, y+y1);
end;

То же самое касается масштабирования, проверяйте вводимые размеры, приводите их к размерам вашего холста

[Serge_Bliznykov]

Foreseen, я бы в вашем примере вместо двух переменных x1 и y1 использовал одну с именем R