XProfan

Georg
Bernhardt

How do I get whom now one Bitmap mere? have all sorts of things attempts. change I How described in $00000080 is the Button lane. The Bitmap have I in Profan.exe with Ressorceditor eingefügt, or in a DLL and The called with Drawextbmp appear the bmp on the Window.

Georg

XProfan 10

02/10/08 ▲

Dietmar
Horn

Hello Georg,

the standing still really everything already in the obigen code. The crux on the story is here, that in the Community-Babyklappe The required Ressourcen unfortunately not included go.

Sowohl in the MMJ-Quellcodesammlung as well as in the XProfan-manager are The demonstration-Codes against it run with all required Ressourcen include.

I have you the time verkürzt on a Bitmap-Button rewritten.

in the attachment find You The finished EXE with two Bitmaps to that try and the code moreover.

Greeting
Dietmar

BitmapButton.zip	326 kB

Hochgeladen:	02/10/08

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: [...]

02/10/08 ▲

Georg
Bernhardt

thanks Dietmar,

functions, have but yet the trouble, I The In BMP a DLL gepackt have and to Your take action simply not rauskriege. with

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

goes it. but how can I The DLL in Your code integrate and hereon grab. Babyklappe has me neither weitergeholfen

thanks

XProfan 10

Dietmar
Horn

Hello Georg,

too something like find You on several to put in detail in the XProfan-manager described.

here's The API LoadImageA your friend, with the You first of all the lever the Bitmaps from the DLL bestimmst. subsequently will need you this deal only yet the Button by SendMessage allocate.

in the modified example have I the Bitmap OK1.BMP with the manager as Ressource Bitmap with the Bezeichner BMP_1 in a DLL namens BITMAP.DLL verfrachtet.

See attachment with EXE, PRF and DLL.

Greeting
Dietmar

BitmapButton2.zip	454 kB

Hochgeladen:	02/11/08

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

thanks, nu looft et would one here say but not of my DLL separate only with your but since can I Yes my Ressourcen reinpacken

Georg

XProfan 10

Jörg
Sellmeyer

it would, How always, helpful, if you time one lauffähiges Piece code postest (Window, Integration the Dll, one Button, Dll in the attachment), so one time qualifying Proposals can make. so stochert one only mist rum, there we Yes not know, whether and take off Error You evtl. make.

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

Thomas
Freier

Topic Button:
I such yet after a Solution for Button vertically with text, but not whom Text of supra down. transparency have I yet only with the type *.Ico hinbekommen. The could I but not to that rectangle verbiegen.
Compile Mark Separation

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

different *.bmp, according to Schaltzustand, is naturally no Topic.

14.bmp	6 kB

Hochgeladen:	02/11/08

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

Georg
Bernhardt

Hello

has everything worked with Button, Bitmap and DLL.thanks

Georg

XProfan 10

here's too yet what

Compile Mark Separation

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

Hello Thomas,

because yet To your question yet no response-Posting come is, suspect I time, that not only I To dämlich be, circa your eigentliches border To understand. Perhaps could You have the once so (circa)formulieren, that too I kapiere, what it you really goes? thereafter can you here with on safety grenzender probability weitergeholfen go.

Greeting
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: [...]

02/12/08 ▲

Thomas
Freier

Hello Dietmar,

the could so his, therefore once more The question in the Klartext:
with MCopyBmp 10, 10 - 100, 100 > 50, 50; -1 can we to determine, which colour as transparent to examine is.
is the too possible, if a *.bmp on a Button should?
I faith me remind to, that it with *.gif and transparency neither goes.
or?

but on this place another Thank you for MMJ-Quellcodesammlung.
Schade, I have unfortunately no Verlinkung on this pages found or in unmittelbarer sew the Freeware Profan 6.6 . she's it worth!

Gruß Thomas
Windows XP SP2, XProfan X2

02/13/08 ▲