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

* Make the target output dir different for each widgetset

Browse Source 
* 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
This commit is contained in:
blikblum
2008-04-12 22:07:46 +00:00
parent 46fd53ba72
commit fa09cca65a
2 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -18652,9 +18652,16 @@ begin
Inc(R.Bottom, FHeader.Height); Inc(R.Bottom, FHeader.Height);
end; end;
Logger.Send([lcScroll], 'Rect to Scroll', R); 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); 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 {$endif}
//InvalidateRect(Handle, nil, True); {$ifdef Gtk}
InvalidateRect(Handle, nil, True);
{$endif}
end; end;
end; end;
end; end;

4
components/virtualtreeview-unstable/virtualtreeview_package.lpk
View File

@ -1,6 +1,6 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<Package Version="2"> <Package Version="3">
<Name Value="virtualtreeview_package"/> <Name Value="virtualtreeview_package"/>
<Author Value="Mike Lischke (LCL Port: Luiz Americo)"/> <Author Value="Mike Lischke (LCL Port: Luiz Americo)"/>
<CompilerOptions> <CompilerOptions>
@ -8,7 +8,7 @@
<SearchPaths> <SearchPaths>
<IncludeFiles Value="include/intf/$(LCLWidgetType)/;units/;include/intf/"/> <IncludeFiles Value="include/intf/$(LCLWidgetType)/;units/;include/intf/"/>
<OtherUnitFiles Value="units/$(LCLWidgetType)/"/> <OtherUnitFiles Value="units/$(LCLWidgetType)/"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)-$(LCLWidgetType)"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <CodeGeneration>
<Generate Value="Faster"/> <Generate Value="Faster"/>