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

fixed notebook page resize from Micha

Browse Source 
git-svn-id: trunk@4422 -
This commit is contained in:
mattias 2003-07-25 09:28:03 +00:00
parent bdec126a2d
commit ea0f313525
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/win32/win32object.inc
View File

@ -620,7 +620,7 @@ activate_time : the time at which the activation event occurred.
End;
LM_SETSIZE:
Begin
If Sender Is TWinControl Then
If (Sender Is TWinControl) and TWinControl(Sender).HandleAllocated Then
begin
With PRect(Data)^ do
begin
@ -634,14 +634,12 @@ activate_time : the time at which the activation event occurred.
begin
if (Sender As TWinControl).Parent.Handle<>0 then
begin
Windows.GetClientRect((Sender As TWinControl).Parent.Handle,@R);
Windows.SendMessage((Sender As TWinControl).Parent.Handle, TCM_AdjustRect, 0, LPARAM(@R));
Left := R.Left;
Top := R.Top;
end
end;
R := Rect(Left, Top, R.Right - R.Left, R.Bottom - R.Top);
If TWinControl(Sender).HandleAllocated Then
ResizeChild(Sender, R.Left, R.Top, R.Right , R.Bottom);
end;
end;
@ -2241,7 +2239,8 @@ Begin
Windows.SendMessage(Handle, TCM_INSERTITEM, Index, integer(@TabControlItem));
// Set page caption in tabcontrol
SetLabel(NewPage, PChar(PageCaption));
// Adjust page size to fit in tabcontrol, no bounds needed.
// Adjust page size to fit in tabcontrol, need bounds of notebook in client of parent
Windows.GetClientRect(Handle, @R);
IntSendMessage3(LM_SETSIZE, NewPage, @R);
// Do the page switch. The are no tabcontrol notifications so we have to
// do the hiding and showing ourselves.
@ -2744,6 +2743,9 @@ End;
{
$Log$
Revision 1.75 2003/07/25 09:28:03 mattias
fixed notebook page resize from Micha
Revision 1.74 2003/07/04 17:46:27 mattias
fixed notebook positioning from Micha