I implemented "class code creation" in r51851. I was already tired of creating/copying object variables by hand. The idea is the same as with code creation (ctrl+shift+c), but the variable is created in one of the class section:
unit Unit1;
{$mode objfpc}{$H+}
interface
type
TClass = class
private
procedure Test(y: integer);
end;
implementation{ TClass }
procedure TClass.Test(y: integer);
begin
x| := y;
end;
end.Hit Ctrl+Shift+X on the undeclared variable x and you get a dialog:
Select the section and voila, x is declared as private variable:
unit Unit1;
{$mode objfpc}{$H+}
interface
type
TClass = class
private
x: Integer;
procedure Test(y: integer);
end;
implementation{ TClass }
procedure TClass.Test(y: integer);
begin
x := y;
end;
end.It is the first version, it probably will need some tuning, so please give feedback.
Ondrej
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20160307/03414838/attachment.html> -------------- next part --------------
A non-text attachment was scrubbed...
Name: afchjfbi.png
Type: image/png
Size: 2596 bytes
Desc: not available
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20160307/03414838/attachment.png>
