@@ -27,7 +27,7 @@ interface
2727 // / Dialog box that sets user preferences.
2828 // / </summary>
2929 // / <remarks>
30- // / This dialog box displays tabs for preferences frames registered with the
30+ // / This dialog box displays pages for preferences frames registered with the
3131 // / dialog box.
3232 // / </remarks>
3333 TPreferencesDlg = class (TGenericOKDlg, INoPublicConstruct)
@@ -161,16 +161,17 @@ implementation
161161 Design notes
162162 ------------
163163
164- This dialog box is a multi-page preferences dialog that provides access to
165- each page via a tab . The dialog box does not provide an implementation of each
166- page of the dialog . This representation must be provided by a frame descended
167- from TPrefsBaseFrame. Such frames must:
168- (a) register themselves with the dialog box by passing their class to the
164+ This dialogue box is a multi-page preferences dialog that provides access to
165+ each page via a list of page names . The dialogue box does not provide an
166+ implementation of each page . This representation must be provided by a frame
167+ descended from TPrefsBaseFrame. Such frames must:
168+ (a) register themselves with the dialogue box by passing their class to the
169169 TPreferencesDlg.RegisterPage class method.
170170 (b) implement all the abstract methods of TPrefsBaseFrame.
171171
172- The dialog box will create registered frames when needed and host them within
173- a tab sheet in the main page control.
172+ The dialogue box will create registered frames when needed and host them
173+ within tab sheet in the main page control. It will also add the name of the
174+ frame to a list control that is used to select the required "page".
174175
175176 There is no need to modify this unit when a new frame is to be addded to it.
176177}
@@ -188,7 +189,7 @@ implementation
188189
189190procedure TPreferencesDlg.ArrangeForm ;
190191var
191- Idx: Integer; // loops through all displayed tab sheets
192+ Idx: Integer; // loops through all displayed page
192193 Frame: TPrefsBaseFrame; // references each preference frame
193194 TabSheet: TTabSheet; // references each tab sheet
194195begin
@@ -306,7 +307,7 @@ class function TPreferencesDlg.Execute(AOwner: TComponent;
306307
307308procedure TPreferencesDlg.FormDestroy (Sender: TObject);
308309begin
309- // Save current tab
310+ // Save current page
310311 if Assigned(pcMain.ActivePage) then
311312 Preferences.LastTab := MapTabSheetToPage(pcMain.ActivePage).DisplayName;
312313 inherited ;
@@ -343,7 +344,7 @@ procedure TPreferencesDlg.InitForm;
343344 // Display and initialise required pages
344345 for TabIdx := 0 to Pred(pcMain.PageCount) do
345346 MapTabSheetToPage(TabIdx).LoadPrefs(fLocalPrefs, fFrameFlags);
346- // Select last use tab sheet (or 1st if last not known)
347+ // Select last used tab sheet (or 1st if last not known)
347348 fCurrentPageIdx := GetLastTabIdx;
348349 if fCurrentPageIdx < 0 then
349350 fCurrentPageIdx := 0 ;
0 commit comments