pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* removed delphi specific directives

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1095 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-28 21:26:16 +00:00
parent 32c9311fd5
commit 1f4bf79d5b
1 changed files with 1 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -295,17 +295,8 @@ unit VirtualTrees;
interface interface
{$booleval off} // Use fastest possible boolean evaluation.
{$I VTConfig.inc} {$I VTConfig.inc}
{$ifdef COMPILER_7_UP}
// For some things to work we need code, which is classified as being unsafe for .NET.
{$warn UNSAFE_TYPE off}
{$warn UNSAFE_CAST off}
{$warn UNSAFE_CODE off}
{$endif COMPILER_7_UP}
{$if defined(LCLGtk) or defined(LCLGtk2)} {$if defined(LCLGtk) or defined(LCLGtk2)}
{$define Gtk} {$define Gtk}
{$endif} {$endif}
@ -937,8 +928,6 @@ type
// ----- OLE drag'n drop handling // ----- OLE drag'n drop handling
{ 01.05.2006 Jim - Problem with BDS2006 C++ compiler and ambiguous defines}
{$EXTERNALSYM IDropTargetHelper}
IDropTargetHelper = interface(IUnknown) IDropTargetHelper = interface(IUnknown)
[SID_IDropTargetHelper] [SID_IDropTargetHelper]
function DragEnter(hwndTarget: HWND; pDataObject: IDataObject; var ppt: TPoint; dwEffect: Integer): HRESULT; stdcall; function DragEnter(hwndTarget: HWND; pDataObject: IDataObject; var ppt: TPoint; dwEffect: Integer): HRESULT; stdcall;
@ -16653,10 +16642,7 @@ end;
begin begin
inherited; inherited;
ThemeServices.UpdateThemes;
{$ifndef COMPILER_7_UP}
ThemeServices.UpdateThemes;
{$endif COMPILER_7_UP}
if ThemeServices.ThemesEnabled and (toThemeAware in TreeOptions.PaintOptions) then if ThemeServices.ThemesEnabled and (toThemeAware in TreeOptions.PaintOptions) then
DoStateChange([tsUseThemes]) DoStateChange([tsUseThemes])
else else
@ -22573,11 +22559,6 @@ var
{$ifdef ThemeSupport} {$ifdef ThemeSupport}
RowRect: TRect; RowRect: TRect;
//Theme: HTHEME; //Theme: HTHEME;
{$ifndef COMPILER_11_UP}
const
TREIS_HOTSELECTED = 6;
{$endif COMPILER_11_UP}
{$endif ThemeSupport} {$endif ThemeSupport}
//--------------- local functions ------------------------------------------- //--------------- local functions -------------------------------------------