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

win32 interface: get platform from the sysutils unit.

Browse Source 
git-svn-id: trunk@10527 -
This commit is contained in:
vincents 2007-01-29 10:21:15 +00:00
parent 1f29653935
commit edabd1fe1f
1 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,7 +27,8 @@ unit win32proc;
interface
uses
Windows, Classes, LMessages, LCLType, LCLProc, Controls, Forms, Menus;
Windows, Classes, SysUtils,
LMessages, LCLType, LCLProc, Controls, Forms, Menus;
Type
TEventType = (etNotify, etKey, etKeyPress, etMouseWheel, etMouseUpDown);
@ -123,7 +124,7 @@ var
implementation
uses
SysUtils, LCLStrConsts, Dialogs, StdCtrls, ExtCtrls,
LCLStrConsts, Dialogs, StdCtrls, ExtCtrls,
LCLIntf; //remove this unit when GetWindowSize is moved to TWSWinControl
{$IFOPT C-}
@ -1157,10 +1158,6 @@ begin
end;
procedure DoInitialization;
{$ifdef WindowsUnicodeSupport}
var
WinVersion: TOSVersionInfo;
{$endif}
begin
FillChar(DefaultWindowInfo, sizeof(DefaultWindowInfo), 0);
DefaultWindowInfo.DrawItemIndex := -1;
@ -1168,12 +1165,7 @@ begin
ChangedMenus := TList.Create;
{$ifdef WindowsUnicodeSupport}
WinVersion.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
GetVersionEx(WinVersion);
UnicodeEnabledOS := (WinVersion.dwPlatformID = VER_PLATFORM_WIN32_NT);
UnicodeEnabledOS := (Win32Platform = VER_PLATFORM_WIN32_NT);
{$endif}
end;