paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Dialogs: remove TOpenOptionEx.ofForcePreviewPaneOn and move it's functionality to TOpenOption.ofAutoPreview.

Browse Source
This commit is contained in:
Bart 2025-04-15 18:34:20 +02:00
parent 28a6803122
commit 79160f61db
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/dialogs.pp
View File

@ -207,7 +207,7 @@ type
ofEnableSizing, // Dialog can be resized, e.g. via the mouse.
ofDontAddToRecent, // Do not add the path to the history list.
ofForceShowHidden, // Show hidden files.
ofViewDetail, // Details are OS and interface dependent.
ofViewDetail, // Windows Vista+: Indicate to the Open dialog box that the preview pane should always be displayed.
ofAutoPreview // OS and interface dependent.
);
TOpenOptions = set of TOpenOption;
@ -216,7 +216,6 @@ type
// Currently just Windows Vista+ (IFileDialog) options
TOpenOptionEx = (
ofHidePinnedPlaces, // Windows Vista+: Hide items shown by default in the view's navigation pane.
ofForcePreviewPaneOn, // Windows Vista+: Indicate to the Open dialog box that the preview pane should always be displayed.
ofStrictFileTypes, // Windows Vista+: In the Save dialog, only allow the user to choose a file that has one of the file name extensions specified through Filter property.
ofPickFolders, // Windows Vista+: Turns the dialog into a TSelectDirectoryDialog.
ofOkButtonNeedsInteraction, // Windows Vista+: The OK button will be disabled until the user navigates the view or edits the filename (if applicable).

2
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -912,6 +912,7 @@ begin
if ofDontAddToRecent in Options then Result := Result or FOS_DONTADDTORECENT;
if SelectFolder or (ofPickFolders in OptionsEx) then Result := Result or FOS_PICKFOLDERS;
if ofForceShowHidden in Options then Result := Result or FOS_FORCESHOWHIDDEN;
if ofAutoPreview in Options then Result := Result or FOS_FORCEPREVIEWPANEON;
{ unavailable options:
ofHideReadOnly
ofEnableSizing
@ -925,7 +926,6 @@ begin
FOS_SUPPORTSTREAMABLEITEMS
}
if ofHidePinnedPlaces in OptionsEx then Result := Result or FOS_HIDEPINNEDPLACES;
if ofForcePreviewPaneOn in OptionsEx then Result := Result or FOS_FORCEPREVIEWPANEON;
if ofStrictFileTypes in OptionsEx then Result := Result or FOS_STRICTFILETYPES;
if ofOkButtonNeedsInteraction in OptionsEx then Result := Result or FOS_OKBUTTONNEEDSINTERACTION;
if ofForceFileSystem in OptionsEx then Result := Result or FOS_FORCEFILESYSTEM;