[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