[Lazarus] Can someone with commit privileges submit this fix?
Marc Weustink
marc.weustink at cuperus.nl
Thu Feb 24 14:38:21 CET 2011
zeljko wrote:
> On Thursday 24 of February 2011 06:25:08 John Stoneham wrote:
>
>> procedure TOICustomPropertyGrid.ValueComboBoxMouseUp(Sender: TObject;
>> Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
>> begin
>> if (Button=mbLeft) then begin
>> if (Shift=[ssCtrl,ssLeft]) then
>> DoCallEdit(oiqeShowValue)
>> {$IFNDEF LCLCarbon}
>> else if (FFirstClickTime<>0) and (Now-FFirstClickTime<(1/86400*0.4))
>> then
>> ValueEditDblClick(Sender);
>> {$ENDIF}
>> end;
>> end;
>
> No, there shouldn't be any LCLXXX ifdef inside LCL or IDE , there must be
> other way to fix this.
The question is, why is this code there in the first place. It looks
like a LCL workaround for a missing dblckick event.
IMO, the ifndeffed code should be removed and it should be handled in
the dblclick event handler. The broken platforms should be fixed.
Marc
More information about the Lazarus
mailing list