paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 04:19:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32, wince: revert r25425 #112777a442 because it adds flickering to applications

Browse Source 
git-svn-id: trunk@25679 -
This commit is contained in:
paul 2010-05-27 03:07:34 +00:00
parent 5b42849a32
commit 1aae556694
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32object.inc
View File

@ -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;

2
lcl/interfaces/wince/winceobject.inc
View File

@ -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;