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

* Fixed #6968

Browse Source 
git-svn-id: trunk@9351 -
This commit is contained in:
marc 2006-05-25 00:19:07 +00:00
parent cee4c76647
commit 4fd508b71d
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

@ -1704,7 +1704,7 @@ type
class function CreateParentedControl(ParentWindow: HWnd): TWinControl; class function CreateParentedControl(ParentWindow: HWnd): TWinControl;
destructor Destroy; override; destructor Destroy; override;
procedure DockDrop(DockObject: TDragDockObject; X, Y: Integer); dynamic; procedure DockDrop(DockObject: TDragDockObject; X, Y: Integer); dynamic;
function CanFocus: Boolean; function CanFocus: Boolean; virtual;
function GetControlIndex(AControl: TControl): integer; function GetControlIndex(AControl: TControl): integer;
procedure SetControlIndex(AControl: TControl; NewIndex: integer); procedure SetControlIndex(AControl: TControl; NewIndex: integer);
function Focused: Boolean; virtual; function Focused: Boolean; virtual;