XProfan

- page 1 -

Dietmar
Horn

allô Georg,

cela steht doch eigentlich alles bereits im obigen Code. qui le crochet à qui Geschichte ist ici, qui dans qui Community-Babyklappe qui nécessaire Ressourcen malheureusement pas mitgeliefert volonté.

Sowohl dans qui MMJ-Quellcodesammlung comme aussi im XProfan-Manager sommes qui Demo-Codes dagegen courir avec allen nécessaire Ressourcen enthalten.

j'ai Dir cela la fois verkürzt sur une Bitmap-Button umgeschrieben.

Im Anhang findest Du qui fertige EXE avec deux Bitmaps zum Ausprobieren et den Code en supplément.

Salut
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

merci Dietmar,

funktioniert, Habe mais encore cela Problem, dass je qui BMP dans un DLL emballé habe et vous pour Deinem procéder simple pas rauskriege. avec

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

ca va. mais comment peux je qui DLL dans Deinem Code einbinden et puis zugreifen. Babyklappe hat mir aussi pas weitergeholfen

merci

XProfan 10

Dietmar
Horn

allô Georg,

aussi quelque chose comme findest Du à mehreren se mettre en détails im XProfan-Manager beschrieben.

ici ist qui API LoadImageA Dein ami, avec qui Du zunächst cela Handle des Bitmaps aus qui DLL bestimmst. Anschließend brauchst Du cet négoce seulement encore dem Button per SendMessage zuweisen.

Im modifié Beispiel habe je cela Bitmap OK1.BMP avec dem Manager comme Ressource Bitmap avec dem Bezeichner BMP_1 dans un DLL nommé BITMAP.DLL verfrachtet.

Siehe Anhang avec EXE, PRF et DLL.

Salut
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

merci, nu looft et serait on ici dire mais pas avec meiner DLL mais seulement avec Deiner mais là peux je oui mon Ressourcen reinpacken

Georg

XProfan 10

Jörg
Sellmeyer

Es wäre, comment toujours, hilfreich, si Du la fois un lauffähiges Stück Code postest (la fenêtre, Einbindung qui Dll, un Button, Dll im Anhang), avec cela on la fois qualifizierte Propositions faire peux. So stochert on seulement im le brouillard rum, là wir oui pas savons, si et quoi pour faute Du peut-être. fais.

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

Thomas
Freier

Thema Button:
je such encore pour einer Solution pour Button senkrecht avec le texte, mais pas den Text de dessus pour unten. Transparenz habe je bisher seulement avec dem Typ *.Ico hinbekommen. qui konnte je mais pas zum Rechteck verbiegen.
Kompilieren Marque Séparation

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 pour Schaltzustand, ist naturellement ne...aucune Thema.

14.bmp	6 kB

Hochgeladen:	11.02.2008

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

Georg
Bernhardt

allô

hat alles geklappt avec Button, Bitmap et DLL.merci

Georg

XProfan 10

Kompilieren Marque Séparation

ici ist aussi encore quoi

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

allô Thomas,

weil bisher trop Deiner Frage encore ne...aucune Antwort-Posting gekommen ist, vermute je la fois, qui pas seulement je trop dämlich suis, um Dein eigentliches Anliegen trop comprendre. peut-être könntest Du le reste einmal so (um)formulieren, qui aussi je kapiere, worum es Dir eigentlich allez? après peux Dir ici avec à Sicherheit grenzender probabilité weitergeholfen volonté.

Salut
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

allô Dietmar,

cela pourrait so son, tout autor encore einmal qui Frage im Klartext:
chez MCopyBmp 10, 10 - 100, 100 > 50, 50; -1 peut wir bestimmen, quelle la couleur comme transparent anzusehen ist.
Ist cela aussi possible, si une *.bmp sur une Button soll?
je crois mich erinnern trop peut, dass es avec *.gif et Transparenz aussi pas allez.
ou bien?

mais à cette Stelle encore un Dankeschön pour qui MMJ-Quellcodesammlung.
tant pis, j'ai malheureusement aucun Verlinkung sur cette Seiten trouvé ou bien dans unmittelbarer Nähe qui Freeware Profan 6.6 . vous ist es wert!

Gruß Thomas
Windows XP SP2, XProfan X2

13.02.2008 ▲