Changeset 371
- Timestamp:
- Jun 1, 2012, 10:15:16 AM (12 years ago)
- Location:
- Common
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
Common/UJobProgressView.lfm
r368 r371 1 1 object FormJobProgressView: TFormJobProgressView 2 Left = 46 63 Height = 24 84 Top = 25 15 Width = 3 302 Left = 467 3 Height = 246 4 Top = 252 5 Width = 328 6 6 BorderIcons = [biSystemMenu] 7 ClientHeight = 24 88 ClientWidth = 3 307 ClientHeight = 246 8 ClientWidth = 328 9 9 Font.Height = -11 10 10 Font.Name = 'MS Sans Serif' … … 19 19 Height = 24 20 20 Top = 0 21 Width = 3 3021 Width = 328 22 22 Align = alTop 23 23 BevelOuter = bvNone 24 24 ClientHeight = 24 25 ClientWidth = 3 3025 ClientWidth = 328 26 26 FullRepaint = False 27 27 TabOrder = 0 … … 41 41 object PanelLog: TPanel 42 42 Left = 0 43 Height = 12 443 Height = 122 44 44 Top = 124 45 Width = 3 3045 Width = 328 46 46 Align = alClient 47 47 BevelOuter = bvSpace 48 ClientHeight = 12 449 ClientWidth = 3 3048 ClientHeight = 122 49 ClientWidth = 328 50 50 TabOrder = 1 51 51 object MemoLog: TMemo 52 52 Left = 8 53 Height = 10 853 Height = 106 54 54 Top = 8 55 Width = 31 455 Width = 312 56 56 Anchors = [akTop, akLeft, akRight, akBottom] 57 57 ReadOnly = True … … 64 64 Height = 38 65 65 Top = 50 66 Width = 3 3066 Width = 328 67 67 Align = alTop 68 68 BevelOuter = bvNone 69 69 ClientHeight = 38 70 ClientWidth = 3 3070 ClientWidth = 328 71 71 TabOrder = 2 72 72 object ProgressBarPart: TProgressBar … … 74 74 Height = 17 75 75 Top = 16 76 Width = 31 476 Width = 312 77 77 Anchors = [akTop, akLeft, akRight] 78 78 TabOrder = 0 … … 91 91 Height = 26 92 92 Top = 24 93 Width = 3 3093 Width = 328 94 94 Align = alTop 95 95 BevelOuter = bvNone 96 96 ClientHeight = 26 97 ClientWidth = 3 3097 ClientWidth = 328 98 98 FullRepaint = False 99 99 TabOrder = 3 … … 102 102 Height = 16 103 103 Top = 5 104 Width = 31 4104 Width = 312 105 105 Anchors = [akTop, akLeft, akRight, akBottom] 106 106 AutoWidthLastColumn = True … … 109 109 Columns = < 110 110 item 111 Width = 31 4111 Width = 312 112 112 end> 113 113 OwnerData = True … … 124 124 Height = 36 125 125 Top = 88 126 Width = 3 30126 Width = 328 127 127 Align = alTop 128 128 BevelOuter = bvNone 129 129 ClientHeight = 36 130 ClientWidth = 3 30130 ClientWidth = 328 131 131 TabOrder = 4 132 132 object LabelEstimatedTimeTotal: TLabel … … 142 142 Height = 16 143 143 Top = 16 144 Width = 31 4144 Width = 312 145 145 Anchors = [akTop, akLeft, akRight] 146 146 TabOrder = 0 -
Common/URegistry.pas
r328 r371 6 6 7 7 uses 8 Registry;8 Classes, Registry; 9 9 10 10 type 11 12 { TRegistryEx } 13 11 14 TRegistryEx = class(TRegistry) 12 15 private … … 18 21 function ReadFloatWithDefault(const Name: string; 19 22 DefaultValue: Double): Double; 23 function DeleteKeyRecursive(const Key: string): Boolean; 20 24 end; 21 25 … … 54 58 end; 55 59 60 function TRegistryEx.DeleteKeyRecursive(const Key: string): Boolean; 61 var 62 SubKeys: TStringList; 63 I: Integer; 64 begin 65 try 66 SubKeys := TStringList.Create; 67 if OpenKey(Key, False) and HasSubKeys then begin 68 GetKeyNames(SubKeys); 69 for I := 0 to SubKeys.Count - 1 do 70 DeleteKeyRecursive(Key + '\' + SubKeys[I]); 71 end; 72 Result := DeleteKey(Key); 73 finally 74 SubKeys.Free; 75 end; 76 end; 77 56 78 function TRegistryEx.ReadBoolWithDefault(const Name: string; 57 79 DefaultValue: Boolean): Boolean;
Note:
See TracChangeset
for help on using the changeset viewer.