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

* Remove CMSysColorChange

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1091 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-27 07:27:08 +00:00
parent 505346740a
commit ac519c283f
1 changed files with 0 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -2468,7 +2468,6 @@ type
procedure CMHintShow(var Message: TCMHintShow); message CM_HINTSHOW; procedure CMHintShow(var Message: TCMHintShow); message CM_HINTSHOW;
procedure CMMouseLeave(var Message: TLMessage); message CM_MOUSELEAVE; procedure CMMouseLeave(var Message: TLMessage); message CM_MOUSELEAVE;
procedure CMMouseWheel(var Message: TLMMouseEvent); message LM_MOUSEWHEEL; procedure CMMouseWheel(var Message: TLMMouseEvent); message LM_MOUSEWHEEL;
procedure CMSysColorChange(var Message: TLMessage); message CM_SYSCOLORCHANGE;
{$ifdef EnableNativeTVM} {$ifdef EnableNativeTVM}
procedure TVMGetItem(var Message: TLMessage); message TVM_GETITEM; procedure TVMGetItem(var Message: TLMessage); message TVM_GETITEM;
procedure TVMGetItemRect(var Message: TLMessage); message TVM_GETITEMRECT; procedure TVMGetItemRect(var Message: TLMessage); message TVM_GETITEMRECT;
@ -15570,31 +15569,6 @@ end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
procedure TBaseVirtualTree.CMSysColorChange(var Message: TLMessage);
begin
//todo: see the meaning of this message and if is useful in LCL
inherited;
{
ConvertImageList(LightCheckImages, 'VT_CHECK_LIGHT');
ConvertImageList(DarkCheckImages, 'VT_CHECK_DARK');
ConvertImageList(LightTickImages, 'VT_TICK_LIGHT');
ConvertImageList(DarkTickImages, 'VT_TICK_DARK');
ConvertImageList(FlatImages, 'VT_FLAT');
ConvertImageList(UtilityImages, 'VT_UTILITIES');
}
// XP images do not need to be converted.
// System check images do not need to be converted.
//todo_lcl WM_SYSCOLORCHANGE is not used in lcl
{
Message.Msg := WM_SYSCOLORCHANGE;
DefaultHandler(Message);
}
end;
//----------------------------------------------------------------------------------------------------------------------
{$ifdef EnableNativeTVM} {$ifdef EnableNativeTVM}
procedure TBaseVirtualTree.TVMGetItem(var Message: TLMessage); procedure TBaseVirtualTree.TVMGetItem(var Message: TLMessage);