[lazarus] Patch: combobox (and other controls) top position

[Micha Nelissen]

Mattias Gaertner wrote:

> On Mon, 11 Aug 2003 20:50:21 +0200
> Micha Nelissen <M.Nelissen at student.tue.nl> wrote:
> 
> 
>>Micha Nelissen wrote:
>>
>>
>>>Hi,
>>>
>>>Attached is a patch to fix top position of controls (especially 
>>>TComboBox) in TGroupBoxes.
>>
>>And a patch for the patch: forgot that Sender could nil, so add a check 
>>for that one. See attached patch.
> 
> 
> Applied. Thanks.

I believe the patches were not applied fully, because cvs diff still 
generates the attached patch. How come?

Micha.


Index: win32callback.inc
===================================================================
RCS file: /FPC/CVS/projects/lazarus/lcl/interfaces/win32/win32callback.inc,v
retrieving revision 1.48
diff -u -w -r1.48 win32callback.inc
--- win32callback.inc	11 Aug 2003 20:18:46 -0000	1.48
+++ win32callback.inc	12 Aug 2003 09:16:43 -0000
@@ -409,6 +409,7 @@
           XPos := LoWord(LParam);
           YPos := HiWord(LParam);
         end;
+        Win32PosToLCLPos(OwnerObject, XPos, YPos);
       End;
     End;
     //TODO:LM_MOVEPAGE,LM_MOVETOROW,LM_MOVETOCOLUMN
Index: win32listsl.inc
===================================================================
RCS file: /FPC/CVS/projects/lazarus/lcl/interfaces/win32/win32listsl.inc,v
retrieving revision 1.10
diff -u -w -r1.10 win32listsl.inc
--- win32listsl.inc	28 Jul 2003 06:42:42 -0000	1.10
+++ win32listsl.inc	12 Aug 2003 09:16:43 -0000
@@ -205,9 +205,6 @@
  ------------------------------------------------------------------------------}
 Procedure TWin32ListStringList.Insert(Index: Integer; Const S: String);
 Begin
-  If (FSender.FCompStyle = csComboBox)
-  and (GetCount <> 0) Then
-    FSender.Height := (FSender.Height + (FSender.Height Div GetCount));
   If FSorted Then
     SendMessage(FWin32List,FFlagAddString, 0, LPARAM(PChar(S)))
   Else