[Pigmalion]

Доброго времени суток.Подскажите,как в программе создать графическую фигуру,соединённую линией с другой,при нажатии она должна менять цвет. И если выбираешь соединённую с ней, должны окрашиваться линии связи вместе с этими фигурами.Конкретно интересует как в canvas изменять изображения при их выборе.

[Bars1992]

Как говорится "если хочешь помочь бедняку то дай ему удочку а не рыбу"

В канве это никак не реализуется но мы же умнее. Создаем список с бит мапов (TList) только у каждого бит мапа должен быть прозрачный фон (в нете информация есть). При нажатиии кнопки ил другом событии налажываешь каждый бит мап с динамического списка друг на друга. Вобщем тебе надо графическое ядро. Если клацаешь на рисунок то ты должен узнать был ли щелчек по какой то линии, и если надо просто перекрашиваешь линию.

Другой вариант. Анализируешь цвет пикселя по которому был клик и если он отличный от фона, перекрашиваешь все соседние пиксели и анализируешь соседние соседних и так цепная реакция :-)

Если надо будет могу попоже написать пример.

[Pigmalion]

В canvas нашёл процедуру StyleChangedfSender(Tobject);-изменение объекта - может быть это можно как-то реализовать?Насчет TList не смог найти ничего подходящего,как я понял это класс для хранения объектов и их сортировка.
Пример был бы кстати, если возможно.

[Bars1992]

Сообщение от Pigmalion

В canvas нашёл процедуру StyleChangedfSender(Tobject);-изменение объекта - может быть это можно как-то реализовать?Насчет TList не смог найти ничего подходящего,как я понял это класс для хранения объектов и их сортировка.
Пример был бы кстати, если возможно.

Возможно только не седня завтро екзамен надо выспатся)

[NumLock]

PHP код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure PaintBoxPaint(Sender: TObject);
    procedure PaintBoxClick(Sender: TObject);
    procedure PaintBoxLinePaint(Sender: TObject);
    procedure PaintBoxLineClick(Sender: TObject);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  paintbox: TPaintBox;
  x1, y1, x2, y2: Integer;
begin
  Randomize;
  // 1
  paintbox:=TPaintBox.Create(Self);
  paintbox.Parent:=Self;
  paintbox.Left:=10;
  paintbox.Top:=10;
  paintbox.Color:=Random($ffffff);
  paintbox.OnPaint:=PaintBoxPaint;
  paintbox.OnClick:=PaintBoxClick;
  x1:=paintbox.Left+paintbox.Width;
  y1:=paintbox.Top;
  // 2
  paintbox:=TPaintBox.Create(Self);
  paintbox.Parent:=Self;
  paintbox.Left:=200;
  paintbox.Top:=10;
  paintbox.Color:=Random($ffffff);
  paintbox.OnPaint:=PaintBoxPaint;
  paintbox.OnClick:=PaintBoxClick;
  x2:=paintbox.Left;
  y2:=paintbox.Top+paintbox.Height;
  // line
  paintbox:=TPaintBox.Create(Self);
  paintbox.Parent:=Self;
  paintbox.Left:=x1;
  paintbox.Top:=y1;
  paintbox.Width:=x2-x1;
  paintbox.Height:=y2-y1;
  paintbox.Color:=Random($ffffff);
  paintbox.OnPaint:=PaintBoxLinePaint;
  paintbox.OnClick:=PaintBoxLineClick;
end;

procedure TForm1.PaintBoxPaint(Sender: TObject);
var
  paintbox: TPaintBox;
begin
  paintbox:=TPaintBox(Sender);
  paintbox.Canvas.Pen.Color:=paintbox.Color;
  paintbox.Canvas.FillRect(paintbox.ClientRect);
end;

procedure TForm1.PaintBoxClick(Sender: TObject);
var
  paintbox: TPaintBox;
begin
  paintbox:=TPaintBox(Sender);
  paintbox.Color:=Random($ffffff);
  paintbox.Invalidate;
end;

procedure TForm1.PaintBoxLinePaint(Sender: TObject);
var
  paintbox: TPaintBox;
begin
  paintbox:=TPaintBox(Sender);
  paintbox.Canvas.Pen.Color:=paintbox.Color;
  paintbox.Canvas.Pen.Width:=4;
  paintbox.Canvas.MoveTo(paintbox.ClientRect.Left, paintbox.ClientRect.Top);
  paintbox.Canvas.LineTo(paintbox.ClientRect.Right, paintbox.ClientRect.Bottom);
end;

procedure TForm1.PaintBoxLineClick(Sender: TObject);
var
  i: Integer;
  paintbox: TPaintBox;
  c: TColor;
begin
  paintbox:=TPaintBox(Sender);
  if paintbox.Canvas.Pixels[paintbox.ScreenToClient(Mouse.CursorPos).X, paintbox.ScreenToClient(Mouse.CursorPos).Y]=paintbox.Color then
  begin
    c:=Random($ffffff);
    for i:=0 to ComponentCount-1 do
    begin
      if Components[i] is TPaintBox then
      begin
        paintbox:=TPaintBox(Components[i]);
        paintbox.Color:=c;
        paintbox.Invalidate;
      end;
    end;
  end;
end;

end. 


http://data.cod.ru/62299

[Pigmalion]

Благодарю NumLock.Надо попробовать.
А как можно сменить одно изображение (bmp) на другое при щелчке на него?

[Bars1992]