XProfan

Jörg
Sellmeyer

allô Andreas,
Eigentlich devrait cela marcher:
Kompilieren Marque Séparation

 $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

[...] 
tu dois seulement qui entsprechende Syscolor-Message benutzen.

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

11.08.2005 ▲

allô Jörg...

So löse je cela jusqu'alors. là je cela Programme avec Profan2Cpp compilieren veux, allez cela malheureusement pas...

12.08.2005 ▲

Jörg
Sellmeyer

Ah... la fois wieder pas richtig gelesen (aucun Profan-Speicherbitmap)

peut-être hilft Dir cela:
Kompilieren Marque Séparation

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 je de Andreas Miethe.

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

12.08.2005 ▲

Sebastian
König

allô Andreas,

[quote-part:b1366991c7]So löse je cela jusqu'alors. là je cela Programme avec Profan2Cpp compilieren veux, allez cela malheureusement pas...[/quote-part:b1366991c7]
sorry, peut-être stehe je justement quelque chose sur dem Schlauch, mais wieso peux Du qui Solution à cause de Profan2Cpp pas verwenden?

MfG

Sebastian

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

Alte Profan²-Seite: [...]

12.08.2005 ▲

allô Sebastian...

je schaus mir encore einmal à, jusqu'alors klappte mais alles, cela avec Speicherbitmaps trop 1faire hatte, chez Je ne - peut-être mon faute?

@Jörg: la fois schaun, besten Dank!

Jörg
Sellmeyer

je benutze incidemment cela pour transparente Resourcen - klappt avec P2CCP.
Allerdings volonté qui Toolbar et Buttons pas korrekt dargestellt. DieTransparenzklappt mais:
Kompilieren Marque Séparation

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 ...

allô Jörg, je vois irgendwie den Unterschied dans den beiden Postings pas, könntest Du cela nochmal erläutern

Jörg
Sellmeyer

eh, versehentlich doppelt...

iihiiF!! peux Du la fois s'il te plaît aufräumen?

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

Sebastian
König

@Andreas: merci - peut-être hat sich là réellement encore un faute versteckt...

@iF: je voulais Dir zuvorkommen et den versehentlich doppelt geposteten Eintrag de Jörg entfernen, mais si je sur Effacer klicke, viens je seulement sur qui Beitrag splitten-page... ist cela so gewollt?

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

Alte Profan²-Seite: [...]

Frank
Abbing

@Sebastian:
iF mags pas plus, cela irgendwelche Postings gelöscht volonté. Stattdessen soll cela Posting abgesplittet et dans den Poubelle déménagé volonté. Mir selber ist cela trop kriminell - hab toujours Angst den ganzen Fil dadurch trop anéantir. ensuite muss iF la fois selber ran ou bien besser encore den alten Zustand wieder herstellen. mais cela muss ici oui pas diskutiert volonté.
encore quoi: malheureusement hab je momentan trop viel à Ohren, um Profan2Cpp ausgiebig testen trop peut. alors pas acide son...