XProfan

¡Hola Inzip...

Den 15.Buchstaben en un Editar para encontrar, es eigentlich kein Problema. Wenn du ihn aber en Rot darstellen willst, necesidad du una Richedit Control. Ein Richedit es una Texteingabefeld, en el du el Edición cada individual Buchstaben anders formatieren kannst - y como fangen el Problemas a:
Wenn XProfan todavía no Formatierung dieses Controls unterstützt, mußt Si es usted el en API regeln (Message). Es para dich como Principiante en cada Fall a schwierig. Dazu kommt todavía, el Profano el entsprechende Formatierung encima API scheinbar zeitweise no korrekt durchführt - el dürfte gerade en deinem Fall zutreffen, du müßtest el fertige Programa also con Profano2Cpp compilieren.

Como ya he dicho, una Ver código fuente kann Yo dir gerne bauen - du würdest ihn pero no verstehen y él sería auch alleine con Profano no correcto trabajo.

Inzip

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

Den 15.Buchstaben en un Editar para encontrar, es eigentlich kein Problema. Wenn du ihn aber en Rot darstellen willst, necesidad du una Richedit Control. Ein Richedit es una Texteingabefeld, en el du el Edición cada individual Buchstaben anders formatieren kannst - y como fangen el Problemas a:
Wenn XProfan todavía no Formatierung dieses Controls unterstützt, mußt Si es usted el en API regeln (Message). Es para dich como Principiante en cada Fall a schwierig. Dazu kommt todavía, el Profano el entsprechende Formatierung encima API scheinbar zeitweise no korrekt durchführt - el dürfte gerade en deinem Fall zutreffen, du müßtest el fertige Programa also con Profano2Cpp compilieren.

Como ya he dicho, una Ver código fuente kann Yo dir gerne bauen - du würdest ihn pero no verstehen y él sería auch alleine con Profano no correcto trabajo.[/quote:076ca5950b]
Wäre net ,si du me de tiempo así una Fertigen Qullcode veces gibts. Yo arbietet mich entonces ya rein

Wäre Supi

Zip :@)

Rolf
Koch

Hatte grad Tiempo, algunos Codestücke son de Uwe Pascal Niemeier.
Dann studiere veces schön

El Proc GETLINE puede ser determinado con uno einzigen sendmessage abfragen, habs aber grad no parat.
Kompilieren Marca Separación

 $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

    W

> disponer rtf#

Hoffe lo hilft y stimmt alles así.
Rolf

Inzip

Geht no

Lo es siempre como el una Fehler en el Línea 70 es

Help You

Zip :@)

Help You selber y poste el korrigierten Code - Thats Teamwork & Comunidad!

Inzip

Mi geändert Code. Mensch wieso va el net , el Yo hay una texto rein escribir y el él en cada Línea el 15 Buchstaben makiert
Kompilieren Marca Separación

 $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<

disponer rtf#

Zip :@)

05.09.2005 ▲

Rolf
Koch

Hmm klappts tal vez hiermit (uno kanns sí el Notwendigste reduzieren):
Kompilieren Marca Separación

CLS
WAITINPUTe>

???
Mano Mano Mann!

05.09.2005 ▲

<scherz>@INZIP: Was Usted möchtest va sólo si uno se XProfan4 a XProfan9 gekauft ha. Dann hast Es usted un Biblioteca en el Festplatte nombre xTendetXProfan.Inc. Mit dieser INC hättest Usted lo muy simplemente - aber como musst Usted wohl dolle en Su Geldbeutel greifen.</scherz>

Oder Usted machst lo Intellänta: kaufe una IF-Tasse de [...]

y Usted erhältst el código de me el Usted gerne hättest.

Na?

Salve, IF.

PS@Alle außer Inzip: Yo glaube anders puede ser solche Personas no fernhalten...

05.09.2005 ▲

Jo!
IF Tassen son Markenware!!!

06.09.2005 ▲