paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 18:59:20 +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; End;
WM_SIZE: WM_SIZE:
Begin Begin
if not (OwnerObject is TCustomComboBox) then
begin
With TLMSize(LMessage) Do With TLMSize(LMessage) Do
Begin Begin
Msg := LM_SIZE; Msg := LM_SIZE;
@ -516,6 +518,7 @@ Begin
if (Windows.GetWindowLong(Window, GWL_STYLE) and WS_HSCROLL) <> 0 then if (Windows.GetWindowLong(Window, GWL_STYLE) and WS_HSCROLL) <> 0 then
Height := Height - GetSystemMetrics(SM_CYHSCROLL); Height := Height - GetSystemMetrics(SM_CYHSCROLL);
End; End;
end;
End; End;
WM_SYSKEYDOWN: WM_SYSKEYDOWN:
Begin Begin
@ -638,6 +641,9 @@ end;
{ {
$Log$ $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 Revision 1.46 2003/08/09 16:30:33 mattias
fixed LM_ShowModal for win32 intf from Karl fixed LM_ShowModal for win32 intf from Karl