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

Missing code from last commit - Fixed compilation under gtk

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@128 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-03-15 19:15:51 +00:00
parent 4e70efbfe3
commit 825b15d142
3 changed files with 1637 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4875,8 +4875,15 @@ var
I, Width, Height: Integer; I, Width, Height: Integer;
begin begin
//todo implement under gtk
{$ifdef Windows}
Width := GetSystemMetrics(SM_CXMENUCHECK) + 3; Width := GetSystemMetrics(SM_CXMENUCHECK) + 3;
Height := GetSystemMetrics(SM_CYMENUCHECK) + 3; Height := GetSystemMetrics(SM_CYMENUCHECK) + 3;
{$else}
Width:=16;
Height:=16;
{$endif}
IL := TImageList.CreateSize(Width, Height); IL := TImageList.CreateSize(Width, Height);
//with IL do //with IL do
// Handle := ImageList_Create(Width, Height, Flags, 0, AllocBy); // Handle := ImageList_Create(Width, Height, Flags, 0, AllocBy);
@ -5524,10 +5531,15 @@ var
begin begin
if FMiscOptions <> Value then if FMiscOptions <> Value then
begin begin
ToBeSet := Value - FMiscOptions; ToBeSet := Value - FMiscOptions;
ToBeCleared := FMiscOptions - Value; ToBeCleared := FMiscOptions - Value;
FMiscOptions := Value; FMiscOptions := Value;
{$ifndef Windows}
Exclude(FMiscOptions,toAcceptOLEDrop);
Exclude(ToBeCleared,toAcceptOLEDrop);
Exclude(ToBeSet,toAcceptOLEDrop);
{$endif}
with FOwner do with FOwner do
if not (csLoading in ComponentState) and HandleAllocated then if not (csLoading in ComponentState) and HandleAllocated then
begin begin
@ -23691,9 +23703,6 @@ const // Region identifiers for GetRandomRgn
APIRGN = 3; APIRGN = 3;
SYSRGN = 4; SYSRGN = 4;
//todo_lcl
function GetRandomRgn(DC: HDC; Rgn: HRGN; iNum: Integer): Integer; stdcall; external 'GDI32.DLL';
procedure TBaseVirtualTree.UpdateWindowAndDragImage(const Tree: TBaseVirtualTree; TreeRect: TRect; UpdateNCArea, procedure TBaseVirtualTree.UpdateWindowAndDragImage(const Tree: TBaseVirtualTree; TreeRect: TRect; UpdateNCArea,
ReshowDragImage: Boolean); ReshowDragImage: Boolean);

1623
components/virtualtreeview-unstable/units/gtk/virtualdragmanager.pas Normal file
View File

File diff suppressed because it is too large Load Diff

1
components/virtualtreeview-unstable/vtlogger.pas
View File

@ -32,6 +32,7 @@ const
lcColumnPosition = 17; lcColumnPosition = 17;
lcTimer = 18; lcTimer = 18;
lcDrag = 19; lcDrag = 19;
lcOle = 20;
var var
Logger: TLCLLogger; Logger: TLCLLogger;