Changeset 14


Ignore:
Timestamp:
May 21, 2014, 2:30:46 PM (10 years ago)
Author:
chronos
Message:
  • Fixed: Reference to custom myregistry unit.
  • Fixed: Parsing of "--- help ---" command.
Location:
trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Packages/Common/UApplicationInfo.pas

    r13 r14  
    66
    77uses
    8   SysUtils, Registry2, Classes, Forms, URegistry;
     8  SysUtils, MyRegistry, Classes, Forms, URegistry;
    99
    1010type

  • trunk/Packages/Common/UPersistentForm.pas

    r13 r14  
    88
    99uses
    10   Classes, SysUtils, Forms, URegistry, LCLIntf, Registry2;
     10  Classes, SysUtils, Forms, URegistry, LCLIntf, MyRegistry;
    1111
    1212type

  • trunk/UFormMain.pas

    r13 r14  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
    9   ActnList, ComCtrls, StdCtrls, UKConfig, ULastOpenedList, URegistry, Registry2;
     9  ActnList, ComCtrls, StdCtrls, UKConfig, ULastOpenedList, URegistry, MyRegistry;
    1010
    1111const

  • trunk/UKConfig.pas

    r13 r14  
    764764        Command := GetNextToken(Line);
    765765        if Command = 'help' then begin
    766           State := stHelp;
    767           HelpIndent := LineIndent;
     766          Command := GetNextToken(Line);
     767          if Command = '---' then begin
     768            State := stHelp;
     769            HelpIndent := LineIndent;
     770          end;
     771        end else
     772        if Command = '' then begin
     773          Command := GetNextToken(Line);
     774          if Command = 'help' then begin
     775            Expect(Line, '');
     776            Command := GetNextToken(Line);
     777            if Command = '---' then begin
     778              State := stHelp;
     779              HelpIndent := LineIndent;
     780            end;
     781          end;
    768782        end;
    769783      end else
Note: See TracChangeset for help on using the changeset viewer.