DCREAD und PARENT [ERLEDIGT]

Moderator: Moderatoren

Antworten
Benutzeravatar
Koverhage
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2470
Registriert: Fr, 23. Dez 2005 8:00
Wohnort: Aalen
Hat sich bedankt: 102 Mal
Danksagung erhalten: 3 Mal
Kontaktdaten:

DCREAD und PARENT [ERLEDIGT]

Beitrag von Koverhage »

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 ?

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
Gruß
Klaus
Antworten