paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 17:20:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

Win32: less hints.

Browse Source 
git-svn-id: trunk@52791 -
This commit is contained in:
bart 2016-08-08 12:32:55 +00:00
parent 99a55b4afc
commit 12c717b835
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -133,22 +133,22 @@ type
protected protected
// IFileDialogEvents // IFileDialogEvents
function OnFileOk(pfd: IFileDialog): HResult; stdcall; function OnFileOk(pfd: IFileDialog): HResult; stdcall;
function OnFolderChanging(pfd: IFileDialog; psifolder: IShellItem): HResult; stdcall; function OnFolderChanging({%H-}pfd: IFileDialog; {%H-}psifolder: IShellItem): HResult; stdcall;
function OnFolderChange(pfd: IFileDialog): HResult; stdcall; function OnFolderChange({%H-}pfd: IFileDialog): HResult; stdcall;
function OnSelectionChange(pfd: IFileDialog): HResult; stdcall; function OnSelectionChange(pfd: IFileDialog): HResult; stdcall;
function OnShareViolation(pfd: IFileDialog; psi: IShellItem; pResponse: pFDE_SHAREVIOLATION_RESPONSE): HResult; stdcall; function OnShareViolation({%H-}pfd: IFileDialog; {%H-}psi: IShellItem; {%H-}pResponse: pFDE_SHAREVIOLATION_RESPONSE): HResult; stdcall;
function OnTypeChange(pfd: IFileDialog): HResult; stdcall; function OnTypeChange(pfd: IFileDialog): HResult; stdcall;
function OnOverwrite(pfd: IFileDialog; psi: IShellItem; pResponse: pFDE_OVERWRITE_RESPONSE): HResult; stdcall; function OnOverwrite({%H-}pfd: IFileDialog; {%H-}psi: IShellItem; {%H-}pResponse: pFDE_OVERWRITE_RESPONSE): HResult; stdcall;
// IFileDialogControlEvents // IFileDialogControlEvents
function OnItemSelected(pfdc: IFileDialogCustomize; dwIDCtl: DWORD; dwIDItem: DWORD): HResult; stdcall; function OnItemSelected({%H-}pfdc: IFileDialogCustomize; {%H-}dwIDCtl: DWORD; {%H-}dwIDItem: DWORD): HResult; stdcall;
function OnButtonClicked(pfdc: IFileDialogCustomize; dwIDCtl: DWORD): HResult; stdcall; function OnButtonClicked({%H-}pfdc: IFileDialogCustomize; {%H-}dwIDCtl: DWORD): HResult; stdcall;
function OnCheckButtonToggled(pfdc: IFileDialogCustomize; dwIDCtl: DWORD; bChecked: BOOL): HResult; stdcall; function OnCheckButtonToggled({%H-}pfdc: IFileDialogCustomize; {%H-}dwIDCtl: DWORD; {%H-}bChecked: BOOL): HResult; stdcall;
function OnControlActivating(pfdc: IFileDialogCustomize; dwIDCtl: DWORD): HResult; stdcall; function OnControlActivating({%H-}pfdc: IFileDialogCustomize; {%H-}dwIDCtl: DWORD): HResult; stdcall;
public public
constructor Create(ADialog: TOpenDialog); constructor Create(ADialog: TOpenDialog);
end; end;
function OpenFileDialogCallBack(Wnd: HWND; uMsg: UINT; wParam: WPARAM; function OpenFileDialogCallBack(Wnd: HWND; uMsg: UINT; {%H-}wParam: WPARAM;
lParam: LPARAM): UINT_PTR; stdcall; lParam: LPARAM): UINT_PTR; stdcall;
function SaveApplicationState: TApplicationState; function SaveApplicationState: TApplicationState;
@ -327,6 +327,7 @@ function CanUseVistaDialogs(const AOpenDialog: TOpenDialog): Boolean;
begin begin
{$IFnDEF DisableVistaDialogs} {$IFnDEF DisableVistaDialogs}
Result := (WindowsVersion >= wvVista) and not (ofOldStyleDialog in AOpenDialog.Options); Result := (WindowsVersion >= wvVista) and not (ofOldStyleDialog in AOpenDialog.Options);
{$ELSE} {$ELSE}
Result := False; Result := False;
{$ENDIF} {$ENDIF}
@ -841,8 +842,8 @@ begin
if not Supports(ADialog, IFileOpenDialog) then if not Supports(ADialog, IFileOpenDialog) then
Result := E_FAIL Result := E_FAIL
else else
Result := (ADialog as IFileOpenDialog).GetResults(ShellItems); Result := (ADialog as IFileOpenDialog).GetResults(ShellItems{%H-});
if Succeeded(Result) and Succeeded(ShellItems.GetCount(Count)) then if Succeeded(Result) and Succeeded(ShellItems.GetCount(Count{%H-})) then
begin begin
AOpenDialog.Files.Clear; AOpenDialog.Files.Clear;
I := 0; I := 0;
@ -1161,7 +1162,7 @@ end;
Handles the messages sent to the toolbar button by Windows Handles the messages sent to the toolbar button by Windows
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function BrowseForFolderCallback(hwnd : Handle; uMsg : UINT; function BrowseForFolderCallback(hwnd : Handle; uMsg : UINT;
lParam, lpData : LPARAM) : Integer; stdcall; {%H-}lParam, lpData : LPARAM) : Integer; stdcall;
begin begin
case uMsg of case uMsg of
BFFM_INITIALIZED: BFFM_INITIALIZED: