XProfan

- Page 1 -

Dietmar
Horn

Hallo Georg,

das steht doch eigentlich alles bereits im obigen Code. Der Haken an der Geschichte ist hier, daß in der Community-Babyklappe die benötigten Ressourcen leider nicht mitgeliefert werden.

Sowohl in der MMJ-Quellcodesammlung als auch im XProfan-Manager sind die Demo-Codes dagegen lauffähig mit allen benötigten Ressourcen enthalten.

Ich habe Dir das mal verkürzt auf einen Bitmap-Button umgeschrieben.

Im Anhang findest Du die fertige EXE mit zwei Bitmaps zum Ausprobieren und den Code dazu.

Saluto
Dietmar

BitmapButton.zip	326 kB

Hochgeladen:	10.02.2008

Downloadcounter:
		Download

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

Danke Dietmar,

funktioniert, Habe aber noch das Problem, dass ich die BMP in un DLL gepackt habe und sie nach Deinem Verfahren einfach nicht rauskriege. mit

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

geht es. Aber wie kann ich die DLL in Deinem Code einbinden und darauf zugreifen. Babyklappe hat mir auch nicht weitergeholfen

Danke

XProfan 10

Dietmar
Horn

Hallo Georg,

auch sowas findest Du an mehreren Stellen ausführlich im XProfan-Manager beschrieben.

Hier ist die API LoadImageA Dein Freund, mit der Du zunächst das Handle des Bitmaps aus der DLL bestimmst. Anschließend brauchst Du dieses Handel nur noch dem Button per SendMessage zuweisen.

Im modificato Beispiel habe ich das Bitmap OK1.BMP mit dem Manager als Ressource Bitmap mit dem Bezeichner BMP_1 in un DLL namens BITMAP.DLL verfrachtet.

Siehe Anhang mit EXE, PRF und DLL.

Saluto
Dietmar

BitmapButton2.zip	454 kB

Hochgeladen:	11.02.2008

Downloadcounter:
		Download

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

Danke, nu looft et würde man hier sagen aber nicht mit meiner DLL sondern nur mit Deiner aber da kann ich ja meine Ressourcen reinpacken

Georg

XProfan 10

Jörg
Sellmeyer

Es wäre, wie immer, hilfreich, wenn Du mal ein lauffähiges Stück Code postest (Fenster, Einbindung der Dll, ein Button, Dll im Anhang), damit man mal qualifizierte Proposte machen kann. So stochert man nur im Nebel rum, da wir ja nicht wissen, ob und was per Fehler Du evtl. machst.

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

Thomas
Freier

Thema Button:
ich such noch nach einer Lösung per Button senkrecht con testo, aber nicht den Text von oben nach unten. Transparenz habe ich bisher nur mit dem Typ *.Ico hinbekommen. Die konnte ich aber nicht zum Rechteck verbiegen.
Kompilieren Markieren Separieren

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 nach Schaltzustand, ist naturalmente kein Thema.

14.bmp	6 kB

Hochgeladen:	11.02.2008

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

Georg
Bernhardt

Hallo

hat alles geklappt mit Button, Bitmap und DLL.Danke

Georg

XProfan 10

Kompilieren Markieren Separieren

Hier ist auch noch was

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

Dietmar
Horn

Hallo Thomas,

weil bisher zu Deiner Frage noch kein Antwort-Posting gekommen ist, vermute ich mal, daß nicht nur ich zu dämlich bin, um Dein eigentliches Anliegen zu verstehen. Vielleicht könntest Du das noch einmal so (um)formulieren, daß auch ich kapiere, worum es Dir eigentlich geht? Danach kann Dir hier mit an Sicherheit grenzender Wahrscheinlichkeit weitergeholfen werden.

Saluto
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

Hallo Dietmar,

das potuto so sein, darum noch einmal die Frage im Klartext:
Bei MCopyBmp 10, 10 - 100, 100 > 50, 50; -1 können wir bestimmen, welche Farbe als transparent anzusehen ist.
Ist das auch possibile, wenn eine *.bmp auf einen Button soll?
Ich glaube mich erinnern zu können, dass es mit *.gif und Transparenz auch nicht geht.
Oder?

Aber an dieser Stelle noch ein Dankeschön per die MMJ-Quellcodesammlung.
Schade, ich habe leider keine Verlinkung auf diesen Seiten gefunden oder in unmittelbarer Nähe der Freeware Profan 6.6 . Sie ist es wert!

Gruß Thomas
Windows XP SP2, XProfan X2

13.02.2008 ▲