You've already forked lazarus-ccr
dd83bd49fe
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@121 8e941d3f-bd1b-0410-a28a-d453659cc2b4
122 lines
4.1 KiB
PHP
122 lines
4.1 KiB
PHP
//Used in DrawTextW
|
|
{
|
|
function GetTextAlign(DC: HDC): UINT;
|
|
begin
|
|
Logger.AddCheckPoint(lcDummyFunctions,'GetTextAlign');
|
|
Result:=TA_TOP or TA_LEFT;
|
|
end;
|
|
}
|
|
//Used in DrawTextW, ShortenString, TVirtualTreeColumn.ComputeHeaderLayout, TVirtualTreeColumns.DrawButtonText,
|
|
// TVTEdit.AutoAdjustSize, TCustomVirtualStringTree.PaintNormalText, TCustomVirtualStringTree.WMSetFont
|
|
// TCustomVirtualStringTree.DoTextMeasuring
|
|
{
|
|
function GetTextExtentPoint32W(DC: HDC; Str: PWideChar; Count: Integer; var Size: TSize): Boolean;
|
|
var
|
|
TempStr: String;
|
|
begin
|
|
Logger.AddCheckPoint(lcDummyFunctions,'GetTextExtentPoint32W');
|
|
TempStr:=WideCharToString(Str);
|
|
Result:=GetTextExtentPoint(DC, PChar(TempStr), Length(TempStr), Size);
|
|
end;
|
|
}
|
|
//Used in DrawTextW
|
|
{
|
|
function ExtTextOutW(DC: HDC; X, Y: Integer; Options: LongInt; Rect: PRect;
|
|
Str: PWideChar; Count: LongInt; Dx: PInteger): Boolean;
|
|
var
|
|
TempStr: String;
|
|
begin
|
|
Logger.AddCheckPoint(lcDummyFunctions,'ExtTextOutW');
|
|
TempStr:=WideCharToString(Str);
|
|
Result:= ExtTextOut(DC, X, Y, Options, Rect, PChar(TempStr), Length(TempStr), Dx);
|
|
end;
|
|
}
|
|
|
|
//Used in TVirtualTreeHintWindow.CalcHintRect, TVirtualTreeColumn.ComputeHeaderLayout
|
|
// TBaseVirtualTree.CollectSelectedNodesRTL, TBaseVirtualTree.DetermineHitPositionRTL
|
|
// 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;
|
|
XOffset, YOffset: SmallInt;
|
|
FromRect,ToRect: TRect;
|
|
begin
|
|
GetWindowRect(hWndFrom,FromRect);
|
|
GetWindowRect(hWndTo,ToRect);
|
|
XOffset:=(FromRect.Left - ToRect.Left);
|
|
YOffset:=(FromRect.Top - ToRect.Top);
|
|
for i:=0 to cPoints - 1 do
|
|
begin
|
|
{
|
|
Mode Delphi does not support treating a pointer as a array
|
|
if ObjFpc is used than this syntax is preferred
|
|
PPoint(@lpPoints)[i].x:= XOffset + PPoint(@lpPoints)[i].x;
|
|
PPoint(@lpPoints)[i].y:= YOffset + PPoint(@lpPoints)[i].y;
|
|
}
|
|
PPoint(@lpPoints+i)^.x:= XOffset + PPoint(@lpPoints+i)^.x;
|
|
PPoint(@lpPoints+i)^.y:= YOffset + PPoint(@lpPoints+i)^.y;
|
|
end;
|
|
Result:=MakeLong(XOffset,YOffset);
|
|
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';
|
|
|
|
function RevokeDragDrop(hwnd:HWND):WINOLEAPI;stdcall;external 'ole32.dll' name 'RevokeDragDrop';
|
|
|
|
function DoDragDrop(pDataObj:IDataObject; pDropSource:IDropSource; dwOKEffects:DWORD; pdwEffect:LPDWORD):WINOLEAPI;stdcall;external 'ole32.dll' name 'DoDragDrop';
|
|
|
|
function OleInitialize(pvReserved:LPVOID):WINOLEAPI;stdcall;external 'ole32.dll' name 'OleInitialize';
|
|
|
|
procedure OleUninitialize;stdcall;external 'ole32.dll' name 'OleUninitialize';
|
|
|
|
procedure ReleaseStgMedium(_para1:LPSTGMEDIUM);stdcall;external 'ole32.dll' name 'ReleaseStgMedium';
|
|
|
|
function OleSetClipboard(pDataObj:IDataObject):WINOLEAPI;stdcall;external 'ole32.dll' name 'OleSetClipboard';
|
|
|
|
function OleGetClipboard(out ppDataObj:IDataObject):WINOLEAPI;stdcall;external 'ole32.dll' name 'OleGetClipboard';
|
|
|
|
function OleFlushClipboard:WINOLEAPI;stdcall;external 'ole32.dll' name 'OleFlushClipboard';
|
|
|
|
function OleIsCurrentClipboard(pDataObj:IDataObject):WINOLEAPI;stdcall;external 'ole32.dll' name 'OleIsCurrentClipboard';
|
|
|
|
function CreateStreamOnHGlobal(hGlobal:HGLOBAL; fDeleteOnRelease:BOOL;out stm:IStream):WINOLEAPI;stdcall;external 'ole32.dll' name 'CreateStreamOnHGlobal';
|
|
|
|
{$endif}
|