1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
unit ex01a;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Imaging.jpeg,
uTreeComponent;
type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
procedure FormActivate(Sender: TObject);
end;
var
Form1: TForm1;
bprem: boolean = true;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
var
Container1: TTreeComponent;
aImage: TImage;
sl1: TStringList;
begin
if not bprem then
exit;
bprem := false;
Container1 := TTreeComponent.Create(self);
aImage := TImage.Create(Container1);
aImage.Picture.Assign(Image2.Picture);
sl1 := TStringList.Create;
sl1.Text := Container1.Serialization;
sl1.SaveToFile('a.txt');
sl1.Free;
aImage.Free;
Container1.Free;
sl1 := TStringList.Create;
sl1.LoadFromFile('a.txt');
Container1 := TTreeComponent.Create(self);
Unserialize(sl1.Text, Container1);
Image1.Picture.Assign(TImage(Container1.Components[0]).Picture);
end;
initialization
RegisterClasses([TTreeComponent, TImage]);
finalization
UnRegisterClasses([TTreeComponent, TImage]);
end. |
