XProfan

Hallo Inzip...

Den 15.Buchstaben in einem Edit zu finden, ist eigentlich kein Problem. Wenn du ihn aber in Rot darstellen willst, brauchst du ein Richedit Control. Ein Richedit ist ein Texteingabefeld, in dem du die Ausgabe jedes einzelnen Buchstaben anders formatieren kannst - und da fangen die Probleme an:
Wenn XProfan noch keine Formatierung dieses Controls unterstützt, mußt du das über die API regeln (Message). Das ist für dich als Anfänger auf jeden Fall zu schwierig. Dazu kommt noch, das Profan die entsprechende Formatierung über API scheinbar zeitweise nicht korrekt durchführt - das dürfte gerade in deinem Fall zutreffen, du müßtest das fertige Programm also mit Profan2Cpp compilieren.

Wie gesagt, einen Quelltext kann ich dir gerne bauen - du würdest ihn aber nicht verstehen und er würde auch alleine mit Profan nicht richtig funktionieren.

Inzip

[quote:076ca5950b=Andreas Hötker]Hallo Inzip...

Den 15.Buchstaben in einem Edit zu finden, ist eigentlich kein Problem. Wenn du ihn aber in Rot darstellen willst, brauchst du ein Richedit Control. Ein Richedit ist ein Texteingabefeld, in dem du die Ausgabe jedes einzelnen Buchstaben anders formatieren kannst - und da fangen die Probleme an:
Wenn XProfan noch keine Formatierung dieses Controls unterstützt, mußt du das über die API regeln (Message). Das ist für dich als Anfänger auf jeden Fall zu schwierig. Dazu kommt noch, das Profan die entsprechende Formatierung über API scheinbar zeitweise nicht korrekt durchführt - das dürfte gerade in deinem Fall zutreffen, du müßtest das fertige Programm also mit Profan2Cpp compilieren.

Wie gesagt, einen Quelltext kann ich dir gerne bauen - du würdest ihn aber nicht verstehen und er würde auch alleine mit Profan nicht richtig funktionieren.[/quote:076ca5950b]
Wäre net ,wenn du mir mal so ein Fertigen Qullcode mal gibts. Ich arbietet mich dann schon rein

Wäre Supi

Zip :@)

Rolf
Koch

Hatte grad Zeit, einige Codestücke sind von Uwe Pascal Niemeier.
Dann studiere mal schön

Die Proc GETLINE kann man bestimmt mit einer einzigen sendmessage abfragen, habs aber grad nicht parat.
Kompilieren Markieren Separieren

 $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.2d
DATUM  04.09.2005    um  14:42 Uhr
VERWENDETE PROFANVERSION IST 8.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS XP
!!! Dieser Code wird von Roc immer neu erzeugt        !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE RICHEDIT1&
DECLARE ende&
**************************** Hier zum Setzen der Zeichenfarbe *******************************
Das meiste an Code innerhalb dieser Sektion ist von UWE "PASCAL" NIEMEIER !!!!!!!!
declare rtf#
Declare gesamt&,zeichen%,zeile%,b&
dim rtf#,60

PROC GETLINE

    PARAMETERS CONTROL&
    sendmessage(control&,176,addr(Gesamt&),0)
    let Zeichen%=sub(Gesamt&,sendmessage(control&,187,-1,0))
    let Zeile%=sendmessage(control&,201,-1,0)
    RETURN ZEICHEN%+1

ENDPROC

Abgewandelt von Original UWE "PASCAL" NIEMEIER:

proc rtf-SetColor-------------------------------------------------------------------SetColor

    parameters a&,control&,stelle%
    GETLINE CONTROL&

    If %(0) = Stelle% Zeichen xxx, dann ROT

        clear rtf#
        long rtf#,0=60
        long rtf#,4=$40000000
        long rtf#,20=a&
        sendmessage(control&,1092,1,rtf#)-EM_SETCHARFORMAT

    ELSE

        b&=rgb(0,0,0)
        clear rtf#
        long rtf#,0=60
        long rtf#,4=$40000000
        long rtf#,20=b&
        sendmessage(control&,1092,1,rtf#)-EM_SETCHARFORMAT

    ENDIF

    setfocus(RICHEDIT1&)
    endproc------------------------------------------------------------------------------------
    ***********************************************************************************************
    WINDOWSTYLE 63
    WINDOWTITLE "RTF - Einzelne Zeichen setzen"
    WINDOW 22,20-640,500
    SETTRUECOLOR 1
    DECLARE ENDE%
    CLS GETSYSCOLOR(15)
    USEFONT "MS Sans Serif",13,0,0,0,0
    SETDIALOGFONT 1
    Hier kann ggf. Ihr Menü hin
    RICHEDIT1& = CREATE("RICHEDIT",%HWND,"",0008,0009,0611,0387)
    ende& = CREATE("BUTTON",%HWND,"Ende",0266,0416,0070,0030)
    SETFOCUS(Richedit1&)

    WHILENOT ENDE%

        WAITINPUT

        If @EQU(%KEY,2)

            LET ENDE%= 1

        ELSEIF @EQU(%KEY,4)

        ELSEIF GETFOCUS(RICHEDIT1&) RICHEDIT

            rtf-SetColor rgb(255,0,0),RICHEDIT1&,15 Zeichen 15 in diesem Fall Rot färben.

        ELSEIF GETFOCUS(ende&) BUTTON

            Ende%=1

        ENDIF

    WEND

    dispose rtf#

Hoffe es hilft und stimmt alles so.
Rolf

Inzip

Geht nicht

Es steht immer da das ein Fehler in der Zeile 70 ist

Help You

Zip :@)

Help You selber und poste den korrigierten Code - Thats Teamwork & Community!

Inzip

Meine geändert Code. Mensch wieso geht das net , das ich dort ein text rein schreibe und das er in jeder Zeile dem 15 Buchstaben makiert
Kompilieren Markieren Separieren

 $P+
SetErrorLevel 0
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.2d
DATUM  04.09.2005    um  14:42 Uhr
VERWENDETE PROFANVERSION IST 8.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS XP
!!! Dieser Code wird von Roc immer neu erzeugt        !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
DECLARE RICHEDIT1&
DECLARE ende&
**************************** Hier zum Setzen der Zeichenfarbe *******************************
Das meiste an Code innerhalb dieser Sektion ist von UWE "PASCAL" NIEMEIER !!!!!!!!
declare rtf#
Declare gesamt&,zeichen%,zeile%,b&
dim rtf#,60

PROC GETLINE

    PARAMETERS CONTROL&
    sendmessage(control&,176,addr(Gesamt&),0)
    let Zeichen%=sub(Gesamt&,sendmessage(control&,187,-1,0))
    let Zeile%=sendmessage(control&,201,-1,0)
    RETURN ZEICHEN%+1

ENDPROC

Abgewandelt von Original UWE "PASCAL" NIEMEIER:

proc rtf-SetColor-------------------------------------------------------------------SetColor

    parameters a&,control&,stelle%
    GETLINE CONTROL&

    If %(0) = Stelle% Zeichen xxx, dann ROT

        clear rtf#
        long rtf#,0=60
        long rtf#,4=$40000000
        long rtf#,20=a&
        sendmessage(control&,1092,1,rtf#)-EM_SETCHARFORMAT

    ELSE

        b&=rgb(0,0,0)
        clear rtf#
        long rtf#,0=60
        long rtf#,4=$40000000
        long rtf#,20=b&
        sendmessage(control&,1092,1,rtf#)-EM_SETCHARFORMAT

    ENDIF

    setfocus(RICHEDIT1&)
    endproc------------------------------------------------------------------------------------
    ***********************************************************************************************
    WINDOWSTYLE 63
    WINDOWTITLE "RTF - Einzelne Zeichen setzen"
    WINDOW 22,20-640,500
    SETTRUECOLOR 1
    DECLARE ENDE%
    CLS GETSYSCOLOR(15)
    USEFONT "MS Sans Serif",13,0,0,0,0
    SETDIALOGFONT 1

    WHILENOT ENDE%

        WAITINPUT

        If @EQU(%KEY,2)

            LET ENDE%= 1

        ELSEIF @EQU(%KEY,4)

        ELSEIF GETFOCUS(RICHEDIT1&) RICHEDIT

            rtf-SetColor rgb(255,0,0),RICHEDIT1&,15 Zeichen 15 in diesem Fall Rot färben.

        ELSEIF GETFOCUS(ende&) BUTTON

            Ende%=1

        ENDIF

    WEND

    dispose rtf#

Zip :@)

05.09.2005 ▲

Rolf
Koch

Hmm klappts vielleicht hiermit (man kanns ja auf das Notwendigste reduzieren):
Kompilieren Markieren Separieren

CLS
WAITINPUT

???
Mano Mano Mann!

05.09.2005 ▲

<scherz>@INZIP: Was Du möchtest geht nur wenn man sich XProfan4 bis XProfan9 gekauft hat. Dann hast Du eine Bibliothek auf der Festplatte namens xTendetXProfan.Inc. Mit dieser INC hättest Du es sehr einfach - aber da musst Du wohl dolle in Deinen Geldbeutel greifen.</scherz>

Oder Du machst es Intellänta: kaufe eine iF-Tasse von [...]

und Du erhältst den Code von mir den Du gerne hättest.

Na?

Salve, iF.

PS@Alle außer Inzip: Ich glaube anders kann man solche Leute nicht fernhalten...

05.09.2005 ▲

Jo!
iF Tassen sind Markenware!!!

06.09.2005 ▲