paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-08 01:19:38 +01: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 interface
uses uses
Windows, Classes, LMessages, LCLType, LCLProc, Controls, Forms, Menus; Windows, Classes, SysUtils,
LMessages, LCLType, LCLProc, Controls, Forms, Menus;
Type Type
TEventType = (etNotify, etKey, etKeyPress, etMouseWheel, etMouseUpDown); TEventType = (etNotify, etKey, etKeyPress, etMouseWheel, etMouseUpDown);
@ -123,7 +124,7 @@ var
implementation implementation
uses uses
SysUtils, LCLStrConsts, Dialogs, StdCtrls, ExtCtrls, LCLStrConsts, Dialogs, StdCtrls, ExtCtrls,
LCLIntf; //remove this unit when GetWindowSize is moved to TWSWinControl LCLIntf; //remove this unit when GetWindowSize is moved to TWSWinControl
{$IFOPT C-} {$IFOPT C-}
@ -1157,10 +1158,6 @@ begin
end; end;
procedure DoInitialization; procedure DoInitialization;
{$ifdef WindowsUnicodeSupport}
var
WinVersion: TOSVersionInfo;
{$endif}
begin begin
FillChar(DefaultWindowInfo, sizeof(DefaultWindowInfo), 0); FillChar(DefaultWindowInfo, sizeof(DefaultWindowInfo), 0);
DefaultWindowInfo.DrawItemIndex := -1; DefaultWindowInfo.DrawItemIndex := -1;
@ -1168,12 +1165,7 @@ begin
ChangedMenus := TList.Create; ChangedMenus := TList.Create;
{$ifdef WindowsUnicodeSupport} {$ifdef WindowsUnicodeSupport}
UnicodeEnabledOS := (Win32Platform = VER_PLATFORM_WIN32_NT);
WinVersion.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
GetVersionEx(WinVersion);
UnicodeEnabledOS := (WinVersion.dwPlatformID = VER_PLATFORM_WIN32_NT);
{$endif} {$endif}
end; end;