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

fixed changing unitname during update

Browse Source 
git-svn-id: trunk@2582 -
This commit is contained in:
mattias 2002-08-17 23:41:30 +00:00
parent 9c402d38c8
commit ac91f9dafb
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/radiogroup.inc
View File

@ -15,11 +15,14 @@
}
constructor TRadioGroup.Create (AOwner : TComponent);
begin
inherited Create (AOwner);
inherited Create (AOwner);
end;
{
$Log$
Revision 1.3 2003/06/19 09:26:58 mattias
fixed changing unitname during update
Revision 1.2 2002/05/10 06:05:55 lazarus
MG: changed license to LGPL

7
lcl/include/wincontrol.inc
View File

@ -924,7 +924,7 @@ begin
FParent.FWinControls.Insert(Position, Self);
end;
end;
if FHandle <> 0 then
if HandleAllocated then
begin
if Position = 0 then Pos := HWND_BOTTOM
else if Position = FParent.FWinControls.Count - 1 then Pos := HWND_TOP
@ -933,7 +933,7 @@ begin
else if Position < I then
Pos := TWinControl(FParent.FWinControls[Position]).Handle
else Exit;
SetWindowPos(FHandle, Pos, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
SetWindowPos(Handle, Pos, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
end;
end;
end;
@ -2800,6 +2800,9 @@ end;
{ =============================================================================
$Log$
Revision 1.138 2003/06/19 09:26:58 mattias
fixed changing unitname during update
Revision 1.137 2003/06/18 11:21:06 mattias
fixed taborder=0, implemented TabOrder Editor