ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Tools/_TemplateFileList.pas

Comparing oup/current/Tools/_TemplateFileList.pas (file contents):
Revision 233 by alloc, Fri Jun 29 12:38:24 2007 UTC vs.
Revision 248 by alloc, Mon Nov 26 11:02:28 2007 UTC

#	Line 419 | Line 419 | var
419		begin
420		inherited;
421		data := Sender.GetNodeData(Node);
422	<	if data.Field is TFile then
422	>	if data.Field is TResource then
423		begin
424		if Assigned(FOnNewFileSelected) then
425		begin
426	<	FOnNewFileSelected(TFile(data.Field).FileInfo);
426	>	FOnNewFileSelected(TResource(data.Field).FileInfo);
427		end;
428		end;
429		end;
#	Line 436 | Line 436 | var
436		begin
437		inherited;
438		data := Sender.GetNodeData(NewNode);
439	<	if data.Field is TFile then
439	>	if data.Field is TResource then
440		begin
441		if Assigned(FOnNewFileSelecting) then
442		begin
443	<	FOnNewFileSelecting(TFile(data.Field).FileInfo, Allowed);
443	>	FOnNewFileSelecting(TResource(data.Field).FileInfo, Allowed);
444		end;
445		end;
446		end;
#	Line 518 | Line 518 | var
518		Data: PNodeData;
519		begin
520		Data     := Sender.GetNodeData(Node);
521	<	if Data.Field is TFile then
521	>	if Data.Field is TResource then
522		begin
523	<	if Length(TFile(Data.Field).FileInfo.Name) = 0 then
523	>	if Length(TResource(Data.Field).FileInfo.Name) = 0 then
524		TargetCanvas.Font.Color := $C06060;
525	<	if TFile(Data.Field).FileInfo.Size = 0 then
525	>	if TResource(Data.Field).FileInfo.Size = 0 then
526		TargetCanvas.Font.Color := $2020A0;
527		end;
528		end;

Diff Legend

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