PaintBox. Рисование

[antikhrist]

Здравствуйте уважаемые форумчане, собственно такая проблема, результатом работы программы на Delphi: По нажатию кнопки появляется прямоугольник (вертикальный), ещё раз нажали кнопку - рядом с предыдущим появляется ещё один такой же и так далее .... Я использую BitBtn и рисоваться прямоугольники должны в PaintBox'е, а не на всей форме. Помогите пожалуйста в реализации или может у кого есть пример чего-то похожего

[Stilet]

Я использую BitBtn

Для чего? Эта функа не рисует прямоугольники а просто перерисовывает уже имеющееся изображение в указанное тобой место.
Прямоугольники рисуются функцией rectangle

[mflat]

procedure TForm1.FormPaint(Sender: TObject);
begin
with PaintBox1.Canvas do
 begin
  Brush.Color := clWhite;
  Rectangle(0,0,100, 100);
 end;
end;

Такой пример подойдёт?

[antikhrist]

Уточню задачу: по нажатии кнопки (BitBtn) рисуется прямоугольник, затем ещё раз её нажали рядом нарисовался такой же, и тд, но только в пределах одного PaintBox'а. И как бы была ещё возможность затем эти нарисованные прямоугольники из одного PaintBox'а перетаскивать в другой .... Так что б в новом они появлялись а из другого исчезали %)

[DeKot]

with PaintBox1.Canvas do
begin
Brush.Color := clWhite;
Rectangle(x,0,x+100, 100);

Этот код пропиши в виде отдельной процедуры.В обработчике OnClick кнопки BitBtn вызывай эту процедуру и изменяй переменную х (x:= x + 110, к примеру).
Создай еще одну кнопку, по нажатии которой копируй (метод CopyRect) канву одного PaintBox в другой и очищай (Cleare) первый.

[mflat]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    pb1: TPaintBox;
    pb2: TPaintBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;
  x1, y1, x2, y2: integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  pb1.Canvas.Rectangle(x1, y1, x2, y2);
  Dec(x1); Dec(x2); Dec(y1); Dec(y2);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  x1 := 100;
  x2 := 200;
  y1 := 100;
  y2 := 200;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  pb2.Canvas.CopyRect(pb2.ClientRect, pb1.Canvas, pb1.ClientRect);
end;

Сам разберешься?
DeKot, Вы меня опередили

[antikhrist]

если честно, то как-то не сильно получилось разобраться.(((( Скомпилилось всё, но не рисует (((

[mflat]

Исходный код в архиве. Всё работает.

[antikhrist]

Спасибо большое за помощь, но тут как бы я повторюсь по уточнению, что перетаскивать так что б с одного они исчезали а в другом появлялись, и очень желательно перетаскивать мышью, тоесть кнопка перетащить как такова не нужна..... и перетаскиваться не все сразу а по одному... %) вот такая нелёгкая задача Помогите плиз! mflat, большое спасибо и очень надеюсь на твою помощь

[mflat]

Просто дополни этот код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  pb2.Canvas.CopyRect(pb2.ClientRect, pb1.Canvas, pb1.ClientRect);
  pb1.Canvas.FillRect(Rect(0,0,200, 200));
end;

Ну если уж помог, нажми пожалуйста на весы слева, и я буду тебе благодарен
С помощью мышки пока не знаю как, но сейчас попробую сделать.