paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 19:02:31 +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 if hIcon = 0 then
hIcon := Windows.LoadIcon(0, IDI_APPLICATION); hIcon := Windows.LoadIcon(0, IDI_APPLICATION);
hCursor := Windows.LoadCursor(0, IDC_ARROW); hCursor := Windows.LoadCursor(0, IDC_ARROW);
hbrBackground := GetSysColorBrush(COLOR_BTNFACE); hbrBackground := 0;
LPSzMenuName := nil; LPSzMenuName := nil;
LPSzClassName := @ClsNameW; LPSzClassName := @ClsNameW;
end; end;
@ -640,7 +640,7 @@ begin
if WindowsVersion >= wvXP then if WindowsVersion >= wvXP then
style := style or CS_DROPSHADOW; style := style or CS_DROPSHADOW;
hIcon := 0; hIcon := 0;
hbrBackground := GetSysColorBrush(COLOR_INFOBK); hbrBackground := 0;
LPSzClassName := @ClsHintNameW; LPSzClassName := @ClsHintNameW;
end; end;
Result := Windows.RegisterClassW(@WindowClassW) <> 0; Result := Windows.RegisterClassW(@WindowClassW) <> 0;
@ -658,7 +658,7 @@ begin
if hIcon = 0 then if hIcon = 0 then
hIcon := Windows.LoadIcon(0, IDI_APPLICATION); hIcon := Windows.LoadIcon(0, IDI_APPLICATION);
hCursor := Windows.LoadCursor(0, IDC_ARROW); hCursor := Windows.LoadCursor(0, IDC_ARROW);
hbrBackground := GetSysColorBrush(COLOR_BTNFACE); hbrBackground := 0;
LPSzMenuName := nil; LPSzMenuName := nil;
LPSzClassName := @ClsName; LPSzClassName := @ClsName;
end; end;
@ -671,7 +671,7 @@ begin
if WindowsVersion >= wvXP then if WindowsVersion >= wvXP then
style := style or CS_DROPSHADOW; style := style or CS_DROPSHADOW;
hIcon := 0; hIcon := 0;
hbrBackground := GetSysColorBrush(COLOR_INFOBK); hbrBackground := 0;
LPSzClassName := @ClsHintName; LPSzClassName := @ClsHintName;
end; end;
Result := Windows.RegisterClass(@WindowClass) <> 0; Result := Windows.RegisterClass(@WindowClass) <> 0;

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

@ -530,7 +530,7 @@ begin
if hIcon = 0 then if hIcon = 0 then
hIcon := Windows.LoadIcon(0, IDI_APPLICATION); hIcon := Windows.LoadIcon(0, IDI_APPLICATION);
hCursor := LoadCursor(0, IDC_ARROW); hCursor := LoadCursor(0, IDC_ARROW);
hbrBackground := GetSysColorBrush(Color_BtnFace or SYS_COLOR_INDEX_FLAG); hbrBackground := 0;
LPSzMenuName := nil; LPSzMenuName := nil;
LPSzClassName := @ClsName; LPSzClassName := @ClsName;
end; end;