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

* Fixed compilation

Browse Source 
* Work around to scroll problem under Qt

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@281 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-10-25 19:29:11 +00:00
parent 9922c15c55
commit d635a63cbb
1 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -113,7 +113,7 @@ interface
{$warn UNSAFE_CODE off} {$warn UNSAFE_CODE off}
{$endif COMPILER_7_UP} {$endif COMPILER_7_UP}
{$if defined (LCLGtk) or LCLGtk2} {$if defined (LCLGtk) or defined(LCLGtk2)}
{$define Gtk} {$define Gtk}
{$endif} {$endif}
@ -15001,10 +15001,17 @@ begin
SB_THUMBTRACK: SB_THUMBTRACK:
begin begin
DoStateChange([tsThumbTracking]); DoStateChange([tsThumbTracking]);
{$ifdef LCLQt}
if UseRightToLeftAlignment then
SetOffsetX(-Integer(FRangeX) + ClientWidth + Message.Pos)
else
SetOffsetX(-Message.Pos);
{$else}
if UseRightToLeftAlignment then if UseRightToLeftAlignment then
SetOffsetX(-Integer(FRangeX) + ClientWidth + GetRealScrollPosition) SetOffsetX(-Integer(FRangeX) + ClientWidth + GetRealScrollPosition)
else else
SetOffsetX(-GetRealScrollPosition); SetOffsetX(-GetRealScrollPosition);
{$endif}
end; end;
SB_TOP: SB_TOP:
SetOffsetX(0); SetOffsetX(0);
@ -16254,7 +16261,11 @@ begin
SB_THUMBTRACK: SB_THUMBTRACK:
begin begin
DoStateChange([tsThumbTracking]); DoStateChange([tsThumbTracking]);
{$ifdef LCLQt}
SetOffsetY(-Message.Pos);
{$else}
SetOffsetY(-GetRealScrollPosition); SetOffsetY(-GetRealScrollPosition);
{$endif}
end; end;
SB_TOP: SB_TOP:
SetOffsetY(0); SetOffsetY(0);
@ -26709,7 +26720,7 @@ begin
Height := 0; Height := 0;
Height := PaintInfo.Node.NodeHeight; Height := PaintInfo.Node.NodeHeight;
//Workaround to LCL bug 8626 //Workaround to LCL bug 8626
SetWindowOrgEx(Canvas.Handle, {$ifndef Windows}-{$endif}Window.Left, 0, nil); SetWindowOrgEx(Canvas.Handle, {$ifdef Gtk}-{$endif}Window.Left, 0, nil);
R.Bottom := PaintInfo.Node.NodeHeight; R.Bottom := PaintInfo.Node.NodeHeight;
end; end;
// Set the origin of the canvas' brush. This depends on the node heights. // Set the origin of the canvas' brush. This depends on the node heights.