| |
| |
|
Inzip | can your time the Codes betray ,where I these function abrufen can : I write one Text mere and always becomes the 15 character , on eachone row on viewed (z.B in ROT) . goes the ,if so would endearing over finished Code or so !  |
|
| |
| |
| |
|
|
| Hello Inzip...
whom 15.letters in a Edit to find, is really no trouble. If you it but in ruddy present want, do you need one Richedit Control. One Richedit is a Texteingabefeld, in the You The spending each individual letters differently format can - and there catch The Problems on:
If XProfan yet no Formatierung this Controls supported, must You the over The API regulate (Message). this is for you as Beginner In any drop To difficult. moreover comes yet, the Profan The suitable Formatierung through API apparently zeitweise not correctly durchführt - the might straight in your drop zutreffen, You müßtest the finished Program means with Profan2Cpp compilieren.
As I said, a View source can I you gladly building - You would it but not understand and it would too on my own with Profan not correctly. functions. |
|
| |
| |
| |
|
|
Inzip | [quote:076ca5950b=Andreas Hötker]Hello Inzip...
whom 15.letters in a Edit to find, is really no trouble. If you it but in ruddy present want, do you need one Richedit Control. One Richedit is a Texteingabefeld, in the You The spending each individual letters differently format can - and there catch The Problems on:
If XProfan yet no Formatierung this Controls supported, must You the over The API regulate (Message). this is for you as Beginner In any drop To difficult. moreover comes yet, the Profan The suitable Formatierung through API apparently zeitweise not correctly durchführt - the might straight in your drop zutreffen, You müßtest the finished Program means with Profan2Cpp compilieren.
As I said, a View source can I you gladly building - You would it but not understand and it would too on my own with Profan not correctly. functions.[/quote:076ca5950b]
would be net ,if You me time so one finished Qullcode time Gibts. I arbietet me then already mere  would be Supi |
|
| |
| |
| |
|
|
Rolf
Koch | having strain Time, some Codestücke are of Uwe Pascal Niemeier.
then study time beautiful
The Proc GETLINE can certainly with of/ one only sendmessage inquire, habs but strain not parat.
CompileMarkSeparation $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#
hope it helps and is correct everything so.
Rolf |
|
| |
| |
| |
|
|
Inzip | No way  it standing always there the one Error in the row 70 is Help You |
|
| |
| |
| |
|
|
 | Help You yourself and poste whom korrigierten code - Thats Teamwork & Community!  |
|
| |
| |
| |
|
|
Inzip | my changed code. human wieso does it net , that I there one Text mere write and the it in eachone row the 15 letters makiert
CompileMarkSeparation $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: what You want goes only if one itself XProfan4 To XProfan9 bought has. then have You a Library on the Festplatte namens xTendetXProfan.Inc. with this INC would have You it very simply - but since must You well dolle in your purse grab.</scherz>
or You make it Intellänta: buy a iF-cup of [...]  and You sustain whom Code me whom You gladly would have.
well? 
salvo, iF.
PS@any except Inzip: I faith differently can such people not keep off... |
|
| |
| |
| |
|
|
| Jo!
iF cups are Markenware!!! |
|
| |
| |
| |
|
|
Inzip | [quote:26e6b9d63b=iF]<scherz>@INZIP: what You want goes only if one itself XProfan4 To XProfan9 bought has. then have You a Library on the Festplatte namens xTendetXProfan.Inc. with this INC would have You it very simply - but since must You well dolle in your purse grab.</scherz>
or You make it Intellänta: buy a iF-cup of [...] and You sustain whom Code me whom You gladly would have.
well?
salvo, iF.
PS@any except Inzip: I faith differently can such people not keep off...[/quote:26e6b9d63b]
Hä - i see only yet railway-station  |
|
| |
| |
| |
|
(775)
Deutsch
English
Français
Español
Italia