| |
| |
|
| - page 1 - |
|
 | allô iF
Votre Behauptung, beim Text avec le texte überschreiben würden hässliche Ränder entstehen peux je sur meinem System pas nachvollziehen.
Anbei un Code, dans dem verschiedenen Montrer einwandfrei gelöscht (überschrieben) volonté et cela aussi encore pour mehrmaligem Aufruf.
KompilierenMarqueSéparationDECLARE zeigen%,loeschen%,ende%,EE%
EE%=0
PROC ZEIGEN
USEFONT "ARIAL",16,6,0,0,0
TEXTCOLOR RGB(200,0,0),-1
DrawText 100,100,Date$(2)
USEFONT "COURIER NEW",24,0,1,0,0
TEXTCOLOR RGB(0,0,150),-1
DrawText 100,150,"Profan-Version "+$ProfVer
USEPEN 0,1,RGB(0,0,0)
USEBRUSH 1,RGB(0,200,0)
RECTANGLE 100,200-200,250
ENDPROC
PROC LOESCHEN
USEFONT "ARIAL",16,6,0,0,0
TEXTCOLOR RGB(255,255,240),RGB(255,255,240)
DrawText 100,100,Date$(2)
USEFONT "COURIER NEW",24,0,1,0,0
DrawText 100,150,"Profan-Version "+$ProfVer
USEPEN 0,1,RGB(255,255,240)
USEBRUSH 1,RGB(255,255,240)
RECTANGLE 100,200-200,250
ENDPROC
--------------------------------
CLS RGB(255,255,240)
zeigen%=CREATE("BUTTON",%HWnd,"Anzeigen...",1,1,150,25)
loeschen%=CREATE("BUTTON",%HWnd,"Löschen...",151,1,150,25)
ende%=CREATE("BUTTON",%HWnd,"Ende",530,1,100,25)
ZEIGEN
enableWindow zeigen%,0
WhileNot EE%
WAITINPUT
IF GetFocus(zeigen%)
enableWindow zeigen%,0
enableWindow loeschen%,1
ZEIGEN
ENDIF
IF GetFocus(loeschen%)
enableWindow zeigen%,1
enableWindow loeschen%,0
LOESCHEN
ENDIF
Case GetFocus(ende%):END
WEND
href='./../../funktionsreferenzen/XProfan/end/'>end
Wahrscheinlich ist qui l'affaire pour toi pas plus important tout autor habe je cela Thema aussi dans den Poubelle gestellt
 |
|
| |
| |
| |
|
|
| |
| |
| - page 1 - |
|
 | [quote-part:7f20d45283]seulement systembedingt[/quote-part:7f20d45283]
je voudrais nochmal puis hinweisen cela es pas tout autor allez herauszufinden chez wem qui effet auftritt - et chez wem pas.
je erwähnte lediglich cela es une schlechte concept sei Text derart abzulöschen à cause de o.g. effet.
cela qui une ou bien autre den effet pas nachvollziehen peux écoutes doch hierbei aucun rôle, qui calculateur sommes nunmal unterschiedlich - je voulais lediglich à meiner Erfahrung teilhaben laisser. 
quoi cela avec droite ou bien pas droite zutun hat - je n'en sais rien. 
qui Frage hässliche Ränder chez Drawtext muss malheureusement avec oui beantwortet volonté weil il peut pas en sortir cela chez o.g. Ablöschverfahren aucun Ränder enstehen. et weil alors möglicherweise sur anderen Computern Ränder enstehen ist es une schlechte concept. So simple - Klappe trop - Affe tot. |
|
| |
| |
| |
|
|
| [quote-part:247c882404]So simple - Klappe trop - Affe tot. [/quote-part:247c882404]
So simple geb je mich pas geschlagen ! - si Du avec -1 comme Farbangabe überschreibst, la hâte Du qui hässlichen Ränder - si Du meinen Text oui c'est ca ansiehst, wirst Du voyons, dass je à Stelle de -1 qui la couleur des Hintergrundes angebe et ensuite sommes qui Ränder pas vorhanden - Gelle 
KompilierenMarqueSéparationWindowstyle 80
Window 0,0 - 640,480
Cls 0
Showmax
Textcolor $00Ffffff,-1
Usefont "Arial",50,0,0,0,0
Drawtext 10,10,"ClearType"
waitinput
Textcolor 0,-1 Dein Text
Textcolor 0,0 Mein Text - der Hintergrund muss mit Farbangabe gelöscht werden,
-1 arbeitet hier anscheinend nicht sauber ?
Drawtext 10,10,"ClearType"
Waitkey
| 09.07.2006 ▲ | |
|
| |
|
|
Frank
Abbing | [quote-part:cf7e0939a8]si Du meinen Text oui c'est ca ansiehst, wirst Du voyons, dass je à Stelle de -1 qui la couleur des Hintergrundes angebe et ensuite sommes qui Ränder pas vorhanden[/quote-part:cf7e0939a8]
iF, là es um Horsts Methode allez, sa Textes trop effacer, devrait du aussi Horsts Quellcode zum Testen verwenden... mon Aussagen ici basieren jedenfalls sur seinem Code. |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
| ensuite ist qui Frage mais pas si sich qui Text parfait avec dem Text ablöschen peut, mais avec einem Rectangle.
Horst son Beispiel passt alors pas seulement devoir, demzufolge peux son Beispiel aus pas maßgeblich son.
@Frank: Es hießt pas Horst-Methode, mais Text avec le texte Effacer-Methode.
si son Text alors pas avec le texte löscht, mais avec caché Rectangles, ensuite peux qui eigendliche Frage doch pas Euer Ernst son ou bien? |
|
| |
| |
| |
|
| |
| |
| - page 2 - |
|
|
Frank
Abbing | Passt doch alles. tu as dir den Quellcode plan pas oui c'est ca angesehen et es c'est pourquoi de verkehrten Vorausetzungen ausgegangen. So comment je anfangs aussi.
Problem erkannt et gelöst - nächstes Problem... |
|
| |
| |
| |
|
|
Michael
Dell | sais pas si cela hierher est, cela hab je sur meiner Platte trouvé:
KompilierenMarqueSéparationDrawText Demo
Proc mText
Parameters mT_oX&,mT_oY&,mT_oTxt$,mT_Col&,mT_bCol&,mT_oP&
Declare mT_X1&,mT_Y1&
Case (mT_oX& < 1): mT_oX& = 1
Case (mT_oY& < 1): mT_oY& = 1
If Equ(mT_oP&,0)
TextColor mT_bCol&,mT_bCol&
WhileLoop -1,1,1
mT_X1& = (mT_oX& + &Loop)
WhileLoop -1,1,1
mT_Y1& = (mT_oY& + &Loop)
DrawText mT_X1&,mT_Y1&,mT_oTxt$
EndWhile
EndWhile
Else
TextColor mT_Col&,mT_bCol&
DrawText mT_oX&,mT_oY&,mT_oTxt$
EndIf
EndProc
Cls
mText(10,10,"TestTxt",RGB(0,0,0),RGB(255,0,0),1)
WaitInput
mText(10,10,"TestTxt",RGB(0,0,0),RGB(255,255,255),0)
WaitInput
Fin
|
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 09.07.2006 ▲ |
|
| |
|
|
| Ähäm Frank nous savons beide cela pas qui Vorraussetzungen verkehrt - mais Horst Quellcode verkehrt ist.
Horst son Source begründet pas cela Problem mais löst es sur einem le détour - alles quoi je voulais ist den Tip de mir donner cela on Text pas avec le texte ablöschen sollte.
si Horst den Text pas avec le texte ablöscht - ensuite braucht doch niemand en sortir cela on Text doch avec le texte ablöschen sollte.
@Michael: oui c'est ca quelque chose comme fais je aussi souvent - souvent aussi avec unterschiedlichen Farben pour une 3D-effet. seulement am Rande sei erwähnt cela cela Cleartype-Problem avec cela mais malheureusement pas umgehbar ist.
-
Um qui Verwirrung um cela Thema mais trop lösen c'est so:
qui avec Drawtext une Text zeichnet - et cette Text volontiers wieder effacer voudrais - peux ca 1faire indem il den selben Text nochmals, mais avec gesetzer Hintergrundfarbe zeichnet. qui Hintergrundfarbe des Textes doit ensuite mais gesetzt volonté là ensuite d'abord un Rectangle avec Hintergrundfarbe gezeichnet wird.
qui mais den Text oui c'est ca et seulement avec dem Text ablöschen voudrais - alors sans Hintergrundfarbe et sans Rectangle - peux böse Ränder erwarten.
Text avec le texte ablöschen ist alors une schlechte concept - Text avec einem Rectangle ablöschen verursacht la plus part du temps (pas toujours!) aucun Ränder. pourquoi pas toujours ? qui Softeneffekte mancher GrKarten (peut-être aussi ClearType de MS?) volonté nachträglich aufgelegt. Es peux vorkommen cela qui Alias pas avec dans qui Weitenberechnung des nötigen Rectangles avec eingeht. Möglicherweise entstehen alors kleine Ränder kurz ausserhalb des Hintergrundrectangles des Textes.
oui c'est ca cet Plage hab je derrière mir.  |
|
| |
| |
| |
|
|
| iF
et si Du mich maintenant am liebsten sur den Mond schiessen würdest: tu as meinen Text pas benutzt ! - je lösche nämlich Text avec le texte ! - seulement gebe je beim Effacer anstelle de -1 qui Hintergrundfarbe des Fensters à et ensuite entstehen cet Ränder pas - (c'est oui aussi ne...aucune Effacer, mais un erneutes Überschreiben avec qui Hintergrundfarbe) - si Du zum Beispiel chez meiner Löschprocedur Textcolor RGB80,0,0),RGB(0,0,0) angibst, ensuite hastr Du cela Rechteck de dem Frank geschrieben hat ...et maintenant Klappe trop - Affe tot de meiner page - teste meinen Voir le texte source et ensuite ist es bien ! |
|
| |
| |
| |
|
|
| je schieße ici niemanden sur den Mond.
si Du comme Texthintergrundfarbe pas -1 angegeben la hâte - ensuite löscht Du den Text pas avec le texte mais avec einem Rectangle. |
|
| |
| |
| |
|
|
| | Siehe Bild... |
|
| |
| |
| |
|
|
| | là fehlt §3, qui salvatorische Klausel! |
|
| |
| |
| |
|
(1.573)
Deutsch
English
Français
Español
Italia