XProfan

English

has there someone a idea, How one a data base Memofelder into MultiEdit loading, Edit and Save can ?
The vorgefertigte @EditBox() gefällt me not at all.

06/10/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

with MoveListToHandle() copy You whom Content the ListBoxListe (there standing Yes the Text from the Memo drin) in your bevorzugtes MultiEdit and subsequently with MoveHandleToList() again back, before You, the Memo in the data base save.

Greeting
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

06/10/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Thomas
Freier

such a thing:
Compile Mark Separation

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

./../Function-References/XProfan/endproc/'>ENDPROC