From fc2c2b3e1d61d6af779ee7eeddcc8ad8280844ab Mon Sep 17 00:00:00 2001 From: david Date: Thu, 20 Dec 2007 10:04:26 +0000 Subject: [PATCH] =?UTF-8?q?uEditorBase.pas=20->=20Cambiados=20los=20par?= =?UTF-8?q?=C3=A1metros=20de=20creaci=C3=B3n=20del=20formulario=20para=20q?= =?UTF-8?q?ue=20no=20aparezca=20como=20ventana=20aparte=20de=20la=20aplica?= =?UTF-8?q?ci=C3=B3n=20en=20la=20barra=20de=20tareas=20hasta=20que=20no=20?= =?UTF-8?q?se=20implemente=20ventanas=20independientes.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@182 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/GUIBase/uEditorBase.pas | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/Source/GUIBase/uEditorBase.pas b/Source/GUIBase/uEditorBase.pas index 4aded041..4b86ffc5 100644 --- a/Source/GUIBase/uEditorBase.pas +++ b/Source/GUIBase/uEditorBase.pas @@ -432,10 +432,16 @@ end; procedure TfEditorBase.CreateParams(var params: TCreateParams); begin - //No tocar, sirve para crear varios formularios hijos abiertos a la vez fuera de la aplicación principal - inherited CreateParams( params ); - params.Style := params.Style and not WS_POPUP; - params.ExStyle := params.ExStyle and not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW; + inherited CreateParams(params); + + { Descomentar para crear varios formularios hijos abiertos a la vez + fuera de la aplicación principal pero cuidado por que las ventanas + modales como la previsualización también se ven afectadas. + + inherited CreateParams( params ); + params.Style := params.Style and not WS_POPUP; + params.ExStyle := params.ExStyle and not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW; + } end; function TfEditorBase.ShowModal: Integer;