// U_BeskrivelseNy.cpp
// 21. maj 2001
// Datamatiker, Programmering af store systemer
// Mikkel Munksgaard og Niels Grove-Rasmussen

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "U_BeskrivelseNy.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TDial_BeskrivelseNy *Dial_BeskrivelseNy;
//---------------------------------------------------------------------
__fastcall TDial_BeskrivelseNy::TDial_BeskrivelseNy(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------

void __fastcall TDial_BeskrivelseNy::FormActivate(TObject *Sender)
{
    Memo_BeskrivelseNy->Clear();
    Memo_BeskrivelseNy->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TDial_BeskrivelseNy::OKBtnClick(TObject *Sender)
{
    if(Memo_BeskrivelseNy->Text == "") {
        MessageDlg("Der er ikke skrevet en beskrivelse.", mtError,
                   TMsgDlgButtons() << mbRetry, 0);
        Memo_BeskrivelseNy->SetFocus();
    }
    else
        ModalResult = mrOk;
}
//---------------------------------------------------------------------------

void __fastcall TDial_BeskrivelseNy::Fejl(const String& metode,
                                          const String& meddelelse) {
    MessageDlg("Fejl i Dial_BeskrivelseNy." + metode + ":\n\n" + meddelelse
               + ".", mtError, TMsgDlgButtons() << mbAbort, 0);
    exit(EXIT_FAILURE);
}
//---------------------------------------------------------------------------