DCREAD und PARENT [ERLEDIGT]
Verfasst: Sa, 22. Jan 2011 16:00
Hallo,
in dem Alaska Sample IMGVIEW habe ich 3 Fenster
1. Drive Selector, 2. File Selector, 3. Anzeigefenster
Entsprechend dem Dateityp wird eine Anzeigeroutine aufgerufen,
das klappt auch.
Nun kam der Wunsch, direkt eine E-Mail zu verschicken und aus dem File Selector
Dateien als Anhänge hinzufügen.
Meine Idee war, die Dateien die ausgewählt werden zu einem Array hinzuzufügen
und mit Dcbrowse anzuzeigen.
Wenn ich jetzt in DCREAD ohne Parent benutze, bekomme ich ein neues Fenster
aufgemacht und kann dann nicht auf den File Selector zugreifen.
Also als Parent das Anzeigefenster nehmen.
Leider wird der Text nicht angezeigt und die Eingabefelder erst wenn ich RET drücke,
eine Eingabe ist nicht möglich.
Was mache ich falsch, bzw. wo ist mein Denkfehler ?
in dem Alaska Sample IMGVIEW habe ich 3 Fenster
1. Drive Selector, 2. File Selector, 3. Anzeigefenster
Entsprechend dem Dateityp wird eine Anzeigeroutine aufgerufen,
das klappt auch.
Nun kam der Wunsch, direkt eine E-Mail zu verschicken und aus dem File Selector
Dateien als Anhänge hinzufügen.
Meine Idee war, die Dateien die ausgewählt werden zu einem Array hinzuzufügen
und mit Dcbrowse anzuzeigen.
Wenn ich jetzt in DCREAD ohne Parent benutze, bekomme ich ein neues Fenster
aufgemacht und kann dann nicht auf den File Selector zugreifen.
Also als Parent das Anzeigefenster nehmen.
Leider wird der Text nicht angezeigt und die Eingabefelder erst wenn ich RET drücke,
eine Eingabe ist nicht möglich.
Was mache ich falsch, bzw. wo ist mein Denkfehler ?
Code: Alles auswählen
Function xsendemail(oDialog, oDlgObject)
Local GetList := {}, ;
oBrowse, ;
nZeiger := 0, ;
lSend := .t., ;
cSubject :=space(40), ;
cText := '', ;
cEName := "Empfänger", ;
cEAdresse := "yxz@yudoo.xx", ;
aFiles := {} // The files must have the full drive and path
@ 1,1 DCSAY ' Addresse' GET cEAdresse GETSIZE 40 TABSTOP ;
SAYCOLOR GRA_CLR_BLACK
@ 3,1 DCSAY ' Betreff' GET cSubject GETSIZE 30 TABSTOP SAYCOLOR GRA_CLR_BLACK
@ 5,1 DCSAY 'E-MAil Text' SAYCOLOR GRA_CLR_BLACK
@ 6,1 DCMULTILINE cText SIZE 65,10 TABSTOP
@ 17,1 DCBROWSE oBrowse DATA aFiles SIZE 55,6
DCBROWSECOL ELEMENT 1 HEADER "Anhänge" WIDTH 36 PROTECT {|| .t. } PARENT oBrowse
@ 1,60 DCPUSHBUTTON CAPTION 'Senden' SIZE 9,1.2 ;
ACTION {|| mailversenden( "Versender", '' , cEName, cEAdresse, cSubject, cText, aFiles ), lSend := .f., DC_ReadGuiEvent( DCGUI_EXIT_OK, GetList ) } ;
WHEN {|| lSend .and. !Empty(cEAdresse) .AND. !Empty(cSubject) } TABSTOP
DCGETOPTIONS TABSTOP AUTORESIZE
DCREAD GUI BUTTONS DCGUI_BUTTON_EXIT TITLE 'Senden einer E-Mail an Kunde' ;
APPWINDOW oDialog ;
PARENT @oDlgObject
RETURN nil