Index: AAPClient/UI/PopupScherm.dfm =================================================================== diff -u --- AAPClient/UI/PopupScherm.dfm (revision 0) +++ AAPClient/UI/PopupScherm.dfm (revision 13) @@ -0,0 +1,37 @@ +object fmPopupScherm: TfmPopupScherm + Left = 0 + Top = 0 + BorderIcons = [] + BorderStyle = bsNone + ClientHeight = 180 + ClientWidth = 180 + Color = cl3DLight + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + Position = poOwnerFormCenter + PixelsPerInch = 96 + TextHeight = 19 + object lblWaarschuwing: TLabel + Left = 0 + Top = 24 + Width = 180 + Height = 49 + Alignment = taCenter + AutoSize = False + Caption = 'lblWaarschuwing' + WordWrap = True + end + object btnPopupActie: TButton + Left = 8 + Top = 115 + Width = 164 + Height = 57 + ModalResult = 1 + TabOrder = 0 + WordWrap = True + end +end Index: AAPClient/UI/PopupScherm.pas =================================================================== diff -u --- AAPClient/UI/PopupScherm.pas (revision 0) +++ AAPClient/UI/PopupScherm.pas (revision 13) @@ -0,0 +1,29 @@ +unit PopupScherm; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; + +type + TfmPopupScherm = class(TForm) + btnPopupActie: TButton; + lblWaarschuwing: TLabel; + private + { Private declarations } + public + { Public declarations } + end; + +var + fmPopupScherm: TfmPopupScherm; + +implementation + +uses + Images; + +{$R *.dfm} + +end.