в Code Tools я добиться формирования своего стиля не смог.
приведу несколько примеров своего стиля.
- Код: Выделить всё
TSample = class(TCustomControl)
private
FActive: Boolean;
procedure SetActive
(
const AValue: Boolean
);
published
property State: TState
read FState
write SetState;
property ActiveColor: TColor
read FActiveColor
write SetActiveColor
default clWhite;
end;
procedure TSample.SetActive
(
const AValue: Boolean
);
var
idx,
Count
: Integer;
Value
: String;
const
szTrue: String = 'True';
szFalse: String = 'False';
begin
if
AValue
then
Value := szTrue
else
Value := szFalse;
end
я уже привык к отображению кода в данном стиле, но этот стиль я формирую собственно ручно, буду очень благодарен, если поможете научить Lazarus автозаполнять в таком стиле.
.