XProfan

Deutsch

Hat da jemand eine Idee, wie man aus einer Datenbank Memofelder in ein Multiedit laden, bearbeiten und speichern kann ?
Die vorgefertigte @EditBox() gefällt mir überhaupt nicht.

10.06.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Mit MoveListToHandle() kopierst Du den Inhalt der ListBoxListe (da steht ja der Text aus dem Memofeld drin) in Dein bevorzugtes MultiEdit und anschließend mit MoveHandleToList() wieder zurück, bevor Du das Memo in der Datenbank speicherst.

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

10.06.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Thomas
Freier

So etwas:
Kompilieren Markieren Separieren

PROC Notiz_Aendern

    Clear Infobox_Text$
    DECLARE BE_DLG&, BE_BUTTON1&,BE_BUTTON2&
    Declare N_Notiz&,memo$,BE_tgb&
    Declare CR$
    CR$=@add$(@Chr$(13),@Chr$(10))                   Definition des Zeilenumbruchzeichens
    @dbUse(#8)
    @dbGo(text$)
    Let Infobox_Text$ =   Notiz :  + @Trim$(@dbGet$(WASSER)) +  vom
    Let Infobox_Text$ = Infobox_Text$ + @Right$(@dbGet$(DATUM),2) + . + @Mid$(@dbGet$(DATUM),5,2) + . + @Left$(@dbGet$(DATUM),4)
    LET BE_DLG&=CREATEDIALOG(BL_Dlg%,Infobox_Text$,276,70,334,420)
    string skstring#,0 =    Notiz
    BE_tgb& = SKCtrl_CreateColorGroupBox(BE_DLG&,skstring#,RGB(0,255,0),RGB(058,110,165),20,20,288,320,%hInstance)
    N_Notiz& = @Create(MultiEdit,BE_tgb&,memo$,8,30,270,280)
    @dbGetMemo(NOTIZ)
    @MoveListToEdit(N_Notiz&)
    string normalBmp#,0 = @add$(GetDir$(@),\bvr\speich1.bvr)
    string hoverBmp#,0 = @add$(GetDir$(@),\bvr\speich2.bvr)
    string clickedBmp#,0 = @add$(GetDir$(@),\bvr\speich2.bvr)
    BE_BUTTON2& = SKCtrl_CreateUserButton(BE_DLG&,0,normalBmp#,hoverBmp#,clickedBmp#,0116,0360,0082,0025,%hInstance)
    string normalBmp#,0 = @add$(GetDir$(@),\bvr\end1.bvr)
    string hoverBmp#,0 = @add$(GetDir$(@),\bvr\end2.bvr)
    string clickedBmp#,0 = @add$(GetDir$(@),\bvr\end2.bvr)
    BE_BUTTON1& = SKCtrl_CreateUserButton(BE_DLG&,0,normalBmp#,hoverBmp#,clickedBmp#,0230,0360,0070,0025,%hInstance)

    WHILE 1

        WaitKey
        Case %key=2:BREAK
        Case @GETFOCUS(BE_BUTTON1&) : BREAK

        IF @GETFOCUS(BE_BUTTON2&) BUTTON Daten speichern

            ClearList
            Declare head$,string$
            string$=@getText$(N_Notiz&)
            MEMO füllen

            while @len(string$)

                head$=@SubStr$(string$,1,CR$)
                addstring head$
                string$=@Del$(string$,1,@len(head$)) Textzeile entfernen
                string$=@del$(string$, 1, 2) Zeilenumbruch entfernen

            wend

            Jetzt hat man alle Textzeilen in der Listbox.
            @dbPutMemo(NOTIZ)
            @dbPutRec(0)
            BREAK

        ENDIF

    WEND

    @destroywindow(BE_DLG&)

ENDPROC