XProfan

Français

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster mit Bitmap und eigener Titelzeile
DEF LoadImage(6) ! USER32,LoadImageA

PROC STATICPIC

    Parameters x%,y%,breit%,hoch%,fenster&,bild$
    declare b#,h&,hdl&
    Dim b#,Add(Len(bild$),1)
    String b#,0=bild$
    Let h&=LoadImage(%hinstance,b#,0,breit%,hoch%,$50)
    Let hdl&=@Control(STATIC,,$05000010E,x%,y%,breit%,hoch%,fenster&,$7918,%hinstance)
    SendMessage(hdl&,$172,0,h&)
    dispose b#
    Return hdl&

ENDPROC

PROC CREATECAPTION

    PARAMETERS TL$,HI&,FARB&,FETT&,ITALIC&
    MCLS 500,300
    STARTPAINT -1
    LOADSIZEDBMP FARBEN.BMP,0,0-500,30;0
    USEFONT MS SANS SERIF,HI&,0,FETT&,ITALIC&,0
    TEXTCOLOR FARB&,-1
    DRAWTEXT 35,7,TL$
    DRAWLIBICON SHELL32.DLL,5,0,0
    SAVEBMP C:DUMMY.BMP,0,0-500,30
    ENDPAINT

ENDPROC

DECLARE HWND&,ENDE%
WINDOWSTYLE 80
WINDOW 10,10-500,500
CREATECAPTION DIES IST EIN FENSTERTITEL,18,RGB(0,0,255),1,1
FENSTERTITEL, HÖHE SCHRIFT, FARBE, 0 (Normal) oder 1 (Fett), 0 (Normal) oder 1 (Italic)
STATICPIC 0,0,500,500,%HWND,FLASCHEN.BMP
STATICPIC 0,0,500,30,%HWND,C:DUMMY.BMP
HWND&=&(0)

WHILENOT ENDE%

    WAITINPUT

    IF %LASTMESSAGE=273

        UseCursor 5
        SendMessage(%HWND,$112,$F012,0)
        UseCursor 0

    ELSEIF %LASTMESSAGE=32 HIER RECHTE MAUSTASTE ZUM AUSSTEIGEN!

        CreateMenu
        AppendMenu 100,&Info
        Separator
        AppendMenu 101,&Ende
        TrackMenu %mousex,%mousey
        case %menuitem=100: Messagebox(Fenster gestalten,Blabla,64)
        case %menuitem=101: ENDE%=1

    ENDIF

 href='./../../function-references/XProfan/Wend/'>WEND