Index: AAPClient/UI/InfoLogScherm.pas =================================================================== diff -u -r255 -r256 --- AAPClient/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 255) +++ AAPClient/UI/InfoLogScherm.pas (.../InfoLogScherm.pas) (revision 256) @@ -218,17 +218,18 @@ begin inherited; Self.ModalResult := mrInfoLog; + UiContext.InfoLogSchermToonGescand := not(UiContext.InfoLogSchermToonGescand); if UiContext.InfoLogSchermToonGescand then begin btnRechtsOnder.Action := actSchermRechts; end else begin btnRechtsOnder.Action := actSchermLinks; end; + UiContext.ImagesScherm.ilAlgemeen128.GetIcon(btnRechtsOnder.ImageIndex, imgRechtsOnder.Picture.Icon); btnRechtsOnder.Visible := false; btnCentraalOnder.Visible := false; - Repaint; - UiContext.InfoLogSchermToonGescand := not(UiContext.InfoLogSchermToonGescand); Response := ToeleveringDataOphalen(); VulGridMetToeleveringData(Response.DnaCodes); + Repaint; end; end.