XProfan

- Página 1 -

Dietmar
Horn

¡Hola Georg,

el es doch eigentlich alles ya en el obigen Code. Der Haken a el Geschichte es hier, daß en Comunidad-Babyklappe el benötigten Ressourcen por desgracia, no mitgeliefert voluntad.

Sowohl en el MMJ-Quellcodesammlung como auch en el XProfan-Manager son el Demo-Codes dagegen lauffähig con allen benötigten Ressourcen enthalten.

Yo habe Usted el veces verkürzt en una Mapa de bits-Button umgeschrieben.

Im Anhang findest Usted el fertige EXE con zwei Bitmaps para Ausprobieren y el código dazu.

Saludo
Dietmar

BitmapButton.zip	326 kB

Hochgeladen:	10.02.2008

Ladeanzahl:
		Descargar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

10.02.2008 ▲

Georg
Bernhardt

Gracias Dietmar,

funktioniert, Posesiones aber todavía el problema, dass Yo el BMP en un DLL gepackt habe y ellos después de Deinem Verfahren simplemente no rauskriege. con

Dll&=Usedll(SPLITTER.dll)
DrawExtBmp DLL&, 115, 20, 20,1

es. Aber como kann Yo el DLL en Deinem Code einbinden y darauf zugreifen. Babyklappe ha me auch no weitergeholfen

Gracias

XProfan 10

Dietmar
Horn

¡Hola Georg,

auch algo como findest Usted a más Stellen ausführlich en el XProfan-Manager beschrieben.

Hier Es el API LoadImageA Su Freund, con el Usted primero el Handle des Bitmaps de el DLL bestimmst. Anschließend Usted necesita dieses Handel sólo todavía el Button por SendMessage zuweisen.

Im geänderten Ejemplo Yo el Mapa de bits OK1.BMP con el Manager como Ressource Mapa de bits con el Bezeichner BMP_1 en un DLL nombre BITMAP.DLL verfrachtet.

Siehe Anhang con EXE, PRF y DLL.

Saludo
Dietmar

BitmapButton2.zip	454 kB

Hochgeladen:	11.02.2008

Ladeanzahl:
		Descargar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Georg
Bernhardt

Gracias, nu looft et sería uno hier sagen pero no con meiner DLL pero sólo Deiner aber como kann Yo sí mi Ressourcen reinpacken

Georg

XProfan 10

Jörg
Sellmeyer

Lo wäre, como siempre, hilfreich, si veces una lauffähiges Stück Code postest (Ventana, Einbindung el Dll, una Button, Dll en el Anhang), así uno veces qualifizierte Propuestas hacer kann. So stochert uno sólo en el Nebel rum, como wir sí no wissen, si y qué para Fehler Usted evtl. machst.

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

Thomas
Freier

Thema Button:
Yo such todavía después de uno Solución Button perpendicular con texto, pero no el Texto de oben después de unten. Transparenz Yo bisher sólo el Typ *.Ico hinbekommen. El podría Yo pero no para Rechteck verbiegen.
Kompilieren Marca Separación

declare tb&,bb7&,extbmp&,bitmap$,OB1&
declare st#,InstIcon&
bitmap$ = 14.BMP

ifnot Fileexists(bitmap$)

    Messagebox(Das Bitmap kann nicht gefunden werden!,F E H L E R,4112)
    end

endif

DEF @ALoadImage(6) ! USER32,LoadImageA
DEF @ALoadIcon(2) !USER32,LoadIconA

PROC LADE_EXTBMP

    Parameters Name$,X%,Y%
    Dim ST#,255
    String ST#,0 = Name$
    ExtBMP& = @ALoadImage(%HInstance,ST#,0,X%,Y%,$0050) Externes BMP laden
    Dispose ST#

ENDPROC

Proc Lade_Icon

    Parameters Name$
    Dim ST#,30
    String st#,0 = Name$
    Let InstIcon& = @ALoadIcon(%hinstance,st#) Icon A aus HINSTANCE
    Dispose st#

Endproc

PROC MACH_TOOLBAR

    TB& = @Control(Static,,$50001000,0,0,WIDTH(%HWND),143,%hwnd,1000,%Hinstance)
    BB7& =@Control(Button,test,$50000080+3+$1000,WIDTH(%HWND) - 70,5,30,80,TB&,2112,%Hinstance)
    LADE_EXTBMP bitmap$,0,0
    Sendmessage(BB7&,$00F7,0,Extbmp&)
    Let OB1& = @Control(Button,,$50001043,274,0,40,40,TB&,1005,%Hinstance)
    Lade_Icon Computer
    Sendmessage(OB1&,$00F7,1,InstIcon&)            Icon dem 1. Schalter zuweisen

ENDPROC

#############################################################
cls
WINDOWSTYLE 31
WINDOWTITLE Button als Schalter
WINDOW 0,0-640,440
MACH_TOOLBAR
Declare bild&
bild& = Create(hPic,-1,14.BMP)
DrawPic bild&, 40, 80; 0
DrawPic bild&, 80, 80; -1

while 0=0

    Drawtext 0,0,@str$(@GetCheck(BB7&))+
    Drawtext 0,20,@str$(@GetCheck(OB1&))+

wend

DeleteObject bild&
=s4 href='./../../function-references/XProfan/end/'>end

Unterschiedliche *.bmp, je después de Schaltzustand, es natürlich kein Thema.

14.bmp	6 kB

Hochgeladen:	11.02.2008

Ladeanzahl:
		Descargar

Gruß Thomas
Windows XP SP2, XProfan X2

Georg
Bernhardt

¡Hola

ha alles geklappt con Button, Mapa de bits y DLL.Gracias

Georg

XProfan 10

Kompilieren Marca Separación

Hier es auch todavía qué

DEF LoadImage(6) ! USER32,LoadImageA
DECLARE icondll&
icondll&=usedll($SYSPATH+\shell32.dll)
DECLARE hlp%,neu%,aus%
DECLARE hlp$,neu$,aus$
DECLARE spalte%,zeile%,lang%,hoch%,steig%,tip%,font00%
font00%=CREATE(FONT,ARIAL,16,6,0,0,0)

proc showbutton damit das Icon auch immer wieder angezeigt wird, ohne diese Proc wird es in der Exe nicht mehr angezeigt

    parameters hdl&  handle des Static controls
    showwindow(hdl&,0)
    showwindow(hdl&,1)

endproc

Parameter: Fenster, oder Dialoghandle, Buttontext, handle der iconresource, Iconname, x%,y%,w%,h%, ButtonID, Text Links, rechts oder Zentiert

subproc Create.ITextbutton

    Parameters hwnd&,text$,source&,image$,x%,y%,w%,h%,id&,dct$
    declare button&,st&,Imh&,hpos&,hwid&
    Imh& = LoadImage(source&,addr(Image$),$1,20,20,$0) Icongröße = 20 x 20

    if dct$ = upper$(R)

        button& = Control(BUTTON,text$,$54010200,x%,y%,w%,h%,hwnd&,id&,icondll&,$0100)

    elseif dct$ = upper$(L)

        button& = Control(BUTTON,text$,$54010100,x%,y%,w%,h%,hwnd&,id&,icondll&,$0100)

    elseif dct$ = upper$(C)

        button& = Control(BUTTON,text$,$54010000,x%,y%,w%,h%,hwnd&,id&,icondll&,$0100)

    endif

    hpos& = height(button&) - 20
    hpos& = int(hpos&/2)
    hwid& = width(button&) -23  3 pixel vom Rand weg + Icongröße

    if (dct$ = upper$(R)) or (dct$ = upper$(C))

        st& = control(Static,,$50000003,3,hpos&,20,20,button&,0,%Hinstance)

    else

        st& = control(Static,,$50000003,hwid&,hpos&,20,20,button&,0,%Hinstance)

    endif

    Sendmessage(st&,$170,Imh&,0)
    showbutton(st&)
    return str$(button&) + | + str$(st&)

endproc

############################################################
Window 0,0-300,200
spalte%=10:zeile%=10:lang%=200:hoch%=30:steig%=40
hlp$ =  create(ITextbutton,%hwnd,F1 Hilfe ,icondll&,#24,spalte%,zeile%,lang%,hoch%,10,R)
hlp% = val(substr$(hlp$,1,|))
SetFont hlp%,font00%
tip%=CREATE(TOOLTIP,%HWnd,hlp%, Den Hilfetext anzeigen...)
zeile%=(zeile%+steig%)
neu$ =  create(ITextbutton,%hwnd,&Neu... ,icondll&,#3,spalte%,zeile%,lang%,hoch%,11,C)
neu% = val(substr$(neu$,1,|))
SetFont neu%,font00%
tip%=CREATE(TOOLTIP,%HWnd,neu%, Neue Datei erstellen...)
zeile%=(zeile%+steig%)
aus$ =  create(ITextbutton,%hwnd,ESC Ende ,icondll&,#28,spalte%,zeile%,lang%,hoch%,12,L)
aus% = val(substr$(aus$,1,|))
SetFont aus%,font00%
tip%=CREATE(TOOLTIP,%HWnd,aus%, Programm beenden)
WAITI

a> FIN

Dietmar
Horn

Hola Tomás,

porque bisher a Deiner Cuestión todavía kein Antwort-Posting gekommen es, vermute Yo veces, daß no sólo Yo a dämlich bin, en Su eigentliches Anliegen a verstehen. Tal vez könntest Usted el todavía una vez así (en)formulieren, daß auch Yo kapiere, worum lo Usted eigentlich va? Danach kann Usted hier con a Sicherheit grenzender Wahrscheinlichkeit weitergeholfen voluntad.

Saludo
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

12.02.2008 ▲

Thomas
Freier

¡Hola Dietmar,

el podría así ser, por lo tanto todavía una vez el Cuestión en el Klartext:
En MCopyBmp 10, 10 - 100, 100 > 50, 50; -1 puede wir bestimmen, welche Farbe como transparent anzusehen es.
Ist el auch posible, si una *.bmp en una Button se?
Yo glaube mich erinnern a puede, dass lo con *.gif y Transparenz auch no va.
Oder?

Aber a dieser Punto todavía una Dankeschön para el MMJ-Quellcodesammlung.
Schade, Yo desafortunadamente no Verlinkung en esta Páginas gefunden oder en unmittelbarer Nähe el Freeware Profano 6.6 . Sie es wert!

Gruß Thomas
Windows XP SP2, XProfan X2

13.02.2008 ▲