Index: AAPClient/UI/DrieKnoppenScherm.pas =================================================================== diff -u -r150 -r176 --- AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 150) +++ AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 176) @@ -48,7 +48,7 @@ function ComputerName: String; function WUserName: String; function FullName: String; - function ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''; isVraag: boolean = false; ImageIndex1: integer = -1; ImageIndex2: integer = -1): TModalResult; + function ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''; imgCentraalIndex: integer = 13; ImageIndex1: integer = -1; ImageIndex2: integer = -1): TModalResult; public property UiContext: TUiContext Read fUiContext Write fUiContext; end; @@ -129,7 +129,7 @@ end; end; -function TfmDrieKnoppenScherm.ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''; isVraag: boolean = false; ImageIndex1: integer = -1; ImageIndex2: integer = -1): TModalResult; +function TfmDrieKnoppenScherm.ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''; imgCentraalIndex: integer = 13; ImageIndex1: integer = -1; ImageIndex2: integer = -1): TModalResult; var PopupScherm: TfmPopupScherm; begin @@ -147,10 +147,7 @@ end; //grote image in het midden kiezen - if isVraag then - PopupScherm.imgVraagteken.Visible := true - else - PopupScherm.imgUitroepteken.Visible := true; + fImagesScherm.ilAlgemeen128.GetIcon(imgCentraalIndex, PopupScherm.imgCentraal.Picture.Icon); //indien nodig de knoppen vergroten en een image laden if ImageIndex1 >= 0 then begin