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

LCL: changed default RTTI value of Ctl3d to false

Browse Source 
git-svn-id: trunk@18353 -
This commit is contained in:
mattias 2009-01-20 11:27:10 +00:00
parent f8114b3622
commit 3502222ac1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -1119,7 +1119,7 @@ type
protected protected
// optional properties (not every descendent supports them) // optional properties (not every descendent supports them)
property ActionLink: TControlActionLink read FActionLink write FActionLink; property ActionLink: TControlActionLink read FActionLink write FActionLink;
property Ctl3D: Boolean read FCtl3D write FCtl3D;//Is this needed for anything other than compatability? property Ctl3D: Boolean read FCtl3D write FCtl3D default false;//Is this needed for anything other than compatability?
// MWE: no and even on delphi it is deprecated. IMO we remove this // MWE: no and even on delphi it is deprecated. IMO we remove this
property DragCursor: TCursor read FDragCursor write SetDragCursor default crDrag; property DragCursor: TCursor read FDragCursor write SetDragCursor default crDrag;
property DragKind: TDragKind read FDragKind write FDragKind default dkDrag; property DragKind: TDragKind read FDragKind write FDragKind default dkDrag;