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

Win32: Remove Windows 9x specific code, part 3.

Browse Source 
git-svn-id: trunk@50771 -
This commit is contained in:
bart 2015-12-13 16:50:12 +00:00
parent 31d0fe9579
commit 857535e651
2 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32int.pp
View File

@ -287,8 +287,6 @@ var
{$I win32winapi.inc}
{$I win32lclintf.inc}
const
W95_MENUITEMINFO_SIZE = 44;
initialization
{ initialize mousedownclick to far before double click time }
@ -298,9 +296,7 @@ initialization
MouseDownTime := 0;
SystemCharSetIsUTF8:=true;
if (Win32MajorVersion = 4) and (Win32MinorVersion = 0)
then MMenuItemInfoSize := W95_MENUITEMINFO_SIZE
else MMenuItemInfoSize := sizeof(MENUITEMINFO);
MMenuItemInfoSize := sizeof(MENUITEMINFO);
// Vista with classic theme is buggy with Windows.SetPixel()
// http://bugs.freepascal.org/view.php?id=15822

1
lcl/interfaces/win32/win32proc.pp
View File

@ -1639,7 +1639,6 @@ begin
DefaultWindowInfo.DrawItemIndex := -1;
WindowInfoAtom := Windows.GlobalAddAtom('WindowInfo');
ChangedMenus := TFPList.Create;
//UnicodeEnabledOS := (Win32Platform = VER_PLATFORM_WIN32_NT);
if WindowsVersion = wvUnknown then
UpdateWindowsVersion;
end;