XProfan

English

Hello iF

your statement, at Text with text überschreiben would hässliche Borders come into being can I on my system not understand.
enclosed one code, in the different Show correct deleted (überschrieben) and be the too yet to mehrmaligem appeal.
Compile Mark Separation

DECLARE 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='./../../Function-References/XProfan/end/'>end

probably is the thing for you not further important therefore have I the Topic too into Trashcan set

07/09/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 1 -

[quote:7f20d45283]only systembedingt[/quote:7f20d45283]

i want again hereon allude the it not therefore goes to find out with whom the effect appears - and with whom not.

I mentioned solely the it a code idea be Text so abzulöschen because of o.g. effect.

the the an or others whom effect not understand can game still hierbei no role, The computer are nunmal different - I wished solely on of my experience teilhaben let.

what with the right or not right zutun has - no idea.

The question hässliche Margins in DrawText must unfortunately with Yes answers go because one can't of it go out the with o.g. Ablöschverfahren no Borders enstehen. and because means möglicherweise on other Computern Borders enstehen is it a code idea. so simply - tab To - monkey dead.

07/09/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

[quote:247c882404]so simply - tab To - monkey dead. [/quote:247c882404]
so simply geb I not beaten ! - If you with -1 as Farbangabe überschreibst, have You The hässlichen Borders - If you my Text very ansiehst, become You see, I on place of -1 The colour the Hintergrundes angebe and then are The Borders No - Gelle

Compile Mark Separation

Windowstyle 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

07/09/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

[quote:cf7e0939a8]If you my Text very ansiehst, become You see, I on place of -1 The colour the Hintergrundes angebe and then are The Borders No[/quote:cf7e0939a8]

iF, there it circa Horsts method goes, its Texts To delete, should You too Horsts Source to that testing use... my testify here basieren anyway on seinem code.

07/09/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

07/09/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

then is the question but not whether the Text perfect with the Text ablöschen can, separate with a Rectangle.

Horst his example fit means not only task, accordingly can his example from not maßgeblich his.

@Frank: it hießt not Horst-method, separate Text with text Delete-method.

If your Text means not Text deletes, separate with versteckten Rectangles, then can The eigendliche question still not your serious his or?

07/09/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

Frank
Abbing

fit still everything. you have you whom Source even not very respected and are therefore of wrong Vorausetzungen gone out. so How I initially too.

trouble recognized and resolved - nächstes trouble...

07/09/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Dell

white not whether the hither heard, the Have I on of my disk found:
Compile Mark Separation

DrawText 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
End

Nachtrag: small improvement!

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

07/09/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Ähäm Frank we knoe both not The Vorraussetzungen wrong - separate Horst Source wrong is.

Horst his Source begründet not the trouble separate resolve it on one detour - everything I wished is whom hint of me give the one Text not Text ablöschen ought to.

If Horst whom Text not Text ablöscht - then need still nobody of it go out the one Text still with text ablöschen ought to.

@Michael: very something like make so did i often

- often too with unterschiedlichen colours for a 3D-effect. only on the Rande be erwähnt the the Cleartype-trouble so but unfortunately not umgehbar is.

-

around the Verwirrung around the Topic but To solve

its so:

who with DrawText a Text draw - and this Text gladly again delete would like - can this do because it whom same Text over again, but with gesetzer Backgroundcolor draw. The Backgroundcolor the Textes must then but staid go there then first one Rectangle with Backgroundcolor drawn becomes.

who but whom Text very and only with the Text ablöschen would like - means without Backgroundcolor and without Rectangle - can angry Borders expect.

Text with text ablöschen is means a code idea - Text with a Rectangle ablöschen causes usually (not always!) no Borders. Why not always ? The Softeneffekte some GrKarten (Perhaps too ClearType of MS?) go as an afterthought laid down. It can vorkommen the the Alias not into Weitenberechnung the compel Rectangles with eingeht. Möglicherweise come into being means small Borders short ausserhalb the Hintergrundrectangles the Textes.

very these nuisance Have I behind me.

07/09/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

iF
and if you me now on the dearest on the moon shooting would: you have my Text not using ! - I lösche namely Text with text ! - only give I at Delete in lieu of of -1 The Backgroundcolor the Fensters on and then come into being these Borders not - (its indeed no Delete, separate one erneutes Überschreiben with the Backgroundcolor) - If you to that example with of my Löschprocedur Textcolor RGB80,0,0),RGB(0,0,0) angibst, then hastr You, the rectangle from the Frank written has ...and now tab To - monkey dead of of my Page - teste my View source and then is it well !

07/09/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

I schieße here niemanden on the moon.

If you as Texthintergrundfarbe not -1 indicated have - then deletes You whom Text not Text separate with a Rectangle.

07/09/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

See Image...