* Rename fake windows units to allow compilation with non win32 widgetset under windows

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1078 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-23 09:00:03 +00:00
parent 3e6b2b7bd9
commit f5031e0139
10 changed files with 22 additions and 12 deletions

View File

@ -318,8 +318,11 @@ uses
{$ifdef LCLWin32}
Windows,
{$endif}
{$ifdef Windows}
ActiveX,
Clipbrd,
{$else}
FakeActiveX,
{$endif}
OleUtils,
LCLIntf,
DelphiCompat,
@ -328,8 +331,8 @@ uses
LCLVersion,
vtlogger, LCLType, LResources, LMessages, Types,
SysUtils, Classes, Graphics, Controls, Forms, ImgList, StdCtrls, Menus, Printers,
SyncObjs // Thread support
//Clipbrd // Clipboard support
SyncObjs, // Thread support
Clipbrd // Clipboard support
{$ifdef ThemeSupport}
, Themes , Win32UxTheme, UxTheme
{$endif ThemeSupport}
@ -3876,7 +3879,11 @@ uses
{$ifdef UseFlatScrollbars}
FlatSB, // wrapper for systems without flat SB support
{$endif UseFlatScrollbars}
{$ifdef Windows}
MMSystem, // for animation timer (does not include further resources)
{$else}
FakeMMSystem,
{$endif}
TypInfo, // for migration stuff
ActnList,
StdActns, // for standard action support
@ -20066,7 +20073,11 @@ procedure TBaseVirtualTree.DragAndDrop(AllowedEffects: Integer;
DataObject: IDataObject; DragEffect: Integer);
begin
{$ifdef Windows}
ActiveX.DoDragDrop(DataObject, VTVDragManager as IDropSource, AllowedEffects, @DragEffect);
{$else}
FakeActiveX.DoDragDrop(DataObject, VTVDragManager as IDropSource, AllowedEffects, @DragEffect);
{$endif}
end;
//----------------------------------------------------------------------------------------------------------------------

View File

@ -17,7 +17,6 @@
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>

View File

@ -1,3 +1,3 @@
unit ActiveX;
unit FakeActiveX;
{$i ../dummyactivex.inc}

View File

@ -1,3 +1,3 @@
unit ActiveX;
unit FakeActiveX;
{$i ../dummyactivex.inc}

View File

@ -1,3 +1,3 @@
unit ActiveX;
unit FakeActiveX;
{$i ../dummyactivex.inc}

View File

@ -1,4 +1,4 @@
unit mmsystem;
unit fakemmsystem;
{$mode objfpc}{$H+}