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

fixed sizing from Vincent

Browse Source 
git-svn-id: trunk@4469 -
This commit is contained in:
mattias 2003-08-12 16:09:54 +00:00
parent 820129a7e4
commit 3acce5cea1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -645,7 +645,7 @@ activate_time : the time at which the activation event occurred.
end end
else if TControl(Sender).FCompStyle = csPage then else if TControl(Sender).FCompStyle = csPage then
begin begin
if (Sender As TWinControl).Parent.Handle<>0 then if (Sender As TWinControl).Parent.HandleAllocated then
begin begin
Windows.SendMessage((Sender As TWinControl).Parent.Handle, TCM_AdjustRect, 0, LPARAM(@R)); Windows.SendMessage((Sender As TWinControl).Parent.Handle, TCM_AdjustRect, 0, LPARAM(@R));
Left := R.Left; Left := R.Left;
@ -657,7 +657,8 @@ activate_time : the time at which the activation event occurred.
// if (Windows.GetWindowLong(TWinControl(Sender).Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then // if (Windows.GetWindowLong(TWinControl(Sender).Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then
// R.Right := R.Right + GetSystemMetrics(SM_CXVSCROLL); // R.Right := R.Right + GetSystemMetrics(SM_CXVSCROLL);
// if (Windows.GetWindowLong(TWinControl(Sender).Handle, GWL_STYLE) and WS_HSCROLL) <> 0 then // if (Windows.GetWindowLong(TWinControl(Sender).Handle, GWL_STYLE) and WS_HSCROLL) <> 0 then
// R.Bottom := R.Bottom + GetSystemMetrics(SM_CYHSCROLL); ResizeChild(Sender, R.Left, R.Top, R.Right , R.Bottom); // R.Bottom := R.Bottom + GetSystemMetrics(SM_CYHSCROLL);
ResizeChild(Sender, R.Left, R.Top, R.Right , R.Bottom);
end; end;
end; end;
End; End;
@ -2734,6 +2735,9 @@ End;
{ {
$Log$ $Log$
Revision 1.84 2003/08/12 16:09:54 mattias
fixed sizing from Vincent
Revision 1.83 2003/08/12 14:02:54 mattias Revision 1.83 2003/08/12 14:02:54 mattias
fixed keypress/keyup, createcaret on synedit focus fixed keypress/keyup, createcaret on synedit focus