| |
| |
|
Inzip | pouvez son la fois dem Codes verraten ,wohin je cet Funktion abrufen peux : j'écris un Text rein et toujours wird qui 15 Buchstabe , sur chacun la ligne à gezeigt (z.B dans ROT) . allez cela ,si oui wäre lieb sur fertigen Code ou bien so !  |
|
| |
| |
| |
|
|
| allô Inzip...
Den 15.Buchstaben dans einem Éditer pour trouver, ist eigentlich ne...aucune Problem. si du ihn mais dans rouge représenter veux, brauchst du un Richedit Contrôle. un Richedit est un Texteingabefeld, dans dem du qui Ausgabe chaque individuel Buchstaben anders formatieren peux - et là attraper qui Probleme à:
si XProfan encore aucun Formatierung cet Controls soutenu, dois du cela sur qui API régulariser (Message). c'est pour toi comme Débutant sur jeden le cas trop schwierig. en supplément venez encore, cela Profan qui entsprechende Formatierung sur API scheinbar zeitweise pas korrekt durchführt - cela pourrait justement dans deinem le cas zutreffen, du müßtest cela fertige Programme alors avec Profan2Cpp compilieren.
Comme je le disais, une Voir le texte source peux je dir volontiers construire - du würdest ihn mais pas comprendre et il serait aussi alleine avec Profan pas richtig marcher. |
|
| |
| |
| |
|
|
Inzip | [quote-part:076ca5950b=Andreas Hötker]allô Inzip...
Den 15.Buchstaben dans einem Éditer pour trouver, ist eigentlich ne...aucune Problem. si du ihn mais dans rouge représenter veux, brauchst du un Richedit Contrôle. un Richedit est un Texteingabefeld, dans dem du qui Ausgabe chaque individuel Buchstaben anders formatieren peux - et là attraper qui Probleme à:
si XProfan encore aucun Formatierung cet Controls soutenu, dois du cela sur qui API régulariser (Message). c'est pour toi comme Débutant sur jeden le cas trop schwierig. en supplément venez encore, cela Profan qui entsprechende Formatierung sur API scheinbar zeitweise pas korrekt durchführt - cela pourrait justement dans deinem le cas zutreffen, du müßtest cela fertige Programme alors avec Profan2Cpp compilieren.
Comme je le disais, une Voir le texte source peux je dir volontiers construire - du würdest ihn mais pas comprendre et il serait aussi alleine avec Profan pas richtig marcher.[/quote-part:076ca5950b]
Wäre net ,si du mir la fois so un Fertigen Qullcode la fois gibts. je arbietet mich ensuite déjà rein  Wäre Supi |
|
| |
| |
| |
|
|
Rolf
Koch | Hatte grad Zeit, quelques Codestücke sommes de Uwe Pascal Niemeier.
ensuite studiere la fois joli
qui Proc GETLINE peux on bestimmt avec einer einzigen sendmessage abfragen, habs mais grad pas prêt.
KompilierenMarqueSéparation $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>
dispose rtf#
Hoffe es hilft et stimmt alles so.
Rolf |
|
| |
| |
| |
|
|
Inzip | allez pas  Es steht toujours là cela un faute dans qui la ligne 70 ist Help You |
|
| |
| |
| |
|
|
 | Help You selber et Poste den korrigierten Code - Thats Teamwork & Community!  |
|
| |
| |
| |
|
|
Inzip | mon geändert Code. homme wieso allez cela net , le moi là un text rein schreibe et cela il dans chacun la ligne dem 15 Buchstaben makiert
KompilierenMarqueSéparation $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#
|
|
| |
| |
| |
|
|
Rolf
Koch | |
| |
| |
| |
|
|
| <scherz>@INZIP: quoi Du vouloir allez seulement si on sich XProfan4 jusqu'à XProfan9 gekauft hat. ensuite la hâte Vous Bibliothèque sur qui Festplatte nommé xTendetXProfan.Inc. avec cette INC hättest Du es très simple - mais là musst Du wohl dolle dans Deinen Geldbeutel greifen.</scherz>
ou bien tu fais es Intellänta: kaufe une iF-tasse de [...]  et Du erhältst den Code de mir den Du volontiers hättest.
Na? 
Salve, iF.
PS@Alle sauf Inzip: je crois anders peux on solche gens pas fernhalten... |
|
| |
| |
| |
|
|
| Jo!
iF Tassen sommes Markenware!!! |
|
| |
| |
| |
|
|
Inzip | [quote-part:26e6b9d63b=iF]<scherz>@INZIP: quoi Du vouloir allez seulement si on sich XProfan4 jusqu'à XProfan9 gekauft hat. ensuite la hâte Vous Bibliothèque sur qui Festplatte nommé xTendetXProfan.Inc. avec cette INC hättest Du es très simple - mais là musst Du wohl dolle dans Deinen Geldbeutel greifen.</scherz>
ou bien tu fais es Intellänta: kaufe une iF-tasse de [...] et Du erhältst den Code de mir den Du volontiers hättest.
Na?
Salve, iF.
PS@Alle sauf Inzip: je crois anders peux on solche gens pas fernhalten...[/quote-part:26e6b9d63b]
Hä - je comprends seulement encore gare  |
|
| |
| |
| |
|
(190)
Deutsch
English
Français
Español
Italia