From 8b7cf08537e80a33b228d6db82c6b19773aedbe5 Mon Sep 17 00:00:00 2001 From: vincents Date: Thu, 18 Jan 2007 14:22:02 +0000 Subject: [PATCH] win32 interface: don't show designer windows in the taskbar git-svn-id: trunk@10474 - --- lcl/interfaces/win32/win32wsforms.pp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/win32/win32wsforms.pp b/lcl/interfaces/win32/win32wsforms.pp index e14695d984..cffb9407cc 100644 --- a/lcl/interfaces/win32/win32wsforms.pp +++ b/lcl/interfaces/win32/win32wsforms.pp @@ -222,8 +222,9 @@ begin Width := LongInt(CW_USEDEFAULT); Height := LongInt(CW_USEDEFAULT); SubClassWndProc := nil; - if ((Application = nil) or (Application.MainForm <> lForm)) - and (lForm.ShowInTaskBar = stAlways) then + if ((Application = nil) or (Application.MainForm <> lForm)) and + ( not (csDesigning in lForm.ComponentState) and + (lForm.ShowInTaskBar = stAlways)) then Parent := 0; end; // create window