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

win32 interface: reverted r19668 #c1f7d67ccc, because CoInitialize COINIT_MULTITHREADED doesn't work with new style TSelectDirectory.

Browse Source 
git-svn-id: trunk@19800 -
This commit is contained in:
vincents 2009-05-04 13:39:35 +00:00
parent f5399721bf
commit a348e5f501
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -117,7 +117,7 @@ begin
Exit;
end;
CoInitializeEx(nil, COINIT_MULTITHREADED);
OleInitialize(nil);
//TODO: Remove when the WS interface is implemented
// Common controls only need to be initialized when used
// So they are initialized in the CreateHandle for common controls
@ -427,7 +427,7 @@ end;
procedure TWin32WidgetSet.AppTerminate;
begin
Assert(False, 'Trace:TWin32WidgetSet.AppTerminate - Start');
CoUninitialize;
OleUninitialize;
end;
procedure TWin32WidgetSet.AppSetIcon(const Small, Big: HICON);