Changeset 456 for Common


Ignore:
Timestamp:
Nov 28, 2012, 7:46:07 AM (12 years ago)
Author:
chronos
Message:
  • Modified: In Common package method DebugLog.Add now expect Text as first parameter.
Location:
Common
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • Common/Common.lpk

    r432 r456  
    2222    <License Value="GNU/GPL"/>
    2323    <Version Minor="7"/>
    24     <Files Count="17">
     24    <Files Count="18">
    2525      <Item1>
    2626        <Filename Value="StopWatch.pas"/>
     
    9595        <UnitName Value="UListViewSort"/>
    9696      </Item17>
     97      <Item18>
     98        <Filename Value="UPersistentForm.pas"/>
     99        <HasRegisterProc Value="True"/>
     100        <UnitName Value="UPersistentForm"/>
     101      </Item18>
    97102    </Files>
    98103    <i18n>
  • Common/Common.pas

    r432 r456  
    1111  UMemory, UResetableThread, UPool, ULastOpenedList, URegistry,
    1212  UJobProgressView, UXMLUtils, UApplicationInfo, USyncCounter, UListViewSort,
    13   LazarusPackageIntf;
     13  UPersistentForm, LazarusPackageIntf;
    1414
    1515implementation
     
    2121  RegisterUnit('UJobProgressView', @UJobProgressView.Register);
    2222  RegisterUnit('UApplicationInfo', @UApplicationInfo.Register);
     23  RegisterUnit('UPersistentForm', @UPersistentForm.Register);
    2324end;
    2425
  • Common/UDebugLog.pas

    r372 r456  
    3131    Items: TListObject;
    3232    Lock: TCriticalSection;
    33     procedure Add(Group: string; Text: string);
     33    procedure Add(Text: string; Group: string = '');
    3434    procedure WriteToFile(Text: string);
    3535    constructor Create(AOwner: TComponent); override;
     
    6969end;
    7070
    71 procedure TDebugLog.Add(Group: string; Text: string);
     71procedure TDebugLog.Add(Text: string; Group: string = '');
    7272var
    7373  NewItem: TDebugLogItem;
  • Common/URegistry.pas

    r434 r456  
    1717    rrKeyDynData = HKEY($80000006));
    1818
     19  { TRegistryContext }
     20
    1921  TRegistryContext = record
    2022    RootKey: HKEY;
    2123    Key: string;
     24    class operator Equal(A, B: TRegistryContext): Boolean;
    2225  end;
    2326
     
    4952  Result.RootKey := RootKey;
    5053  Result.Key := Key;
     54end;
     55
     56{ TRegistryContext }
     57
     58class operator TRegistryContext.Equal(A, B: TRegistryContext): Boolean;
     59begin
     60  Result := (A.Key = B.Key) and (A.RootKey = B.RootKey);
    5161end;
    5262
Note: See TracChangeset for help on using the changeset viewer.