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

lcl: fix CreateParams for TPreviewFileControl

Browse Source 
git-svn-id: trunk@25228 -
This commit is contained in:
paul 2010-05-07 00:44:13 +00:00
parent 5a2a272673
commit 07c85a5453
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/extdlgs.pas
View File

@ -42,8 +42,9 @@ type
FPreviewFileDialog: TPreviewFileDialog;
protected
class procedure WSRegisterClass; override;
procedure SetPreviewFileDialog(const AValue: TPreviewFileDialog);
class function GetControlClassDefaultSize: TSize; override;
procedure SetPreviewFileDialog(const AValue: TPreviewFileDialog);
procedure CreateParams(var Params: TCreateParams); override;
public
constructor Create(TheOwner: TComponent); override;
property PreviewFileDialog: TPreviewFileDialog read FPreviewFileDialog
@ -258,6 +259,13 @@ begin
FPreviewFileDialog:=AValue;
end;
procedure TPreviewFileControl.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
if Params.WndParent = 0 then
Params.Style := Params.Style and not WS_CHILD;
end;
class function TPreviewFileControl.GetControlClassDefaultSize: TSize;
begin
Result.CX := 200;