Changeset 230 for oup

Timestamp:

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

Author:

alloc

Message:

 

Location:

oup/current

Files:

• Tools/_TemplateFileList.pas (modified) (2 diffs)
• _exe/OniUnPacker.exe (modified) ( previous)

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;