Changeset 364


Ignore:
Timestamp:
May 22, 2012, 7:44:56 AM (12 years ago)
Author:
chronos
Message:
  • Added: UJobProgressView to Common package. This unit handle operations progress vizualization.
  • Added: Procedure FreeThenNil to Common package.
Files:
6 added
3 edited

Legend:

Unmodified
Added
Removed

  • Common/Common.lpk

    r343 r364  
    2222    <License Value="GNU/GPL"/>
    2323    <Version Minor="5"/>
    24     <Files Count="12">
     24    <Files Count="13">
    2525      <Item1>
    2626        <Filename Value="StopWatch.pas"/>
    … …  
    7272        <UnitName Value="URegistry"/>
    7373      </Item12>
     74      <Item13>
     75        <Filename Value="UJobProgressView.pas"/>
     76        <UnitName Value="UJobProgressView"/>
     77      </Item13>
    7478    </Files>
    7579    <i18n>
    … …  
    96100      <Version Value="2"/>
    97101    </PublishOptions>
     102    <CustomOptions Items="ExternHelp" Version="2">
     103      <_ExternHelp Items="Count"/>
     104    </CustomOptions>
    98105  </Package>
    99106</CONFIG>

  • Common/Common.pas

    r360 r364  
    1010  StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, UThreading,
    1111  UMemory, UResetableThread, UPool, ULastOpenedList, URegistry,
    12   LazarusPackageIntf;
     12  UJobProgressView, LazarusPackageIntf;
    1313
    1414implementation

  • Common/UCommon.pas

    r360 r364  
    6161procedure OpenFileInShell(FileName: string);
    6262procedure ExecuteProgram(CommandLine: string);
     63procedure FreeThenNil(var Obj);
    6364
    6465
    … …  
    392393end;
    393394
     395procedure FreeThenNil(var Obj);
     396begin
     397  TObject(Obj).Free;
     398  TObject(Obj) := nil;
     399end;
     400
    394401procedure OpenWebPage(URL: string);
    395402var
Note: See TracChangeset for help on using the changeset viewer.