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
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
