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

Finished isolation of WinApi functions

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@121 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-03-07 14:24:30 +00:00
parent 48d8f6864c
commit dd83bd49fe
3 changed files with 29 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -219,6 +219,8 @@ type
procedure UnlockMediumData(Medium:TStgMedium);
function GetTreeFromDataObject(const DataObject: IDataObject; var Format: TFormatEtc): TObject;
function AllocateGlobal(Data: Pointer; DataSize:Cardinal): HGLOBAL;
implementation
@ -229,12 +231,12 @@ type
TVirtualTreeAccess = class (TBaseVirtualTree)
end;
function Succeeded(Status : HRESULT) : BOOL;
function Succeeded(Status : HRESULT) : BOOLEAN;
begin
Succeeded:=Status and HRESULT($80000000)=0;
end;
function Failed(Status : HRESULT) : BOOL;
function Failed(Status : HRESULT) : BOOLEAN;
begin
Failed:=Status and HRESULT($80000000)<>0;
end;
@ -398,6 +400,16 @@ begin
end;
end;
function AllocateGlobal(Data: Pointer; DataSize: Cardinal): HGLOBAL;
var
P:Pointer;
begin
Result := GlobalAlloc(GHND or GMEM_SHARE, DataSize);
P := GlobalLock(Result);
Move(Data^, P^, DataSize);
GlobalUnlock(Result);
end;
//----------------------------------------------------------------------------------------------------------------------
// OLE drag and drop support classes