paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 20:59:12 +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); constructor TRadioGroup.Create (AOwner : TComponent);
begin begin
inherited Create (AOwner); inherited Create (AOwner);
end; end;
{ {
$Log$ $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 Revision 1.2 2002/05/10 06:05:55 lazarus
MG: changed license to LGPL MG: changed license to LGPL

7
lcl/include/wincontrol.inc
View File

@ -924,7 +924,7 @@ begin
FParent.FWinControls.Insert(Position, Self); FParent.FWinControls.Insert(Position, Self);
end; end;
end; end;
if FHandle <> 0 then if HandleAllocated then
begin begin
if Position = 0 then Pos := HWND_BOTTOM if Position = 0 then Pos := HWND_BOTTOM
else if Position = FParent.FWinControls.Count - 1 then Pos := HWND_TOP else if Position = FParent.FWinControls.Count - 1 then Pos := HWND_TOP
@ -933,7 +933,7 @@ begin
else if Position < I then else if Position < I then
Pos := TWinControl(FParent.FWinControls[Position]).Handle Pos := TWinControl(FParent.FWinControls[Position]).Handle
else Exit; 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; end;
end; end;
@ -2800,6 +2800,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.137 2003/06/18 11:21:06 mattias
fixed taborder=0, implemented TabOrder Editor fixed taborder=0, implemented TabOrder Editor