Как run-time создать от руки компонент?

[SovereignSun]

Собственно такой трудный вопрос:
1.При нажатии на speed button, открывается диалоговое окно с полем edit куда пользователь пишет название нового компонента (в моем случае TImage), по нажатию Ок, курсор меняется на crosshair тип, и пользователю разрешается рисовать этот компонент (TImage), пользователь указывает шелчком первую точку, потом водит мышкой и отрисовывается любого вида прямоугольник (предпросмотр готового компонента), потом по второму шелчку, TImage создается того размера что нарисовал пользователь, в том месте где он его нарисовал. Следом открывает OpenDialog для выбора картинки для этого компонента. И после выбора уже, вставляется компонент с картинкой, а в treeview записывается его название, введеное в начале пользователем. При выборе компонента в treeview, этот компонент на форме выделяется рамкой, также он рамкой выделяется, если один раз кликнуть прямо на него, слева будет распологаться меню, где пользователь может в любое время изменить название, картинку загрузить другую, и всякое другое. Для обьекта должна быть возможность редактирование размера, например если пользователь с краю зацепит, то можно изменять размер передвижение мыши, а также перетаскивать компонент нажав и зажав кнопку мыши. Как это осуществлить? Также можно удалить объект, нажав delete или нажав кнопку удалить в меню. Как обращаться к run-time созданому объекту в run-time?

[veniside]

Подарите пользователю Дельфи, пусть играется )

Если серъёзно, то всё это муторно и долго надо ручками программировать. Вряд ли есть готовые решения, хотя хз.

[SovereignSun]

Да суть в том, что человеку хочеться программу. в которой можно было бы создавать мини альбом, со свободным расположением картинок и текста, и сохранять его в файл, и дать возможность печати в pdf, jpeg, а также на принтер. А я с таким еще не работал.

[veniside]

Такая программа уже есть, называется Фотошоп )

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

[SovereignSun]

FastReport не позволяет такое вытворять, я его уже пробовал, в остальных тоже не наблюдалось, а собственно идея заложенная в photoshope подходит, только вот узнать бы как она осуществленна?

[evg_m]

Если задачу разбить на мелкие задачи, то она станет проще, но программировать придется больше.

1.При нажатии на speed button,

создаем обработчик данного события. и в нем описываем последовательность действий пользователя.

открывается диалоговое окно с полем edit куда пользователь пишет название нового компонента (в моем случае TImage), по нажатию Ок,

делаем свою (новую) форму с нужными полями и кнопками.
показываем ее в нужный момент
проверяем что нажал пользователь
showModal =mrok

курсор меняется на crosshair тип,

меняем курсор Screen.Cursor:=
правило хорошего тона.
Все что меняли надо в конце восстанавливать. для воостановления куроса запоминаем старое значения.

и пользователю разрешается рисовать этот компонент (TImage), пользователь указывает шелчком первую точку,

устанавливаем флаг нам нужна первая точка (меняем состояние объекта (формы).
ловим щелчок мыши OnMouseUp
проверяем наш флаг ( состояние формы первая точка) и запоминаем место (координаты). и ставим флаг нужна вторая точка (другое состояние )
пригодятся методы clienttoScreen / ScreenToClient.

потом водит мышкой

ловим движения мыши OnMouseMove
и второй щелчок.OnMouseUp
и проверяем флаг (состояние вторая точка)

и отрисовывается любого вида прямоугольник

рисуем

(предпросмотр готового компонента),
потом по второму шелчку, TImage создается того размера что нарисовал пользователь, в том месте где он его нарисовал.

восстанавливаем курсор( см правило хорошего тона).

var
  r: TControl;

r:=Timage.Create(?);
r.Left:=?
r.Top:=?
r.width:=?
r.height:=?
// координаты достаем из сохраненного в OnMouseUp
r.parent:=?

Следом открывает OpenDialog для выбора картинки для этого компонента.
И после выбора уже, вставляется компонент с картинкой,

r.LoadFromFile( OpenDialog.Filename);

а в treeview записывается его название, введеное в начале пользователем.

форма где вводили есть TreeView тоже. методы компонента TreeView известны (Help, литература).

При выборе компонента в treeview, этот компонент на форме выделяется рамкой, также он рамкой выделяется, если один раз кликнуть прямо на него, слева будет распологаться меню, где пользователь может в любое время изменить название, картинку загрузить другую, и всякое другое. Для обьекта должна быть возможность редактирование размера, например если пользователь с краю зацепит, то можно изменять размер передвижение мыши, а также перетаскивать компонент нажав и зажав кнопку мыши. Как это осуществлить? Также можно удалить объект, нажав delete или нажав кнопку удалить в меню.

тоже можно разбить на мелкие кусочки.

Как обращаться к run-time созданому объекту в run-time?

что бы обращаться вы(программа) должна о нем знать. Объект при создании должен быть присвоен какой-либо переменной \элементу массива\ полю какого другого известного объекта откуда при необходимости его можно будет вытащить.

[SovereignSun]

Предположим, первый этап:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
btn1: TButton;
dlgOpen1: TOpenDialog;
tv1: TTreeView;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ImageName: String;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
Var
Node : TTreeNode;
begin
Form2.ShowModal;
with TImage.Create( Form1 ) do
Begin
Parent := Form1; // this is important
Canvas.Handle;
Left := 244; // X coordinate
Top := 155; // Y coordinate
Name := 'imagename'; // this is important
Width := 255;
Height := 255;
Stretch := True;
Visible := True;
Visible := True;
dlgOpen1.Execute;
Picture.LoadFromFile(Form1.dlgOpen1 .FileName);
end;
Node:=tv1.Items.Add(nil,imagename);
Node.ImageIndex:=0;
end;

end.

unit Unit2;

interface

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

type
TForm2 = class(TForm)
edt1: TEdit;
lbl1: TLabel;
btn1: TButton;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.btn1Click(Sender: TObject);
begin
ImageName:=edt1.Text;
Close;
end;

end.

Собственно от этого как плясать?

[Johnson]

Набросал за 5 минут...
Развивайте логику, мсье...

За отдельную плату - сделаю строго по ТЗ и с красивым оформлением... контакты в профиле.

[SovereignSun]

А кто нибудь видел исходник программы типа Photoshop простенькой? я бы оттуда содрал.

[Пепел Феникса]

я бы оттуда содрал.

вы думаете сможете легко разобраться в чужом коде?(еще GIMP есть)