Changeset 14
- Timestamp:
- May 21, 2014, 2:30:46 PM (10 years ago)
- Location:
- trunk
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/Common/UApplicationInfo.pas
r13 r14 6 6 7 7 uses 8 SysUtils, Registry2, Classes, Forms, URegistry;8 SysUtils, MyRegistry, Classes, Forms, URegistry; 9 9 10 10 type -
trunk/Packages/Common/UPersistentForm.pas
r13 r14 8 8 9 9 uses 10 Classes, SysUtils, Forms, URegistry, LCLIntf, Registry2;10 Classes, SysUtils, Forms, URegistry, LCLIntf, MyRegistry; 11 11 12 12 type -
trunk/UFormMain.pas
r13 r14 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus, 9 ActnList, ComCtrls, StdCtrls, UKConfig, ULastOpenedList, URegistry, Registry2;9 ActnList, ComCtrls, StdCtrls, UKConfig, ULastOpenedList, URegistry, MyRegistry; 10 10 11 11 const -
trunk/UKConfig.pas
r13 r14 764 764 Command := GetNextToken(Line); 765 765 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; 768 782 end; 769 783 end else
Note:
See TracChangeset
for help on using the changeset viewer.