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

win32: add preview control to the savePictureDialog

Browse Source 
git-svn-id: trunk@16874 -
This commit is contained in:
paul 2008-10-04 16:27:54 +00:00
parent f5dd112266
commit 677ae24396
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/win32/win32wsextdlgs.pp
View File

@ -74,6 +74,7 @@ type
private private
protected protected
public public
class function CreateHandle(const ACommonDialog: TCommonDialog): THandle; override;
end; end;
{ TWin32WSCalculatorDialog } { TWin32WSCalculatorDialog }
@ -209,6 +210,15 @@ begin
Result := Params.Window; Result := Params.Window;
end; end;
{ TWin32WSSavePictureDialog }
class function TWin32WSSavePictureDialog.CreateHandle(
const ACommonDialog: TCommonDialog): THandle;
begin
Result := inherited CreateHandle(ACommonDialog);
AddPreviewControl(ACommonDialog, LPOPENFILENAME(Result));
end;
initialization initialization
//////////////////////////////////////////////////// ////////////////////////////////////////////////////