STATE.AtStartup
STATE.AtStartup = false;
STATE.InitialiseRules = 1;
At Startup
;state.atstartup@value;state.initialiserules@value;
STATE.InitialiseRules == 1
/* */
UI.Kleuren.ExpView.LadeKleur = "OG-M";
UI.Kleuren.ExpView.BodemKleur = "LG";
/* */
STATE.InitialiseRules = STATE.InitialiseRules+1;
Kleuren bij Opstart invullen
;ui.kleuren.expview.ladekleur@value;ui.kleuren.expview.bodemkleur@value;state.initialiserules@value;
STATE.InitialiseRules == 2
if (UI.Kleuren.ExpView.LadeKleur <> "") and (UI.Kleuren.ExpView.BodemKleur <> "") then
UI.Kleuren.Beh.Status = "Ingevuld";
end if;
STATE.InitialiseRules = STATE.InitialiseRules + 1;
Behavior bij Opstart instellen
;ui.kleuren.beh.status@value;state.initialiserules@value;
true
UI.Kleuren.ExpView@visible = UI.Kleuren.Beh.View == "Expanded";
Algemeen
;ui.kleuren.expview@visible;
true
/*$KleurPaneCollapsed@visible = (UI.Kenmerken.KleurenCollapsed.Behavior == "Ingevuld");
$KleurPane@visible = not($KleurPaneCollapsed@visible);*/
$KleurPane@showtitlebar = UI.Kleuren.Beh.View == "Expanded";
KleurenPanes collapse/expand
;
true
UI.Kleuren.ExpView.Collapse@visible =
UI.Kleuren.Beh.Status == "Aanpassen" and UI.Kleuren.Beh.Ingevuld;
Collapse pane
;ui.kleuren.expview.collapse@visible;
true
UI.Kleuren.CollapsedView@visible = UI.Kleuren.Beh.View == "Collapsed";
Algemeen
;ui.kleuren.collapsedview@visible;
true
UI.Kleuren.CollapsedView.LadeKleurLabel = UI.Kleuren.CollapsedView.LadeKleur@label + ":";
UI.Kleuren.CollapsedView.LadeKleur = UI.Kleuren.ExpView.LadeKleur;
UI.Kleuren.CollapsedView.BodemKleurLabel = UI.Kleuren.CollapsedView.BodemKleur@label + ":";
UI.Kleuren.CollapsedView.BodemKleur = UI.Kleuren.ExpView.BodemKleur;
KleurenCollapsed Overnemen
;ui.kleuren.collapsedview.ladekleurlabel@value;ui.kleuren.collapsedview.ladekleur@value;ui.kleuren.collapsedview.bodemkleurlabel@value;ui.kleuren.collapsedview.bodemkleur@value;
true
UI.Kleuren.Beh@visible = BEHAVIOR.ShowAll;
Algemeen
;ui.kleuren.beh@visible;
true
UI.Kleuren.Beh.Ingevuld =
UI.Kleuren.ExpView.LadeKleur <> "" and
UI.Kleuren.ExpView.BodemKleur <> "";
Kleuren ingevuld
;ui.kleuren.beh.ingevuld@value;
true
if UI.Kleuren.ExpView.Collapse then
UI.Kleuren.ExpView.Collapse = false;
UI.Kleuren.CollapsedView.Expand = false;
UI.Kleuren.Beh.Status = "Ingevuld";
end if;
if UI.Kleuren.CollapsedView.Expand then
UI.Kleuren.Beh.Status = "Aanpassen";
else
if not UI.Kleuren.Beh.Ingevuld then
UI.Kleuren.Beh.Status = "Initieel";
end if;
end if;
UI.Kleuren.Beh.View =
if UI.Kleuren.Beh.Status <> "Ingevuld"
then "Expanded"
else "Collapsed"
end if;
Status instellen
;ui.kleuren.expview.collapse@value;ui.kleuren.collapsedview.expand@value;ui.kleuren.beh.status@value;ui.kleuren.beh.view@value;