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

* Fixed compilation in 2.1.4

Browse Source 
* removed Compilers.Inc
* Remoced unused variables and units
* adapted TWriterHack to fpc definition

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@165 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-05-21 01:10:19 +00:00
parent 2411bee5e1
commit 3e832dda5c
6 changed files with 22 additions and 486 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/virtualtreeview-unstable/units/win32/virtualdragmanager.pas
View File

@ -144,7 +144,7 @@ type
function GetData(const FormatEtcIn: TFormatEtc; out Medium: TStgMedium): HResult; virtual; stdcall;
function GetDataHere(const FormatEtc: TFormatEtc; out Medium: TStgMedium): HResult; virtual; stdcall;
function QueryGetData(const FormatEtc: TFormatEtc): HResult; virtual; stdcall;
function SetData(const FormatEtc: TFormatEtc; var Medium: TStgMedium; DoRelease: BOOL): HResult; virtual; stdcall;
function SetData(const FormatEtc: TFormatEtc; {$ifdef VER2_0}var{$else}const{$endif} Medium: TStgMedium; DoRelease: BOOL): HResult; virtual; stdcall;
end;
// TVTDragManager is a class to manage drag and drop in a Virtual Treeview.
@ -894,7 +894,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
function TVTDataObject.SetData(const FormatEtc: TFormatEtc; var Medium: TStgMedium; DoRelease: BOOL): HResult;
function TVTDataObject.SetData(const FormatEtc: TFormatEtc;{$ifdef VER2_0}var{$else}const{$endif} Medium: TStgMedium; DoRelease: BOOL): HResult;
// Allows dynamic adding to the IDataObject during its existance. Most noteably it is used to implement
// IDropSourceHelper and allows to set a special format for optimized moves during a shell transfer.

1
components/virtualtreeview-unstable/units/win32/virtualpanningwindow.pas
View File

@ -15,7 +15,6 @@ type
TVirtualPanningWindow = class
private
FHandle: THandle;
FOwnerHandle: THandle;
FImage: TBitmap;
procedure HandlePaintMessage;
public