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

Comparing oup/current/Tools/_TemplateFileList.pas (file contents):
Revision 229 by alloc, Wed Jun 20 10:57:51 2007 UTC vs.
Revision 230 by alloc, Wed Jun 20 11:03:17 2007 UTC

# Line 436 | Line 436 | var
436   begin
437    inherited;
438    data := Sender.GetNodeData(Node);
439 +  Self.Cursor := crHourGlass;
440 +  Application.ProcessMessages;
441    if data.Field is TExtension then
442    begin
443      if TExtension(data.Field).FileCount = 0 then
# Line 464 | Line 466 | begin
466      end;
467      ChildCount := filelist_meta.ChildCount[node];
468    end;
469 +  Self.Cursor := crDefault;
470   end;
471  
472   procedure TForm_TemplateFileList.filelist_metaPaintText(

Diff Legend

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