Changeset 230 for oup/current/Tools

Timestamp:

Jun 20, 2007, 1:03:17 PM (17 years ago)

Author:

alloc

Message:

 

File:

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

oup/current/Tools/_TemplateFileList.pas

@@ -437 +437 @@
   inherited;
   data := Sender.GetNodeData(Node);
+  Self.Cursor := crHourGlass;
+  Application.ProcessMessages;
   if data.Field is TExtension then
   begin
@@ -465 +467 @@
     ChildCount := filelist_meta.ChildCount[node];
   end;
+  Self.Cursor := crDefault;
 end;