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

Fixed drawing problem when using scrollbars or mouse wheel

Browse Source 
Implemented checkbuttons

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@57 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-02-19 01:02:31 +00:00
parent 4d30d1b397
commit 522da1e090
9 changed files with 182 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/virtualtreeview/lclfunctions.inc
View File

@@ -36,6 +36,7 @@ end;
// TBaseVirtualTree.CollectSelectedNodesRTL, TBaseVirtualTree.DetermineHitPositionRTL
// TBaseVirtualTree.UpdateEditBounds, TBaseVirtualTree.GetDisplayRect, PaintTree,
// TStringEditLink.PrepareEdit, TCustomVirtualStringTree.ComputeNodeHeight etc
procedure ChangeBiDiModeAlignment(var Alignment: TAlignment);
begin
case Alignment of
@@ -77,6 +78,16 @@ begin
end;
end;
function InvalidateRect(aHandle : HWND; ARect : pRect; bErase : Boolean) : Boolean;
begin
Logger.EnterMethod(lcPaint,'InvalidateRect');
Logger.Send(lcPaint,'Rect',ARect^);
Logger.SendCallStack(lcPaint,'CallStack');
Result:=Windows.InvalidateRect(aHandle,ARect,bErase);
Logger.ExitMethod(lcPaint,'InvalidateRect');
end;
{$ifndef NeedWindows}
//Dummy function. Used in many places