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

fixed combobox height from Micha

Browse Source 
git-svn-id: trunk@4463 -
This commit is contained in:
mattias 2003-08-11 18:10:41 +00:00
parent 671a98ae74
commit 2cb5dbe9de
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32callback.inc
View File

@ -502,6 +502,8 @@ Begin
End;
WM_SIZE:
Begin
if not (OwnerObject is TCustomComboBox) then
begin
With TLMSize(LMessage) Do
Begin
Msg := LM_SIZE;
@ -516,6 +518,7 @@ Begin
if (Windows.GetWindowLong(Window, GWL_STYLE) and WS_HSCROLL) <> 0 then
Height := Height - GetSystemMetrics(SM_CYHSCROLL);
End;
end;
End;
WM_SYSKEYDOWN:
Begin
@ -638,6 +641,9 @@ end;
{
$Log$
Revision 1.47 2003/08/11 18:10:41 mattias
fixed combobox height from Micha
Revision 1.46 2003/08/09 16:30:33 mattias
fixed LM_ShowModal for win32 intf from Karl