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

Moved code from lclfunction.inc to DelphiCompat

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@125 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-03-15 09:49:29 +00:00
parent 28532757f9
commit 5d6e5c7558
2 changed files with 1 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@ -3509,7 +3509,7 @@ var
Initialized: Boolean; // True if global structures have been initialized.
NeedToUnitialize: Boolean; // True if the OLE subsystem could be initialized successfully.
{$I lclfunctions.inc}
{.$I lclfunctions.inc}
//----------------- TClipboardFormats ----------------------------------------------------------------------------------

33
components/virtualtreeview-unstable/lclfunctions.inc
View File

@ -37,31 +37,6 @@ end;
// TBaseVirtualTree.UpdateEditBounds, TBaseVirtualTree.GetDisplayRect, PaintTree,
// TStringEditLink.PrepareEdit, TCustomVirtualStringTree.ComputeNodeHeight etc
procedure ChangeBiDiModeAlignment(var Alignment: TAlignment);
begin
case Alignment of
taLeftJustify: Alignment := taRightJustify;
taRightJustify: Alignment := taLeftJustify;
end;
end;
function INDEXTOOVERLAYMASK(i : longint) : longint;
{ return type might be wrong }
begin
INDEXTOOVERLAYMASK:=i shl 8;
end;
function MAKEROP4(fore,back : longint) : DWORD;
begin
MAKEROP4:=DWORD((DWORD(back shl 8) and $FF000000) or DWORD(fore));
end;
function Failed(Status : HRESULT) : BOOL;
begin
Failed:=Status and HRESULT($80000000)<>0;
end;
function MapWindowPoints(hWndFrom, hWndTo: HWND; var lpPoints; cPoints: UINT): Integer;
var
I:Integer;
@ -87,14 +62,6 @@ begin
end;
{
function InvalidateRect(aHandle : HWND; ARect : pRect; bErase : Boolean) : Boolean;
begin
Result:=InvalidateRect(aHandle,ARect,bErase);
end;
}
{$ifndef UseExternalDragManager}
function RegisterDragDrop(hwnd:HWND; pDropTarget:IDropTarget):WINOLEAPI;stdcall;external 'ole32.dll' name 'RegisterDragDrop';