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

* Initializes check images when toCheckSupport option is set

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@414 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-04-12 00:36:13 +00:00
parent 881de4fd3a
commit efee47543f
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5229,7 +5229,10 @@ begin
if not (csLoading in ComponentState) and HandleAllocated then if not (csLoading in ComponentState) and HandleAllocated then
begin begin
if toCheckSupport in ToBeSet + ToBeCleared then if toCheckSupport in ToBeSet + ToBeCleared then
begin
GetCheckImageList;
Invalidate; Invalidate;
end;
if not (csDesigning in ComponentState) then if not (csDesigning in ComponentState) then
begin begin
if toFullRepaintOnResize in (TobeSet + ToBeCleared) then if toFullRepaintOnResize in (TobeSet + ToBeCleared) then
@ -19638,10 +19641,10 @@ end;
function TBaseVirtualTree.GetClientRect: TRect; function TBaseVirtualTree.GetClientRect: TRect;
begin begin
Result:=Inherited; Result := inherited;
//lclheader //lclheader
if HandleAllocated and (hoVisible in FHeader.FOptions) then if HandleAllocated and (hoVisible in FHeader.FOptions) then
Dec(Result.Bottom,FHeader.Height); Dec(Result.Bottom, FHeader.Height);
end; end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------