paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 05:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Dialogs: conditional debug output for TCommonDialog events

Browse Source 
git-svn-id: trunk@52789 -
This commit is contained in:
bart 2016-08-08 12:13:43 +00:00
parent 8a444a31ef
commit 6b0c4428ec
3 changed files with 50 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/include/commondialog.inc
View File

@ -119,20 +119,28 @@ begin
if Assigned(FOnShow) then
FOnShow(Self);
TWSCommonDialogClass(WidgetSetClass).ShowModal(Self);
//if (Self is TFileDialog) debugln(['TCommonDialog.DoExecute, FCanCloseCalled=',FCanCloseCalled,' FUserChoice=',ModalResultStr[FUserChoice]]);
{$ifdef DebugCommonDialogEvents}
if (Self is TFileDialog) then debugln(['TCommonDialog.DoExecute, FCanCloseCalled=',FCanCloseCalled,' FUserChoice=',ModalResultStr[FUserChoice]]);
{$endif}
// can close was called from widgetset loop
if not FCanCloseCalled then
begin
repeat
//if (Self is TFileDialog) then debugln(['TCommonDialog.DoExecute, FUserChoice=',ModalResultStr[FUserChoice],' Handle=',Handle]);
{$ifdef DebugCommonDialogEvents}
if (Self is TFileDialog) then debugln(['TCommonDialog.DoExecute, FUserChoice=',ModalResultStr[FUserChoice],' Handle=',Handle]);
{$endif}
if (FUserChoice <> mrNone) and (Handle<>0) then
begin
CanClose := True;
//if (Self is TFileDialog) debugln(['TCommonDialog.DoExecute calling DoCanClose']);
{$ifdef DebugCommonDialogEvents}
if (Self is TFileDialog) then debugln(['TCommonDialog.DoExecute calling DoCanClose']);
{$endif}
DoCanClose(CanClose);
if not CanClose then
FUserChoice:=mrNone;
//if (Self is TFileDialog) then debugln(['TCommonDialog.DoExecute after calling DoCanClose: CanClose=',CanClose,' FUserChoice=',ModalResultStr[FUserChoice]]);
{$ifdef DebugCommonDialogEvents}
if (Self is TFileDialog) then debugln(['TCommonDialog.DoExecute after calling DoCanClose: CanClose=',CanClose,' FUserChoice=',ModalResultStr[FUserChoice]]);
{$endif}
end;
if FUserChoice <> mrNone then
break;

4
lcl/include/filedialog.inc
View File

@ -37,7 +37,9 @@ end;
procedure TFileDialog.DoCanClose(var CanClose: Boolean);
begin
//debugln(['TFileDialog.DoCanClose: FUserChoice = ',ModalResultStr[FUserChoice],' HandleAllocated=',HandleAllocated]);
{$ifdef DebugCommonDialogEvents}
debugln(['TFileDialog.DoCanClose: FUserChoice = ',ModalResultStr[FUserChoice],' HandleAllocated=',HandleAllocated]);
{$endif}
//Only call OnCanClose if user did not cancel the dialog, see:
//http://docwiki.embarcadero.com/Libraries/Berlin/en/Vcl.Dialogs.TOpenDialog_Events
if (FUserChoice = mrOK) then

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

@ -328,6 +328,7 @@ begin
Result := (WindowsVersion >= wvVista) and not (ofOldStyleDialog in AOpenDialog.Options);
end;
{ TWin32WSColorDialog }
class function TWin32WSColorDialog.CreateHandle(const ACommonDialog: TCommonDialog): THandle;
@ -532,9 +533,13 @@ begin
ExtractDataFromNotify;
CanClose := True;
TOpenDialog(DlgRec^.Dialog).UserChoice := mrOK;
//debugln(['OpenFileDialogCallBack calling DoCanClose']);
{$ifdef DebugCommonDialogEvents}
debugln(['OpenFileDialogCallBack calling DoCanClose']);
{$endif}
TOpenDialog(DlgRec^.Dialog).DoCanClose(CanClose);
//debugln(['OpenFileDialogCallBack CanClose=',CanClose]);
{$ifdef DebugCommonDialogEvents}
debugln(['OpenFileDialogCallBack CanClose=',CanClose]);
{$endif}
if not CanClose then
begin
//the dialog window will not process the click on OK button
@ -605,7 +610,9 @@ var
FileNameWideBuffer: PWideChar;
FileNameBufferSize: Integer;
begin
//debugln(['CreateFileDialogHandle A']);
{$ifdef DebugCommonDialogEvents}
debugln(['CreateFileDialogHandle A']);
{$endif}
FileName := AOpenDialog.FileName;
InitialDir := AOpenDialog.InitialDir;
if (FileName <> '') and (FileName[length(FileName)] = PathDelim) then
@ -661,7 +668,9 @@ begin
lCustData := LParam(DialogRec);
end;
Result := THandle(OpenFile);
//debugln(['CreateFileDialogHandle End']);
{$ifdef DebugCommonDialogEvents}
debugln(['CreateFileDialogHandle End']);
{$endif}
end;
procedure DestroyFileDialogHandle(AHandle: THandle);
@ -867,13 +876,17 @@ var
Cookie: DWord;
//CanClose: Boolean;
begin
{$ifdef DebugCommonDialogEvents}
debugln('TWin32WSOpenDialog.VistaDialogShowModal A');
{$endif}
FileDialogEvents := TFileDialogEvents.Create(AOpenDialog);
ADialog.Advise(FileDialogEvents, @Cookie);
try
AOpenDialog.DoShow;
ADialog.Show(GetParentWnd);
{$ifdef DebugCommonDialogEvents}
debugln(['TWin32WSOpenDialog.VistaDialogShowModal: AOpenDialog.UserChoice = ',ModalResultStr[AOpenDialog.UserChoice]]);
{$endif}
//DoOnClose is called from TFileDialogEvents.OnFileOk if user pressed OK
//Do NOT call DoCanClose if user cancels the dialog
//see http://docwiki.embarcadero.com/Libraries/Berlin/en/Vcl.Dialogs.TOpenDialog_Events
@ -886,7 +899,9 @@ begin
ADialog.unadvise(Cookie);
FileDialogEvents := nil;
end;
//debugln('TWin32WSOpenDialog.VistaDialogShowModal End');
{$ifdef DebugCommonDialogEvents}
debugln('TWin32WSOpenDialog.VistaDialogShowModal End');
{$endif}
end;
class function TWin32WSOpenDialog.GetParentWnd: HWND;
@ -955,10 +970,14 @@ begin
end
else
begin
//debugln(['TWin32WSOpenDialog.ShowModal before ProcessFileDialogResults']);
{$ifdef DebugCommonDialogEvents}
debugln(['TWin32WSOpenDialog.ShowModal before ProcessFileDialogResults']);
{$endif}
ProcessFileDialogResult(TOpenDialog(ACommonDialog),
GetOpenFileNameW(LPOPENFILENAME(ACommonDialog.Handle)));
//debugln(['TWin32WSOpenDialog.ShowModal after ProcessFileDialogResults, UserChoice=',ModalResultStr[TOpenDialog(ACommonDialog).UserChoice]]);
{$ifdef DebugCommonDialogEvents}
debugln(['TWin32WSOpenDialog.ShowModal after ProcessFileDialogResults, UserChoice=',ModalResultStr[TOpenDialog(ACommonDialog).UserChoice]]);
{$endif}
end;
finally
SetCurrentDirUTF8(lOldWorkingDir);
@ -1246,13 +1265,17 @@ function TFileDialogEvents.OnFileOk(pfd: IFileDialog): HResult; stdcall;
var
CanClose: Boolean;
begin
//debugln('TFileDialogEvents.OnFileOk A');
{$ifdef DebugCommonDialogEvents}
debugln('TFileDialogEvents.OnFileOk A');
{$endif}
Result := TWin32WSOpenDialog.ProcessVistaDialogResult(pfd, FDialog);
if Succeeded(Result) then
begin
FDialog.UserChoice := mrOK; //DoCanClose needs this
CanClose := True;
//debugln('TFileDialogEvents.OnFileOk: calling DoCanClose');
{$ifdef DebugCommonDialogEvents}
debugln('TFileDialogEvents.OnFileOk: calling DoCanClose');
{$endif}
FDialog.DoCanClose(CanClose);
if CanClose then
begin
@ -1261,7 +1284,9 @@ begin
else
Result := S_FALSE;
end;
//debugln('TFileDialogEvents.OnFileOk End');
{$ifdef DebugCommonDialogEvents}
debugln('TFileDialogEvents.OnFileOk End');
{$endif}
end;
function TFileDialogEvents.OnFolderChanging(pfd: IFileDialog; psifolder: IShellItem): HResult; stdcall;