format fix

This commit is contained in:
Basile Burg 2014-11-26 16:41:34 +01:00
parent 6f1613c7c2
commit ab5ded0c5f
1 changed files with 3 additions and 3 deletions

View File

@ -138,14 +138,14 @@ begin
end;
{$ENDREGION}
{$REGION ICESessionOptionsObserver ----------------------------------------------------}
{$REGION ICESessionOptionsObserver ---------------------------------------------}
procedure TCEWidget.sesoptBeforeSave;
begin
end;
procedure TCEWidget.sesoptDeclareProperties(aFiler: TFiler);
begin
// override rules: inhertied must be called. No dots in the property name, property name prefixed with the widget Name
// override rules: inherited must be called. No dots in the property name, property name prefixed with the widget Name
aFiler.DefineProperty(Name + '_updaterByLoopInterval', @optset_LoopInterval, @optget_LoopInterval, true);
aFiler.DefineProperty(Name + '_updaterByDelayDuration', @optset_UpdaterDelay, @optget_UpdaterDelay, true);
end;
@ -277,7 +277,7 @@ begin
end;
{$ENDREGION}
{$REGION TCEWidgetList---------------------------------------------------------------}
{$REGION TCEWidgetList----------------------------------------------------------}
function TCEWidgetList.getWidget(index: integer): TCEWidget;
begin
result := PTCEWidget(Items[index])^;