XProfan

Jörg
Sellmeyer

¡Hola Andreas,
Eigentlich müßte el trabajo:
Kompilieren Marca Separación

 $H Windows.ph

Proc SysTrans

    nach Michael Dell
    Parameters BmpNameIn$,BmpNameOut$
    MCls 128,16
    StartPaint -1
    Cls ~GetSysColor(15)
    LoadBmp BmpNameIn$,0,0;-1
    SaveBmp BmpNameOut$,0,0-128,16
    EndPaint

[...] 
Usted mußt sólo el entsprechende Syscolor-Message benutzen.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

11.08.2005 ▲

¡Hola Jörg...

So löse Yo el bislang. Desde que el Programa con Profano2Cpp compilieren voluntad, va el por desgracia, no...

12.08.2005 ▲

Jörg
Sellmeyer

Ah... veces otra vez no correcto gelesen (no Profano-Speicherbitmap)

Tal vez hilft Usted el:
Kompilieren Marca Separación

DEF CreateCompatibleDC(1) !"GDI32","CreateCompatibleDC"
DEF TextOut(5) !"GDI32","TextOutA"
DEF SelectObject(2) !"GDI32","SelectObject"
DEF DeleteDC(1) !"GDI32","DeleteDC"
DEF SetTextColor(2) !"GDI32","SetTextColor"
DEF SetBkColor(2) !"GDI32","SetBkColor"
DEF SetBkMode(2) !"GDI32","SetBkMode"
declare text#

proc TextOutToBitmap

    parameters hBitmap&,text$,x&,y&,clrBk&,clrText&
    dim text#,@len(text$)
    string text#,0 = text$
    declare hMemDC&,hBitmapOld&
    let hMemDC& = CreateCompatibleDC(0)
    let hBitmapOld& = SelectObject(hMemDC&,hBitmap&)

    if @equ(clrBk&,-1)

        SetBkMode(hMemDC&,1)

    else

        SetBkMode(hMemDC&,2)
        SetBkColor(hMemDC&,clrBk&)

    endif

    SetTextColor(hMemDC&,clrText&)
    TextOut(hMemDC&,x&,y&,text#,@len(text$))
    SelectObject(hMemDC&,hBitmapOld&)
    DeleteDC(hMemDC&)
    dispose text#

endproc

Beschreibung der Parameter:
hBitmap& - Das Handle der Bitmap für die Textausgabe
text$ - Der Text
x& - Die Koordinaten...
y&
clrBk& - Die Hintergrundfarbe (-1 für Transparenz)
clrText& - Die Textfarbe

Ist glaube Yo de Andreas Miethe.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

12.08.2005 ▲

Sebastian
König

¡Hola Andreas,

[quote:b1366991c7]So löse Yo el bislang. Desde que el Programa con Profano2Cpp compilieren voluntad, va el por desgracia, no...[/quote:b1366991c7]
sorry, tal vez stehe Yo gerade algo en el Schlauch, aber wieso kannst Usted el Solución wegen Profano2Cpp no uso?

MfG

Sebastian

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

12.08.2005 ▲

¡Hola Sebastian...

Yo schaus me todavía una vez a, bislang klappte aber alles, el con Speicherbitmaps a tun hatte, no yo en el - tal vez mein Fehler?

@Jörg: Tiempo schaun, besten Dank!

Jörg
Sellmeyer

Yo benutze de paso el para transparente Resourcen - klappt con P2CCP.
Aunque voluntad el Toolbar y Buttons no korrekt dargestellt. DieTransparenzklappt aber:
Kompilieren Marca Separación

Proc TransparentResource

    Parameters Res$,b%,h%
    Declare Temp_Bmp$
    Randomize
    Temp_Bmp$=$TempDir + "BB" + Hex$(Rnd(50000)) + "BB" + Hex$(Rnd(50000)) + ".bmp"
    MCLS b%,h%
    StartPaint -1
    Cls ~GetSysColor(15)
    DrawExtBmp %HInstance,Res$,0,0;-1
    SaveBmp Temp_Bmp$,0,0-b%,h%
    EndPaint
    Return Temp_Bmp$

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

¡Hola Jörg, Yo sehe irgendwie el Diferencia en el beiden Postings no, könntest Usted el otra vez erläutern

Jörg
Sellmeyer

oh, versehentlich doppelt...

iihiiF!! ¿Puede Usted veces Por favor, aufräumen?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Sebastian
König

@Andreas: Gracias - tal vez ha se como tatsächlich todavía una Fehler versteckt...

@IF: Yo quería Usted zuvorkommen y el versehentlich doppelt geposteten Eintrag de Jörg entfernen, pero si I Löschen klicke, komme Yo sólo en el Contribución splitten-Página... es el así gewollt?

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Frank
Abbing

@Sebastian:
IF mags no mehr, el irgendwelche Postings gelöscht voluntad. Stattdessen se el Posting abgesplittet y el Basura movido voluntad. Mir selber es el a kriminell - tener siempre Angst el ganzen Hilo dadurch a zerstören. Dann muss IF veces selber ran oder mejor todavía el alten Zustand otra vez herstellen. Aber el muss hier sí no diskutiert voluntad.
Noch qué: Leider tener Yo actualmente a viel a Ohren, en Profano2Cpp ausgiebig testen a puede. Also no sauer ser...