paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 10:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed TTreeView resize update

Browse Source 
git-svn-id: trunk@1473 -
This commit is contained in:
lazarus 2002-03-02 17:03:19 +00:00
parent bbc6e83287
commit 9cfa4d0ce5
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/comctrls.pp
View File

@ -1467,6 +1467,7 @@ type
procedure WMVScroll(var Msg: TLMScroll); message LM_VSCROLL; procedure WMVScroll(var Msg: TLMScroll); message LM_VSCROLL;
procedure WMLButtonDown(var Message: TLMLButtonDown); message LM_LBUTTONDOWN; procedure WMLButtonDown(var Message: TLMLButtonDown); message LM_LBUTTONDOWN;
procedure WMNotify(var Message: TLMNotify); message LM_NOTIFY; procedure WMNotify(var Message: TLMNotify); message LM_NOTIFY;
procedure WMSize(var Msg: TLMSize); message LM_SIZE;
//procedure WMContextMenu(var Message: TLMContextMenu); message LM_CONTEXTMENU; //procedure WMContextMenu(var Message: TLMContextMenu); message LM_CONTEXTMENU;
//procedure CMSysColorChange(var Message: TMessage); message CM_SYSCOLORCHANGE; //procedure CMSysColorChange(var Message: TMessage); message CM_SYSCOLORCHANGE;
protected protected
@ -1750,6 +1751,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.21 2002/03/02 17:03:19 lazarus
MG: fixed TTreeView resize update
Revision 1.20 2002/03/02 13:22:27 lazarus Revision 1.20 2002/03/02 13:22:27 lazarus
MG: fixed find declaration and inheriting class visibility flags MG: fixed find declaration and inheriting class visibility flags

6
lcl/include/treeview.inc
View File

@ -4224,6 +4224,12 @@ begin
inherited; inherited;
end; end;
procedure TCustomTreeView.WMSize(var Msg: TLMSize);
begin
Include(FStates,tvsScrollbarChanged);
inherited;
end;
{ CustomDraw support } { CustomDraw support }
procedure TCustomTreeView.CanvasChanged(Sender: TObject); procedure TCustomTreeView.CanvasChanged(Sender: TObject);