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

lcl: TWinControl.InsertControl fixed position in Controls, widgetsets do not support that yet, issue #25405

Browse Source 
git-svn-id: branches/fixes_1_4@47376 -
This commit is contained in:
mattias 2015-01-13 18:31:55 +00:00
parent 616bd7e127
commit ee2dd46d22
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/wincontrol.inc
View File

@ -6035,11 +6035,13 @@ end;
procedure TWinControl.Insert(AControl: TControl; Index: integer);
begin
if AControl = nil then exit;
if AControl.FParent<>nil then
raise EInvalidOperation.Create('control has already a parent');
if AControl = Self then
raise EInvalidOperation.Create(rsAControlCanNotHaveItselfAsParent);
ListAdd(FControls, AControl);
ListInsert(FControls, Index, AControl);
if AControl is TWinControl then
begin
ListAdd(FTabList, AControl);