From fa09cca65a80d8fcafa46600cf69ed49180c585b Mon Sep 17 00:00:00 2001 From: blikblum Date: Sat, 12 Apr 2008 22:07:46 +0000 Subject: [PATCH] * Make the target output dir different for each widgetset * Workaround to buggy ScrollWindowEx under Qt and Gtk git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@421 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/virtualtreeview-unstable/VirtualTrees.pas | 11 +++++++++-- .../virtualtreeview_package.lpk | 4 ++-- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/components/virtualtreeview-unstable/VirtualTrees.pas b/components/virtualtreeview-unstable/VirtualTrees.pas index e7f18e7ca..6cee63de5 100644 --- a/components/virtualtreeview-unstable/VirtualTrees.pas +++ b/components/virtualtreeview-unstable/VirtualTrees.pas @@ -18652,9 +18652,16 @@ begin Inc(R.Bottom, FHeader.Height); end; Logger.Send([lcScroll], 'Rect to Scroll', R); + //todo: temporary hack to avoid some drawing problems. + //Will be removed when scrollwindowex is properly implemented in all widgets + {$ifdef LCLQt} + DelphiCompat.ScrollWindow(Handle, DeltaX, DeltaY, @R, @R); + {$else} ScrollWindowEx(Handle, DeltaX, DeltaY, @R, @R,0, nil, SW_INVALIDATE or SW_SCROLLCHILDREN); - //todo: temporary hack to avoid some drawing problems. Will be removed when the header is properly implemented - //InvalidateRect(Handle, nil, True); + {$endif} + {$ifdef Gtk} + InvalidateRect(Handle, nil, True); + {$endif} end; end; end; diff --git a/components/virtualtreeview-unstable/virtualtreeview_package.lpk b/components/virtualtreeview-unstable/virtualtreeview_package.lpk index c3b44b235..38a164912 100644 --- a/components/virtualtreeview-unstable/virtualtreeview_package.lpk +++ b/components/virtualtreeview-unstable/virtualtreeview_package.lpk @@ -1,6 +1,6 @@ - + @@ -8,7 +8,7 @@ - +