Kleur veranderen van een formulier

Lijnco

Hallo,

Ik wil graag dat de forecolor van een geheel formulier wijzigt op voorwaarde dat er een bepaald veld is ingevuld.

De waarde in het veld is leeg, rood, of oranje.
De kleur moet veranderen in de tabcontrol forecolor (control1).

Dit heb ik tot nu toe, wat doe ik fout? of kan het überhaupt wel?

//kleurtje bij invullen optioneel veld 3
IF "Optional Field 3" = 'Rood' THEN
CurrForm.Control1.UPDATEFORECOLOR := 255; //255 = Red

Bij voorbaat dank.

Shedman

Het kan wel degelijk ... je moet echter in de OnAfterFormat-trigger van alle velden deze code zetten voor het betreffende veld.

Luc_VanDyck

De vraag was om het gehele formulier van kleur te veranderen, niet de velden ...

Lijnco

precies.

Shedman

Excuses, goed lezen is ook een vak ](*,)

Dat veranderd de zaak natuurlijk. Met het wijzigen van de forecolor wil je dus dat de tekstkleur van alle tekst op je form wijzigt. Ik heb even snel wat geprobeerd, maar het lijkt erop dat je de forecolor van knoppen, tabcontrols en labels niet at runtime kan aanpassen. Het kan wel als je meerdere dezelfde knoppen / tabcontrols gebruikt, deze over elkaar een zet en ze dan waar nodig aan en uit zet. Maar dat is wel wat meer werk ...

Lijnco

Dank je wel,

Is het misschien een idee om dan een rood vlak te maken en die dan weer te geven op de achtergrond indien nodig?
en zo ja, hoe kan ik dat doen?

Shedman

Waarschijnlijk de handigste manier; met een rode en een oranje shape. Pak een rectangle, set backtransparent op No en zet de backcolor die je wilt hebben.

Dan kun je in je code afvangen of deze zichtbaar moet zijn of niet (via CurrForm.Control1.VISIBLE).

Lijnco

Waar moet ik die code neerzetten?

//kleurtje bij invullen optioneel veld 3
IF "Optional Field 3" = 'Rood' THEN
CurrForm.Control1000000001.VISIBLE

Control1000000001 is geen variabele of veld, dat werkt niet voor een shape.
In de shape kan ik alleen wat kwijt bij <Control1000000001> on push.

Shedman

Je moet een functie maken, waarin je de code zet. OnAfterGetCurrRecord roep je de functie aan. En OnAfterValidate van "Optional Field 3".

Lijnco

Ik heb het heel anders opgelost
Ik heb twee afbeeldingen aangemaakt en in de database ingelezen.
Deze geef ik weer op voorwaarde dat er iets ingevuld:
Dmv van twee globale variabelen.

//Iets laten zien
GetBitmapRood.GET('BEVROOD');
GetBitmapOranje.GET('BEVORANJE');
IF "Optional Field 3" = 'Rood' THEN
GetBitmapRood.CALCFIELDS(Picture);
IF "Optional Field 3" = 'Oranje' THEN
GetBitmapOranje.CALCFIELDS(Picture);

Dit laat hij zien op moment dat het formulier opnieuw wordt geladen.
Kan ik dit ook zo maken dat hij direct wordt weergegeven?
Het gaat om het wijzigen van optional field 3

Sog

Dit lijkt me onnodig het netwerk te belasten:
bij onaftergetcurrrec kan je best plaatsen shape (hernoem je shape van control1000000x naar backgroundred oid)
Hier roep je je functie aan die

case optionalfield3 of
'rood': begin
  backgroundred.visible(true); 
  backgroundorange.visible(false);
end;
'oranje': begin
  backgroundred.visible(false);
  backgroundorange.visible(true);
end;
end;

Best in je formulier alles selecteren, knippen, de shapes invoegen en terug plakken.
anders zal je als je je formulier ontwerpt altijd de shapes aanklikken.