From 1aae5566940b6145e320f326c7a6893db3f967d5 Mon Sep 17 00:00:00 2001 From: paul Date: Thu, 27 May 2010 03:07:34 +0000 Subject: [PATCH] win32, wince: revert r25425 #112777a442 because it adds flickering to applications git-svn-id: trunk@25679 - --- lcl/interfaces/win32/win32object.inc | 8 ++++---- lcl/interfaces/wince/winceobject.inc | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc index eec2e1814e..11a033b58d 100644 --- a/lcl/interfaces/win32/win32object.inc +++ b/lcl/interfaces/win32/win32object.inc @@ -627,7 +627,7 @@ begin if hIcon = 0 then hIcon := Windows.LoadIcon(0, IDI_APPLICATION); hCursor := Windows.LoadCursor(0, IDC_ARROW); - hbrBackground := GetSysColorBrush(COLOR_BTNFACE); + hbrBackground := 0; LPSzMenuName := nil; LPSzClassName := @ClsNameW; end; @@ -640,7 +640,7 @@ begin if WindowsVersion >= wvXP then style := style or CS_DROPSHADOW; hIcon := 0; - hbrBackground := GetSysColorBrush(COLOR_INFOBK); + hbrBackground := 0; LPSzClassName := @ClsHintNameW; end; Result := Windows.RegisterClassW(@WindowClassW) <> 0; @@ -658,7 +658,7 @@ begin if hIcon = 0 then hIcon := Windows.LoadIcon(0, IDI_APPLICATION); hCursor := Windows.LoadCursor(0, IDC_ARROW); - hbrBackground := GetSysColorBrush(COLOR_BTNFACE); + hbrBackground := 0; LPSzMenuName := nil; LPSzClassName := @ClsName; end; @@ -671,7 +671,7 @@ begin if WindowsVersion >= wvXP then style := style or CS_DROPSHADOW; hIcon := 0; - hbrBackground := GetSysColorBrush(COLOR_INFOBK); + hbrBackground := 0; LPSzClassName := @ClsHintName; end; Result := Windows.RegisterClass(@WindowClass) <> 0; diff --git a/lcl/interfaces/wince/winceobject.inc b/lcl/interfaces/wince/winceobject.inc index a628cfa8f7..569e2bcd72 100644 --- a/lcl/interfaces/wince/winceobject.inc +++ b/lcl/interfaces/wince/winceobject.inc @@ -530,7 +530,7 @@ begin if hIcon = 0 then hIcon := Windows.LoadIcon(0, IDI_APPLICATION); hCursor := LoadCursor(0, IDC_ARROW); - hbrBackground := GetSysColorBrush(Color_BtnFace or SYS_COLOR_INDEX_FLAG); + hbrBackground := 0; LPSzMenuName := nil; LPSzClassName := @ClsName; end;