paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 11:39:50 +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-17 20:36:57 +02:00
parent a7b324b38c
commit 4e5e964bec
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

@ -209,7 +209,7 @@ type
ofDontAddToRecent, // do not add the path to the history list
ofForceShowHidden, // show hidden files
ofViewDetail, // details are OS and interface dependent
ofAutoPreview // details are OS and interface dependent
ofAutoPreview // Windows Vista+: Indicates to the Open dialog box that the preview pane should always be displayed. );
);
TOpenOptions = set of TOpenOption;
@ -217,7 +217,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+ Indicates to the Open dialog box that the preview pane should always be displayed (a NARG/NARL option IMHO)
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

@ -881,6 +881,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
@ -894,7 +895,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;