paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 06:19:32 +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; FPreviewFileDialog: TPreviewFileDialog;
protected protected
class procedure WSRegisterClass; override; class procedure WSRegisterClass; override;
procedure SetPreviewFileDialog(const AValue: TPreviewFileDialog);
class function GetControlClassDefaultSize: TSize; override; class function GetControlClassDefaultSize: TSize; override;
procedure SetPreviewFileDialog(const AValue: TPreviewFileDialog);
procedure CreateParams(var Params: TCreateParams); override;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
property PreviewFileDialog: TPreviewFileDialog read FPreviewFileDialog property PreviewFileDialog: TPreviewFileDialog read FPreviewFileDialog
@ -258,6 +259,13 @@ begin
FPreviewFileDialog:=AValue; FPreviewFileDialog:=AValue;
end; 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; class function TPreviewFileControl.GetControlClassDefaultSize: TSize;
begin begin
Result.CX := 200; Result.CX := 200;