current/Tools/MetaEditor.pas

unit MetaEditor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, _BaseTemplate, ExtCtrls, VirtualTrees, StdCtrls, ComCtrls, Grids,
  MPHexEditor, Wrapgrid;

type
  TForm_Meta = class(TForm_BaseTemplate)
    VST: TVirtualStringTree;
    splitter: TSplitter;
    rightPages: TPageControl;
    tab_hex: TTabSheet;
    tab_meta: TTabSheet;
    panel_hex_actions: TPanel;
    hex: TMPHexEditor;
    splitter_hex_1: TSplitter;
    value_viewer: TWrapGrid;
    splitter_hex_2: TSplitter;
    structviewer: TVirtualStringTree;
    procedure FormCreate(Sender: TObject);
    procedure VSTInitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode;
      var ChildCount: Cardinal);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
      Column: TColumnIndex);
    procedure VSTFocusChanging(Sender: TBaseVirtualTree; OldNode,
      NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
      var Allowed: Boolean);
    procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
      Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
    procedure VSTPaintText(Sender: TBaseVirtualTree;
      const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
      TextType: TVSTTextType);
  private
    procedure NewCon(ID: Integer);
  public
  end;


implementation
{$R *.dfm}
uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes;

type
  PNodeData = ^TNodeData;

  TNodeData = record
    Field: TObject;
  end;

function AddVSTEntry(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
  ARecord: TNodeData): PVirtualNode;
var
  Data: PNodeData;
begin
  Result := AVST.AddChild(ANode);
  Data   := AVST.GetNodeData(Result);
  AVST.ValidateNode(Result, False);
  Data^ := ARecord;
end;


procedure TForm_Meta.NewCon(ID: Integer);
var
  i: Integer;
  data: TNodeData;
  node: PVirtualNode;
  Meta: TMetaManager;
  root: TExtensions;
begin
  if ID >= 0 then
  begin
    //VST
    VST.Clear;
    VST.BeginUpdate;
    root := ConManager.Connection[FConnectionID].MetaData.Root;
    for i := 0 to High(root) do
    begin
      data.Field := root[i];
      node := AddVSTEntry(VST, nil, data);
      VST.HasChildren[node] := True;
    end;
    VST.EndUpdate;
  end;
end;


procedure TForm_Meta.VSTInitChildren(Sender: TBaseVirtualTree;
  Node: PVirtualNode; var ChildCount: Cardinal);
var
  data: PNodeData;
  newdata: TNodeData;
  newnode: PVirtualNode;
  i: Integer;
  id: Integer;
  Meta: TMetaManager;
begin
  data := Sender.GetNodeData(node);
  Meta := ConManager.Connection[ConnectionID].MetaData;
  if data.Field is TFile then
  begin
    if TFile(data.Field).ChildCount > 0 then
    begin
      for i := 0 to TFile(data.Field).ChildCount - 1 do
      begin
        id := TFile(data.Field).LinkByIndex[i].DestID;
        Meta.InitFile(id);
        newdata.Field := Meta.FileById[id];
        newnode := AddVSTEntry(TCustomVirtualStringTree(Sender), Node, newdata);
        if Meta.FileById[id].ChildCount > 0 then
          Sender.HasChildren[newnode] := True;
      end;
    end;
    if TFile(data.Field).RawCount > 0 then
    begin
      for i := 0 to TFile(data.Field).RawCount - 1 do
      begin
//        Exit;
      end;
    end;
  end;
  if data.Field is TExtension then
  begin
    if TExtension(data.Field).FileCount = 0 then
      TExtension(data.Field).InitList;
    for i := 0 to TExtension(data.Field).FileCount - 1 do
    begin
      id := TExtension(data.Field).Files[i];
      Meta.InitFile(id);
      newdata.Field := Meta.FileById[id];
      newnode := AddVSTEntry(TCustomVirtualStringTree(Sender), Node, newdata);
      if Meta.FileById[id].ChildCount > 0 then
        Sender.HasChildren[newnode] := True;
    end;
  end;
  ChildCount := Sender.ChildCount[Node];
end;


procedure TForm_Meta.VSTFocusChanged(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex);
var
  data: PNodeData;
begin
  data := Sender.GetNodeData(Node);
  if data.Field is TFile then
  begin
    TFile(data.Field).InitEditor;
    if Assigned(TFile(data.Field).Editor) then
    begin
      TFile(data.Field).Editor.Align := alClient;
      tab_meta.InsertControl(TFile(data.Field).Editor);
      TFile(data.Field).Opened := True;
    end;
  end;
end;


procedure TForm_Meta.VSTFocusChanging(Sender: TBaseVirtualTree; OldNode,
  NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
  var Allowed: Boolean);
var
  data: PNodeData;
  i: Integer;
begin
  data := Sender.GetNodeData(NewNode);
  if data.Field is TFile then
  begin
    TFile(data.Field).InitEditor;
    if Assigned(TFile(data.Field).Editor) then
      Allowed := not TFile(data.Field).Opened
    else
      Allowed := True;
  end;
  if Allowed and Assigned(OldNode) then
  begin
    data := Sender.GetNodeData(OldNode);
    if data.Field is TFile then
    begin
      if TFile(data.Field).Opened then
      begin
        if tab_meta.ControlCount > 0 then
          for i := 0 to tab_meta.ControlCount - 1 do
            tab_meta.RemoveControl(tab_meta.Controls[i]);
        TFile(data.Field).Opened := False;
      end;
    end;
  end;
end;


procedure TForm_Meta.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
  Data: PNodeData;
begin
  Data     := Sender.GetNodeData(Node);
  CellText := '';
  if TextType = ttNormal then
  begin
    case Column of
      0:
        begin
          if Data.Field is TFile then
          begin
            CellText := TFile(Data.Field).FileInfo.Name;
            if CellText = '' then
              CellText := 'Unnamed';
          end;
          if Data.Field is TExtension then
            CellText := TExtension(Data.Field).Ext;
        end;
      1:
        begin
          if Data.Field is TFile then
            CellText := TFile(Data.Field).FileInfo.Extension;
        end;
      2:
        begin
          if Data.Field is TFile then
            CellText := IntToStr(TFile(Data.Field).FileInfo.ID);
        end;
    end;
  end;
end;


procedure TForm_Meta.VSTPaintText(Sender: TBaseVirtualTree;
  const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType);
var
  Data: PNodeData;
begin
  Data     := Sender.GetNodeData(Node);
  if TextType = ttNormal then
  begin
    case Column of
      0:
        begin
          if Data.Field is TFile then
          begin
            if Length(TFile(Data.Field).FileInfo.Name) = 0 then
              TargetCanvas.Font.Color := $C06060;
            if TFile(Data.Field).FileInfo.Size = 0 then
              TargetCanvas.Font.Color := $2020A0;
          end;
        end;
    end;
  end;
end;


procedure TForm_Meta.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//  Meta.Free;
  inherited;
end;

procedure TForm_Meta.FormCreate(Sender: TObject);
begin
  inherited;
  OnNewConnection := NewCon;

  VST.NodeDataSize := SizeOf(TNodeData);
  VST.Font.Charset := AppSettings.CharSet;
  VST.Clear;

  UpdateConList;
end;

end.
Revision:	232
Committed:	Thu Jun 28 09:24:08 2007 UTC (18 years, 4 months ago) by alloc
Content type:	text/x-pascal
File size:	7389 byte(s)
Log Message:
#	Content
1	unit MetaEditor;
2
3	interface
4
5	uses
6	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7	Dialogs, _BaseTemplate, ExtCtrls, VirtualTrees, StdCtrls, ComCtrls, Grids,
8	MPHexEditor, Wrapgrid;
9
10	type
11	TForm_Meta = class(TForm_BaseTemplate)
12	VST: TVirtualStringTree;
13	splitter: TSplitter;
14	rightPages: TPageControl;
15	tab_hex: TTabSheet;
16	tab_meta: TTabSheet;
17	panel_hex_actions: TPanel;
18	hex: TMPHexEditor;
19	splitter_hex_1: TSplitter;
20	value_viewer: TWrapGrid;
21	splitter_hex_2: TSplitter;
22	structviewer: TVirtualStringTree;
23	procedure FormCreate(Sender: TObject);
24	procedure VSTInitChildren(Sender: TBaseVirtualTree; Node: PVirtualNode;
25	var ChildCount: Cardinal);
26	procedure FormClose(Sender: TObject; var Action: TCloseAction);
27	procedure VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode;
28	Column: TColumnIndex);
29	procedure VSTFocusChanging(Sender: TBaseVirtualTree; OldNode,
30	NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
31	var Allowed: Boolean);
32	procedure VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
33	Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
34	procedure VSTPaintText(Sender: TBaseVirtualTree;
35	const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
36	TextType: TVSTTextType);
37	private
38	procedure NewCon(ID: Integer);
39	public
40	end;
41
42
43	implementation
44	{$R *.dfm}
45	uses _MetaManager, _MetaTypes, ConnectionManager, Data, _FileTypes;
46
47	type
48	PNodeData = ^TNodeData;
49
50	TNodeData = record
51	Field: TObject;
52	end;
53
54	function AddVSTEntry(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
55	ARecord: TNodeData): PVirtualNode;
56	var
57	Data: PNodeData;
58	begin
59	Result := AVST.AddChild(ANode);
60	Data := AVST.GetNodeData(Result);
61	AVST.ValidateNode(Result, False);
62	Data^ := ARecord;
63	end;
64
65
66	procedure TForm_Meta.NewCon(ID: Integer);
67	var
68	i: Integer;
69	data: TNodeData;
70	node: PVirtualNode;
71	Meta: TMetaManager;
72	root: TExtensions;
73	begin
74	if ID >= 0 then
75	begin
76	//VST
77	VST.Clear;
78	VST.BeginUpdate;
79	root := ConManager.Connection[FConnectionID].MetaData.Root;
80	for i := 0 to High(root) do
81	begin
82	data.Field := root[i];
83	node := AddVSTEntry(VST, nil, data);
84	VST.HasChildren[node] := True;
85	end;
86	VST.EndUpdate;
87	end;
88	end;
89
90
91	procedure TForm_Meta.VSTInitChildren(Sender: TBaseVirtualTree;
92	Node: PVirtualNode; var ChildCount: Cardinal);
93	var
94	data: PNodeData;
95	newdata: TNodeData;
96	newnode: PVirtualNode;
97	i: Integer;
98	id: Integer;
99	Meta: TMetaManager;
100	begin
101	data := Sender.GetNodeData(node);
102	Meta := ConManager.Connection[ConnectionID].MetaData;
103	if data.Field is TFile then
104	begin
105	if TFile(data.Field).ChildCount > 0 then
106	begin
107	for i := 0 to TFile(data.Field).ChildCount - 1 do
108	begin
109	id := TFile(data.Field).LinkByIndex[i].DestID;
110	Meta.InitFile(id);
111	newdata.Field := Meta.FileById[id];
112	newnode := AddVSTEntry(TCustomVirtualStringTree(Sender), Node, newdata);
113	if Meta.FileById[id].ChildCount > 0 then
114	Sender.HasChildren[newnode] := True;
115	end;
116	end;
117	if TFile(data.Field).RawCount > 0 then
118	begin
119	for i := 0 to TFile(data.Field).RawCount - 1 do
120	begin
121	// Exit;
122	end;
123	end;
124	end;
125	if data.Field is TExtension then
126	begin
127	if TExtension(data.Field).FileCount = 0 then
128	TExtension(data.Field).InitList;
129	for i := 0 to TExtension(data.Field).FileCount - 1 do
130	begin
131	id := TExtension(data.Field).Files[i];
132	Meta.InitFile(id);
133	newdata.Field := Meta.FileById[id];
134	newnode := AddVSTEntry(TCustomVirtualStringTree(Sender), Node, newdata);
135	if Meta.FileById[id].ChildCount > 0 then
136	Sender.HasChildren[newnode] := True;
137	end;
138	end;
139	ChildCount := Sender.ChildCount[Node];
140	end;
141
142
143	procedure TForm_Meta.VSTFocusChanged(Sender: TBaseVirtualTree;
144	Node: PVirtualNode; Column: TColumnIndex);
145	var
146	data: PNodeData;
147	begin
148	data := Sender.GetNodeData(Node);
149	if data.Field is TFile then
150	begin
151	TFile(data.Field).InitEditor;
152	if Assigned(TFile(data.Field).Editor) then
153	begin
154	TFile(data.Field).Editor.Align := alClient;
155	tab_meta.InsertControl(TFile(data.Field).Editor);
156	TFile(data.Field).Opened := True;
157	end;
158	end;
159	end;
160
161
162	procedure TForm_Meta.VSTFocusChanging(Sender: TBaseVirtualTree; OldNode,
163	NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
164	var Allowed: Boolean);
165	var
166	data: PNodeData;
167	i: Integer;
168	begin
169	data := Sender.GetNodeData(NewNode);
170	if data.Field is TFile then
171	begin
172	TFile(data.Field).InitEditor;
173	if Assigned(TFile(data.Field).Editor) then
174	Allowed := not TFile(data.Field).Opened
175	else
176	Allowed := True;
177	end;
178	if Allowed and Assigned(OldNode) then
179	begin
180	data := Sender.GetNodeData(OldNode);
181	if data.Field is TFile then
182	begin
183	if TFile(data.Field).Opened then
184	begin
185	if tab_meta.ControlCount > 0 then
186	for i := 0 to tab_meta.ControlCount - 1 do
187	tab_meta.RemoveControl(tab_meta.Controls[i]);
188	TFile(data.Field).Opened := False;
189	end;
190	end;
191	end;
192	end;
193
194
195	procedure TForm_Meta.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
196	Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
197	var
198	Data: PNodeData;
199	begin
200	Data := Sender.GetNodeData(Node);
201	CellText := '';
202	if TextType = ttNormal then
203	begin
204	case Column of
205	0:
206	begin
207	if Data.Field is TFile then
208	begin
209	CellText := TFile(Data.Field).FileInfo.Name;
210	if CellText = '' then
211	CellText := 'Unnamed';
212	end;
213	if Data.Field is TExtension then
214	CellText := TExtension(Data.Field).Ext;
215	end;
216	1:
217	begin
218	if Data.Field is TFile then
219	CellText := TFile(Data.Field).FileInfo.Extension;
220	end;
221	2:
222	begin
223	if Data.Field is TFile then
224	CellText := IntToStr(TFile(Data.Field).FileInfo.ID);
225	end;
226	end;
227	end;
228	end;
229
230
231	procedure TForm_Meta.VSTPaintText(Sender: TBaseVirtualTree;
232	const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
233	TextType: TVSTTextType);
234	var
235	Data: PNodeData;
236	begin
237	Data := Sender.GetNodeData(Node);
238	if TextType = ttNormal then
239	begin
240	case Column of
241	0:
242	begin
243	if Data.Field is TFile then
244	begin
245	if Length(TFile(Data.Field).FileInfo.Name) = 0 then
246	TargetCanvas.Font.Color := $C06060;
247	if TFile(Data.Field).FileInfo.Size = 0 then
248	TargetCanvas.Font.Color := $2020A0;
249	end;
250	end;
251	end;
252	end;
253	end;
254
255
256
257	procedure TForm_Meta.FormClose(Sender: TObject; var Action: TCloseAction);
258	begin
259	// Meta.Free;
260	inherited;
261	end;
262
263	procedure TForm_Meta.FormCreate(Sender: TObject);
264	begin
265	inherited;
266	OnNewConnection := NewCon;
267
268	VST.NodeDataSize := SizeOf(TNodeData);
269	VST.Font.Charset := AppSettings.CharSet;
270	VST.Clear;
271
272	UpdateConList;
273	end;
274
275	end.