Index: AAPClient/UI/DrieKnoppenScherm.pas =================================================================== diff -u -r120 -r139 --- AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 120) +++ AAPClient/UI/DrieKnoppenScherm.pas (.../DrieKnoppenScherm.pas) (revision 139) @@ -5,7 +5,8 @@ uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ActnList, Images, - Vcl.ImgList, UiContext, Vcl.ExtCtrls; + Vcl.ImgList, UiContext, Vcl.ExtCtrls, Soap.InvokeRegistry, Soap.Rio, + Soap.SOAPHTTPClient, Data.DB, Datasnap.DBClient, Soap.SOAPConn; type TfmDrieKnoppenScherm = class(TForm) @@ -45,7 +46,7 @@ fUiContext: TUiContext; protected function ComputerName: String; - function ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''): TModalResult; + function ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''; isVraag: boolean = false): TModalResult; public property UiContext: TUiContext Read fUiContext Write fUiContext; end; @@ -121,7 +122,7 @@ end; end; -function TfmDrieKnoppenScherm.ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''): TModalResult; +function TfmDrieKnoppenScherm.ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''; isVraag: boolean = false): TModalResult; var PopupScherm: TfmPopupScherm; begin @@ -133,6 +134,10 @@ PopupScherm.pnlbtnActie2.Visible := True; PopupScherm.pnlbtnActie2.Caption := Actie2; end; + if isVraag then + PopupScherm.imgVraagteken.Visible := true + else + PopupScherm.imgUitroepteken.Visible := true; result := PopupScherm.ShowModal; end;