[Lazarus] OI Checkboxes

Sandro Cumerlato sandro.cumerlato at gmail.com
Sun Nov 23 15:43:50 CET 2014


On 22 November 2014 at 19:45, Juha Manninen <juha.manninen62 at gmail.com>
wrote:

> On Fri, Nov 21, 2014 at 4:31 PM, FreeMan <freeman35 at delphiturkiye.com>
> wrote:
> > Thank you, uncommenting resolve my problem.
>
> Without those lines indeed Lazarus built with QT crashes when Color
> combobox list is opened.
> Why does it happen?
> I returned the code in r46966.
>
> Juha
>
>
I cannot test the QT widgetset, sorry, but I would suggest attached patch
instead.

Sandro
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20141123/157aa0aa/attachment-0003.html>
-------------- next part --------------
Index: components/ideintf/objectinspector.pp
===================================================================
--- components/ideintf/objectinspector.pp	(revisione 46968)
+++ components/ideintf/objectinspector.pp	(copia locale)
@@ -942,6 +942,7 @@
     AutoSize:=false;
     SetBounds(0,-30,Width,Height); // hidden
     DropDownCount:=20;
+    ItemHeight:=17;
     Parent:=Self;
     OnMouseDown := @ValueControlMouseDown;
     OnMouseMove := @ValueControlMouseMove;
@@ -2632,11 +2633,6 @@
       if not CompareTopLeft(FCurrentEdit.BoundsRect,EditCompRect) then
       begin
         FCurrentEdit.BoundsRect:=EditCompRect;
-        // If ItemHeight is not set, Lazarus built with QT crashes
-        //  when Color combobox list is opened. Why is that?
-        if FCurrentEdit is TComboBox then
-          TComboBox(FCurrentEdit).ItemHeight:=EditCompRect.Bottom-EditCompRect.Top-6;
-        //
         FCurrentEdit.Invalidate;
       end;
     end;


More information about the Lazarus mailing list