Changeset 231 for oup/current/Tools/_TemplateFileList.pas

Timestamp:

Jun 21, 2007, 12:24:04 AM (17 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Tools/_TemplateFileList.pas (modified) (6 diffs)

oup/current/Tools/_TemplateFileList.pas

@@ -9 +9 @@
 
 type
+  TNewFileSelectingEvent = procedure(FileInfo: TFileInfo; var allowed: Boolean) of object;
+
   TForm_TemplateFileList = class(TForm_TemplateFile)
     panel_files: TPanel;
@@ -62 +64 @@
       const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
       TextType: TVSTTextType);
+    procedure filelist_metaFocusChanging(Sender: TBaseVirtualTree; OldNode,
+      NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
+      var Allowed: Boolean);
+    procedure filelist_metaFocusChanged(Sender: TBaseVirtualTree;
+      Node: PVirtualNode; Column: TColumnIndex);
   private
     FSortBy: TSortType;
     FAllowedExts: String;
     FAllowMultiSelect: Boolean;
+    FOnNewFileSelecting: TNewFileSelectingEvent;
     procedure SetAllowedExts(exts: String);
     procedure SetMultiSelect(allow: Boolean);
@@ -75 +83 @@
     property AllowedExts: String read FAllowedExts write SetAllowedExts;
     property AllowMultiSelect: Boolean read FAllowMultiSelect write SetMultiSelect;
+    property OnNewFileSelecting: TNewFileSelectingEvent read FOnNewFileSelecting write FOnNewFileSelecting;
   end;
 
@@ -404 +413 @@
 
 
+procedure TForm_TemplateFileList.filelist_metaFocusChanged(
+  Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex);
+var
+  data: PNodeData;
+begin
+  inherited;
+  data := Sender.GetNodeData(Node);
+  if data.Field is TFile then
+  begin
+    if Assigned(FOnNewFileSelected) then
+    begin
+      FOnNewFileSelected(TFile(data.Field).FileInfo);
+    end;
+  end;
+end;
+
+procedure TForm_TemplateFileList.filelist_metaFocusChanging(
+  Sender: TBaseVirtualTree; OldNode, NewNode: PVirtualNode; OldColumn,
+  NewColumn: TColumnIndex; var Allowed: Boolean);
+var
+  data: PNodeData;
+begin
+  inherited;
+  data := Sender.GetNodeData(NewNode);
+  if data.Field is TFile then
+  begin
+    if Assigned(FOnNewFileSelecting) then
+    begin
+      FOnNewFileSelecting(TFile(data.Field).FileInfo, Allowed);
+    end;
+  end;
+end;
+
 procedure TForm_TemplateFileList.filelist_metaGetText(Sender: TBaseVirtualTree;
   Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
@@ -418 +460 @@
   if data.Field is TFile then
   begin
-    if TFile(data.Field).FileName = '' then
-      CellText := TFile(data.Field).FileExt + ' (unnamed)'
+    if TFile(data.Field).FileInfo.Name = '' then
+      CellText := TFile(data.Field).FileInfo.Extension + ' (unnamed)'
     else
-      CellText := TFile(data.Field).FileExt + ': ' + TFile(data.Field).FileName;
+      CellText := TFile(data.Field).FileInfo.Extension + ': ' + TFile(data.Field).FileInfo.Name;
   end;
 end;
@@ -479 +521 @@
   if Data.Field is TFile then
   begin
-    if Length(TFile(Data.Field).FileName) = 0 then
+    if Length(TFile(Data.Field).FileInfo.Name) = 0 then
       TargetCanvas.Font.Color := $C06060;
-    if TFile(Data.Field).FileSize = 0 then
+    if TFile(Data.Field).FileInfo.Size = 0 then
       TargetCanvas.Font.Color := $2020A0;
   end;