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

revert wrong commits of revision 8804 #3c90c0bcc8

Browse Source 
git-svn-id: trunk@8805 -
This commit is contained in:
vincents 2006-02-23 09:40:21 +00:00
parent 3c90c0bcc8
commit 599bce7c87
2 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/win32/win32listsl.inc
View File

@ -345,10 +345,7 @@ begin
end; end;
function TWin32ComboBoxStringList.GetComboHeight: integer; function TWin32ComboBoxStringList.GetComboHeight: integer;
var
R: TRect;
begin begin
FEditHeight := SendMessage(FWin32List, CB_GETITEMHEIGHT, -1, 0);
if Count = 0 then if Count = 0 then
begin begin
Result := FEditHeight + FItemHeight + 2; Result := FEditHeight + FItemHeight + 2;

1
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -632,7 +632,6 @@ var
StringList: TWin32ComboBoxStringList; StringList: TWin32ComboBoxStringList;
begin begin
WinHandle := AWinControl.Handle; WinHandle := AWinControl.Handle;
SendMessage(WinHandle, CB_SETITEMHEIGHT, -1, Height-6);
StringList := TWin32ComboBoxStringList(GetWindowInfo(WinHandle)^.List); StringList := TWin32ComboBoxStringList(GetWindowInfo(WinHandle)^.List);
if StringList <> nil then if StringList <> nil then
Height := StringList.ComboHeight; Height := StringList.ComboHeight;