[Lazarus] Can someone with commit privileges submit this fix?

zeljko zeljko at holobit.net
Thu Feb 24 08:02:56 CET 2011


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.

zeljko




More information about the Lazarus mailing list