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

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

@ -113,6 +113,7 @@ uses
DelphiCompat,
{$else}
Windows,
DelphiCompat,
{$endif}
vtlogger, LCLType, LResources, LCLIntf, LMessages, Types,
SysUtils, Classes, Graphics, Controls, Forms, ImgList, StdCtrls, Menus, Printers,
@ -22796,9 +22797,10 @@ begin
end;
Message.Result := 0;
end
else
with Message do
Result := DefWindowProc(FPanningWindow, Msg, wParam, lParam);
else;
//todo: see how implement panning
//with Message do
// Result := DefWindowProc(FPanningWindow, Msg, wParam, lParam);
end;
//----------------------------------------------------------------------------------------------------------------------
@ -23202,7 +23204,7 @@ begin
end;
//----------------------------------------------------------------------------------------------------------------------
{$ifdef EnableWheelPanning}
var
PanningWindowClass: TWndClass = (
style: 0;
@ -23216,7 +23218,7 @@ var
lpszMenuName: nil;
lpszClassName: 'VTPanningWindow'
);
{$endif}
procedure TBaseVirtualTree.StartWheelPanning(Position: TPoint);
// Called when wheel panning should start. A little helper window is created to indicate the reference position,
@ -30675,7 +30677,7 @@ procedure TCustomVirtualStringTree.DoTextDrawing(var PaintInfo: TVTPaintInfo; Te
begin
if IsWinNT then
Windows.DrawTextW(PaintInfo.Canvas.Handle, PWideChar(Text), Length(Text), CellRect, DrawFormat)
DelphiCompat.DrawTextW(PaintInfo.Canvas.Handle, PWideChar(Text), Length(Text), CellRect, DrawFormat)
else
DrawTextW(PaintInfo.Canvas.Handle, PWideChar(Text), Length(Text), CellRect, DrawFormat, False);
end;
@ -30921,7 +30923,7 @@ begin
else
DrawFormat := DrawFormat or DT_LEFT;
if IsWinNT then
Windows.DrawTextW(Canvas.Handle, PWideChar(S), Length(S), PaintInfo.CellRect, DrawFormat)
DelphiCompat.DrawTextW(Canvas.Handle, PWideChar(S), Length(S), PaintInfo.CellRect, DrawFormat)
else
DrawTextW(Canvas.Handle, PWideChar(S), Length(S), PaintInfo.CellRect, DrawFormat, False);
Result := PaintInfo.CellRect.Bottom - PaintInfo.CellRect.Top;
@ -31000,7 +31002,6 @@ var
P: Pointer;
begin
{$ifdef NeedWindows}
Result := 0;
case Format of
CF_TEXT:
@ -31035,13 +31036,16 @@ begin
if DataSize > 0 then
begin
{$ifdef UseExternalDragManager}
Result:=AllocateGlobal(Data,DataSize);
{$else}
Result := GlobalAlloc(GHND or GMEM_SHARE, DataSize);
P := GlobalLock(Result);
Move(Data^, P^, DataSize);
GlobalUnlock(Result);
end;
{$endif}
end;
end;
//----------------------------------------------------------------------------------------------------------------------

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

@ -87,13 +87,13 @@ 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';

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

@ -220,6 +220,8 @@ type
function GetTreeFromDataObject(const DataObject: IDataObject; var Format: TFormatEtc): TObject;
function AllocateGlobal(Data: Pointer; DataSize:Cardinal): HGLOBAL;
implementation
uses
@ -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