Index: AAPClient/UI/DrieKnoppenScherm.pas =================================================================== diff -u -r176 -r177 --- AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 176) +++ AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 177) @@ -48,7 +48,7 @@ function ComputerName: String; function WUserName: String; function FullName: String; - function ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''; imgCentraalIndex: integer = 13; ImageIndex1: integer = -1; ImageIndex2: integer = -1): TModalResult; + function ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''; imgCentraalIndex: integer = 13; ImageIndex1: integer = -1; ImageIndex2: integer = -1; knopkleur: TColor = $001717CD): TModalResult; public property UiContext: TUiContext Read fUiContext Write fUiContext; end; @@ -129,7 +129,7 @@ end; end; -function TfmDrieKnoppenScherm.ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''; imgCentraalIndex: integer = 13; ImageIndex1: integer = -1; ImageIndex2: integer = -1): TModalResult; +function TfmDrieKnoppenScherm.ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''; imgCentraalIndex: integer = 13; ImageIndex1: integer = -1; ImageIndex2: integer = -1;knopkleur: TColor = $001717CD): TModalResult; var PopupScherm: TfmPopupScherm; begin @@ -146,6 +146,14 @@ PopupScherm.imgActie2.Left := 35; end; + //kleur knoppen + PopupScherm.lblActie1.Color := knopkleur; + PopupScherm.lblActie2.Color := knopkleur; + PopupScherm.pnlbtnActie1.Color := knopkleur; + PopupScherm.pnlbtnActie2.Color := knopkleur; + if knopkleur = clYellow then + PopupScherm.lblActie1.Font.Color := clBlack; + //grote image in het midden kiezen fImagesScherm.ilAlgemeen128.GetIcon(imgCentraalIndex, PopupScherm.imgCentraal.Picture.Icon);