XProfan

Español

Sombrero como alguien una Concepto, cómo de uno Datenbank Memofelder en una Multiedit invitar, bearbeiten y speichern kann ?
El vorgefertigte @EditBox() gefällt me überhaupt no.

10.06.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

Mit MoveListToHandle() kopierst Usted el Inhalt el ListBoxListe (como es De hecho, el Texto de el Memofeld drin) en Su bevorzugtes MultiEdit y anschließend con MoveHandleToList() otra vez zurück, bevor Usted el Memo en el Datenbank speicherst.

Saludo
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 Cita Zeilenweise Cita

Thomas
Freier

So algo:
Kompilieren Marca Separación

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&)

./../funktionsreferenzen/XProfan/ENDPROC/'>ENDPROC