ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Tools/MetaEditor.pas
(Generate patch)

Comparing oup/current/Tools/MetaEditor.pas (file contents):
Revision 244 by alloc, Fri Aug 17 21:09:51 2007 UTC vs.
Revision 248 by alloc, Mon Nov 26 11:02:28 2007 UTC

# Line 148 | Line 148 | procedure TForm_Meta.VSTFocusChanged(Sen
148    Node: PVirtualNode; Column: TColumnIndex);
149   var
150    data: PNodeData;
151 <  ffile: TFile;
151 >  ffile: TResource;
152   //*******************************************************************
153    fs: TFileStream;
154   //*******************************************************************
155   begin
156    data := Sender.GetNodeData(Node);
157    ffile := nil;
158 <  if data.Field is TFile then
159 <    ffile := TFile(data.Field);
158 >  if data.Field is TResource then
159 >    ffile := TResource(data.Field);
160    if data.Field is _MetaTypes.TDatLink then
161      if Assigned(_MetaTypes.TDatLink(data.Field).TargetFile) then
162 <      ffile := TFile(_MetaTypes.TDatLink(data.Field).TargetFile);
162 >      ffile := TResource(_MetaTypes.TDatLink(data.Field).TargetFile);
163    if Assigned(ffile) then
164    begin
165      if Assigned(ffile.Editor) then
# Line 185 | Line 185 | var
185    i: Integer;
186   begin
187    data := Sender.GetNodeData(NewNode);
188 <  if data.Field is TFile then
188 >  if data.Field is TResource then
189    begin
190 <    if Assigned(TFile(data.Field).Editor) then
191 <      Allowed := not TFile(data.Field).Opened
190 >    if Assigned(TResource(data.Field).Editor) then
191 >      Allowed := not TResource(data.Field).Opened
192      else
193        Allowed := True;
194    end;
195    if Allowed and Assigned(OldNode) then
196    begin
197      data := Sender.GetNodeData(OldNode);
198 <    if data.Field is TFile then
198 >    if data.Field is TResource then
199      begin
200 <      if TFile(data.Field).Opened then
200 >      if TResource(data.Field).Opened then
201        begin
202          if tab_meta.ControlCount > 0 then
203            for i := 0 to tab_meta.ControlCount - 1 do
204              tab_meta.RemoveControl(tab_meta.Controls[i]);
205 <        TFile(data.Field).Opened := False;
205 >        TResource(data.Field).Opened := False;
206        end;
207      end;
208    end;
# Line 243 | Line 243 | begin
243      case Column of
244        0:
245          begin
246 <          if Data.Field is TFile then
246 >          if Data.Field is TResource then
247            begin
248 <            if Length(TFile(Data.Field).FileInfo.Name) = 0 then
248 >            if Length(TResource(Data.Field).FileInfo.Name) = 0 then
249                TargetCanvas.Font.Color := $C06060;
250 <            if TFile(Data.Field).FileInfo.Size = 0 then
250 >            if TResource(Data.Field).FileInfo.Size = 0 then
251                TargetCanvas.Font.Color := $2020A0;
252            end;
253          end;
# Line 266 | Line 266 | var
266  
267    i: Integer;
268    links: TStrings;
269 <  ifile: TFile;
269 >  ifile: TResource;
270   begin
271    inherited;
272    if Assigned(Node) then
# Line 282 | Line 282 | begin
282            2: HintText := '';
283          end;
284        end;
285 <      if data.Field is TFile then
285 >      if data.Field is TResource then
286        begin
287 <        ifile := TFile(data.Field);
287 >        ifile := TResource(data.Field);
288          case Column of
289            0: HintText :=
290              'FileID:    ' + IntToStr(ifile.FileInfo.ID) + #13#10 +

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)