Cocoa buttons can not be pressed
Original Reporter info from Mantis: crlab @neurolabusc1
-
Reporter name: Chris Rorden
Original Reporter info from Mantis: crlab @neurolabusc1
- Reporter name: Chris Rorden
Description:
I can no longer press TButtons with the Cocoa widgetset and the latest SVN of Lazarus. I should point out I am using the stable FPC 3.0.0 compiler - not sure whether I should use trunk or FPC compiler. In any case, problem is resolved by downgrading to stable Lazarus 1.6, so this is either a regression or an incompatibility between the latest Lazarus and FPC 3.0.0.
1.) Put a button on a form.
2.) Set project to compile as Cocoa instead of Carbon
Project\ProjectOptions\Additions & Overrides\SetLCLWidgetType\cocoa
3.) Compile program and attempt to press a button
Steps to reproduce:
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('Hi');
end;
procedure TForm1.Edit1Exit(Sender: TObject);
var
s: string;
begin
s := '100';
if not inputquery('Caption', 'Try to press OK or Cancel', s) then exit;
end;
Mantis conversion info:
- Mantis ID: 30188
- OS: Darwin El Capitan
- OS Build: 10.11.5
- Build: 52389
- Platform: Macbook Retina
- Version: 1.7 (SVN)