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

fixed setting TTreeView.ScrollBars

Browse Source 
git-svn-id: trunk@3874 -
This commit is contained in:
mattias 2003-02-24 22:47:28 +00:00
parent bb7c7166b1
commit 0109a75851
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/objectinspector.pp
View File

@ -33,9 +33,9 @@ interface
uses
Forms, SysUtils, Buttons, Classes, Graphics, GraphType, StdCtrls, LCLType,
LCLLinux, LMessages, Controls, ComCtrls, ExtCtrls, PropEdits, GraphPropEdits,
TypInfo, Messages, LResources, Laz_XMLCfg, Menus, Dialogs, ObjInspStrConsts,
listviewpropedit;
LCLLinux, LMessages, Controls, ComCtrls, ExtCtrls, TypInfo, Messages,
LResources, Laz_XMLCfg, Menus, Dialogs, ObjInspStrConsts,
PropEdits, GraphPropEdits, ListViewPropEdit;
type

3
lcl/include/treeview.inc
View File

@ -2554,6 +2554,7 @@ begin
if Node <> nil then FSaveIndex := Node.AbsoluteIndex;
end;}
inherited DestroyWnd;
TControlCanvas(Canvas).FreeHandle;
end;
procedure TCustomTreeView.EditWndProc(var Message: TLMessage);
@ -2713,8 +2714,8 @@ procedure TCustomTreeView.SetScrollBars(const Value: TScrollStyle);
begin
if (FScrollBars <> Value) then begin
FScrollBars := Value;
RecreateWnd;
Include(FStates,tvsScrollbarChanged);
RecreateWnd;
UpdateScrollBars;
end;
end;