//SCRIPT :MCEXT.DIALOG_MIT_PROFIL.MCFSCR
//ANSI-HELPER="ÄÖÜäöüß"
//DATUM:01.01.2026
//SELECTED_BACKCOLOR=MCEXT.SYSCOLOR{,}
//SELECTED_BACKCOLOR=MCEXT.SYSCOLOR{past,}
//SELECTED_BACKCOLOR=MCEXT.SYSCOLOR{mc,1}
QUELLE={APPPATH}\CONFIG\
FILE_TYP="ini"
USE_PROFIL=""
JANEIN=DLGQUESTION{Möchten Sie für dieses Beispiel SCR-Profile verwenden?}
IFBLOCK{JANEIN=1}
SCR_PATH={APPPATH}\CONFIG\ScriptProfiles
CHK=MCEXT.CREATE_DIRECTORY{{SCR_PATH}}
SCR_PROFIL={SCR_PATH}\DIALOG.INI
CHK=IFEXISTSFILE{{SCR_PROFIL}}
IFBLOCK{CHK=False}
JANEIN=DLGQUESTION{Die Beispiel-Profile existierten noch nicht!{RET}Möchten Sie die Beispiel-Profile erstellen?}
IFBLOCK{JANEIN=1}
//Beispiel für Combo
CFG=""
RET=""
CFG={CFG}TITEL=Zeigt die Möglichkeiten von DIALOG.COMBO{RET}
CFG={CFG}BESCHREIBUNG=Bitte wählen Sie:{RET}
CFG={CFG}ARRAY=1;2;3{RET}
CFG={CFG}TYP=COMBO{RET}
CFG={CFG}SORTED=true{RET}
CFG={CFG}CONTROLHEIGHT=150{RET}
CFG={CFG}FONTSIZE=9{RET}
CFG={CFG}WIDTH=400{RET}
CFG={CFG}HEIGHT=200{RET}
CFG={CFG}FORMATTEXT={RET}
CFG={CFG}FORMATTEXTTYP={RET}
CFG={CFG}FORMATALLOW={RET}
CFG={CFG}FORMATMAXLEN={RET}
CFG={CFG}LISTCOUNTSELECTEDMIN={RET}
CFG={CFG}LISTCOUNTSELECTEDMAX={RET}
CFG={CFG}MULTILINE={RET}
CFG={CFG}BACKCOLOR=#54699c{RET}
CFG={CFG}FORECOLOR=#ffffff{RET}
RET=MCEXT.WRITE_SECTION{{SCR_PROFIL},COMBO,{CFG}}
//Beispiel für List
CFG=""
RET=""
CFG={CFG}TITEL=Zeigt die Möglichkeiten von DIALOG.LIST{RET}
CFG={CFG}BESCHREIBUNG=Sie müssen mindestens 1 Eintrag auswählen!. Sie dürfen höchstens 3 Einträge auswählen!{RET}
CFG={CFG}ARRAY=1;2;3{RET}
CFG={CFG}TYP=LIST{RET}
CFG={CFG}SORTED=true{RET}
CFG={CFG}CONTROLHEIGHT=150{RET}
CFG={CFG}FONTSIZE=9{RET}
CFG={CFG}WIDTH=400{RET}
CFG={CFG}HEIGHT=200{RET}
CFG={CFG}FORMATTEXT={RET}
CFG={CFG}FORMATTEXTTYP={RET}
CFG={CFG}FORMATALLOW={RET}
CFG={CFG}FORMATMAXLEN={RET}
CFG={CFG}LISTCOUNTSELECTEDMIN=1{RET}
CFG={CFG}LISTCOUNTSELECTEDMAX=3{RET}
CFG={CFG}MULTILINE={RET}
CFG={CFG}BACKCOLOR=#1d222c{RET}
CFG={CFG}FORECOLOR=#f4b208{RET}
RET=MCEXT.WRITE_SECTION{{SCR_PROFIL},LIST,{CFG}}
//Beispiel für Text
CFG=""
RET=""
CFG={CFG}TITEL=Zeigt die Möglichkeiten von DIALOG.TEXT{RET}
CFG={CFG}BESCHREIBUNG=Geben Sie den Text ein{RET}
CFG={CFG}ARRAY=1;2;3{RET}
CFG={CFG}TYP=TEXT{RET}
CFG={CFG}SORTED=true{RET}
CFG={CFG}CONTROLHEIGHT=430{RET}
CFG={CFG}FONTSIZE=9{RET}
CFG={CFG}WIDTH=400{RET}
CFG={CFG}HEIGHT=200{RET}
CFG={CFG}FORMATTEXT={RET}
CFG={CFG}FORMATTEXTTYP={RET}
CFG={CFG}FORMATALLOW={RET}
CFG={CFG}FORMATMAXLEN={RET}
CFG={CFG}LISTCOUNTSELECTEDMIN=1{RET}
CFG={CFG}LISTCOUNTSELECTEDMAX=3{RET}
CFG={CFG}MULTILINE={RET}
CFG={CFG}BACKCOLOR=#1d222c{RET}
CFG={CFG}FORECOLOR=#f4b208{RET}
RET=MCEXT.WRITE_SECTION{{SCR_PROFIL},TEXT,{CFG}}
ENDIF
ENDIF
USE_PROFIL="true"
ENDIF
START:
IFBLOCK{USE_PROFIL=true}
RET=MCEXT.READ_SECTION{{SCR_PROFIL},combo}
ELSE
TITEL="Zeigt die Möglichkeiten von MCEXT.DIALOG"
BESCHREIBUNG="Wählen Sie die gewünschte Dialog-Form"
ABFRAGE-ARRAY=UCASE{ABFRAGE-ARRAY}
SORTED="true"
FONTSIZE="9"
FORMATTEXTTYP=""
WIDTH="370"
HEIGHT="200"
BACKCOLOR=""
FORECOLOR=""
TYP="combo"
ENDIF
ABFRAGE-ARRAY="TeXT;CombO;LIsT"
ABFRAGE-ARRAY=UCASE{ABFRAGE-ARRAY}
TYP=MCEXT.DIALOG{{Titel},{BESCHREIBUNG},{ABFRAGE-ARRAY},{TYP},{SORTED},{LISTHEIGHT},{FONTSIZE},{WIDTH},{HEIGHT},{FORMATTEXT},{FORMATTEXTTYP},{FORMATALLOW},{FORMATMAXLEN},{LISTCOUNTSELECTEDMIN},{LISTCOUNTSELECTEDMAX},false,{BACKCOLOR},{FORECOLOR},{RTFTEXT}}
IFBLOCK{TYP=}
EXIT=EXITSCRIPT{}
ENDIF
START_TYP:
//Beispiel-Arrays
ORI_ARRAY=""
ORI_ARRAY=MCEXT.GET_FILES_IN_PATH{{QUELLE},{FILE_TYP},true}
//ARRAY="Anton;Berta,Bernd;Cäsar,Siegfried,Anton;Vorname,Nachname;Berta,Bernd;Cäsar,Siegfried,Anton;Berta,Bernd;Cäsar,Siegfried;Anton;Berta,Bernd;Cäsar,Siegfried,Anton;Vorname,Nachname;Berta,Bernd;Cäsar,Siegfried,Anton;Berta,Bernd;Cäsar,Siegfried"
TITEL=Das ist das Beispiel für {TYP}
BESCHREIBUNG=Zeigt die Möglichkeiten von DIALOG.{TYP}
//TEXT=""
WIDTH="500"
FONTSIZE="9"
IFBLOCK{TYP=TEXT}
TMP_ARRAY="STRING;ZAHL;DATUM;DATETIMEPICKER"
IFBLOCK{USE_PROFIL=true}
RET=MCEXT.READ_SECTION{{SCR_PROFIL},text}
ELSE
TITEL=Das sind die möglichen Typen für {TYP}
BESCHREIBUNG="Wahlen Sie einen FORMATTEXTTYP"
BACKCOLOR="#54699c"
FORECOLOR="#ffffff"
MULTILINE="true"
FORMATTEXT=""
FORMATALLOW=""
FORMATMAXLEN=""
TITEL=Das ist FORMATTEXTTYP {FORMATTEXTTYP}
ENDIF
FORMATTEXTTYP=MCEXT.DIALOG{{Titel},{BESCHREIBUNG},{TMP_ARRAY},combo,{SORTED},{LISTHEIGHT},{FONTSIZE},370,200,{FORMATTEXT},{FORMATTEXTTYP},{FORMATALLOW},{FORMATMAXLEN},{LISTCOUNTSELECTEDMIN},{LISTCOUNTSELECTEDMAX},false,{BACKCOLOR},{FORECOLOR},{RTFTEXT}}
IFBLOCK{FORMATTEXTTYP=}
GO{START}
ENDIF
IFBLOCK{FORMATTEXTTYP=STRING}
HEIGHT="230"
IFBLOCK{MULTILINE=true}
HEIGHT=SUM{{CONTROLHEIGHT}+{HEIGHT}+80}
ENDIF
CONTROLHEIGHT="150"
BESCHREIBUNG="Sie können alles eingeben!"
BACKCOLOR="#1d1d1d"
FORECOLOR="orange"
ELSEIF{FORMATTEXTTYP=DATETIMEPICKER}
FORMATTEXTTYP=MCEXT.DATETIMEPICKER{Beispieldatum,{DATE},{AUFDATUM},{ENTDATUM},true,true,10,#1D222C,#128FDC}
IFBLOCK{FORMATTEXTTYP!}
DLG=DLGMESSAGE{{FORMATTEXTTYP}}
ENDIF
GO{START_TYP}
ELSE
HEIGHT="200"
WIDTH="300"
CONTROLHEIGHT="20"
IFBLOCK{FORMATTEXTTYP=DATUM}
BACKCOLOR="black"
FORECOLOR="#3b7cef"
BESCHREIBUNG="Geben Sie ein gültiges Datum ein!"
ELSE
BACKCOLOR="#3b7cef"
FORECOLOR="white"
BESCHREIBUNG="Geben Sie eine gültige Zahl ein!"
ENDIF
ENDIF
ELSEIF{TYP=COMBO}
IFBLOCK{USE_PROFIL=true}
RET=MCEXT.READ_SECTION{{SCR_PROFIL},combo}
ELSE
SORTED="true"
WIDTH="400"
HEIGHT="200"
ENDIF
ELSE
IFBLOCK{USE_PROFIL=true}
RET=MCEXT.READ_SECTION{{SCR_PROFIL},list}
ELSE
CONTROLHEIGHT="150"
SORTED="true"
LISTCOUNTSELECTEDMIN="1"
LISTCOUNTSELECTEDMAX="2"
HEIGHT="320"
BACKCOLOR="#1d222c"
FORECOLOR="#f4b208"
IFBLOCK{LISTCOUNTSELECTEDMIN!}
BESCHREIBUNG={BESCHREIBUNG} Sie müssen mindestens {LISTCOUNTSELECTEDMIN} Einträge auswählen!
ENDIF
IFBLOCK{LISTCOUNTSELECTEDMAX!}
BESCHREIBUNG={BESCHREIBUNG} Sie dürfen höchstens {LISTCOUNTSELECTEDMAX} Einträge auswählen!
ENDIF
ENDIF
ENDIF
ABFRAGE-ARRAY=UCASE{{ABFRAGE-ARRAY}}
AUSWAHL=MCEXT.DIALOG{{Titel},{BESCHREIBUNG},{ORI_ARRAY},{TYP},{SORTED},{CONTROLHEIGHT},{FONTSIZE},{WIDTH},{HEIGHT},{FORMATTEXT},{FORMATTEXTTYP},{FORMATALLOW},{FORMATMAXLEN},{LISTCOUNTSELECTEDMIN},{LISTCOUNTSELECTEDMAX},{MULTILINE},{BACKCOLOR},{FORECOLOR},{RTFTEXT}}
IFBLOCK{FORMATTEXTTYP!}
IFBLOCK{AUSWAHL!}
DLG=DLGMESSAGE{{AUSWAHL}}
ENDIF
GO{START_TYP}
ENDIF
IFBLOCK{AUSWAHL!}
DLG=DLGMESSAGE{{AUSWAHL}}
ENDIF
GO{START}
