Changeset 230 for oup/current/Tools


Ignore:
Timestamp:
Jun 20, 2007, 1:03:17 PM (18 years ago)
Author:
alloc
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • oup/current/Tools/_TemplateFileList.pas

    r229 r230  
    437437  inherited;
    438438  data := Sender.GetNodeData(Node);
     439  Self.Cursor := crHourGlass;
     440  Application.ProcessMessages;
    439441  if data.Field is TExtension then
    440442  begin
     
    465467    ChildCount := filelist_meta.ChildCount[node];
    466468  end;
     469  Self.Cursor := crDefault;
    467470end;
    468471
Note: See TracChangeset for help on using the changeset viewer.