(815)  Login

English
Source / code snippets

Image Hook Loadfile Preview Preview

 
- Page 1 -



Pedro
Santos
Hello Roland

becomes it in XProfan10 with Loadfile the bmps Preview thereby his?

greeting

Pedro
 
Windows XP Home
Xprofan 10
04/02/06  ▲
Vollständiges Quote
Absatzweise QuoteZeilenweise Quote
 



« this Posting watts as Solution marked. »


Jörg
Sellmeyer
Repariert...
CompileMarkSeparation
window 10,10-700,500
 $H Messages.ph
 $H windows.ph

proc OpenFileHook'-------------------------------OpenFileHook----------------------------

    parameters dlg&,msg&,wparam&,lparam&
    case status%:return 1'-----view must only once adjusted go
    casenot msg&=~WM_NOTIFY:return 1

    if long(lparam&,8)=-603'---with  Init existieren DefView and LV not yet!

        status%=1
        DefView&=~FindWindowEx(~GetParent(dlg&),0,"SHELLDLL_DefView","")
        sendmessage(DefView&,~WM_COMMAND,$702D,0)'--Undokumentierte Message

    endif

    return 1
    endproc---------------------------------------------------------------------------------

    proc LoadPicDialog'------------------------------LoadPicDialog---------------------------

        parameters way$,cover$,name$
        declare ofn#,Result$,Result&
        declare DefView&,status%'------variables for Hook
        name$=name$+"\z*.bmp;*.jpe;*.jpeg;*.jpg;*.gifzz"'--filter (with want adjust)
        dim ofn#,88+256'---------------structure (Win2000/NT/XP) + Puffer
        clear ofn#
        long ofn#,0=88'----------------Size structure for GetOpenFileName (76 for Win9x)
        long ofn#,4=%hwnd'-------------übergeordnetes Window
        long ofn#,12=addr(name$)'------filter/type
        long ofn#,28=ofn#+88'----------Beginn Puffer
        long ofn#,32=255'--------------Puffergrösse
        long ofn#,44=addr(way$)'------Anfangspfad
        long ofn#,48=addr(cover$)'-----cover
        long ofn#,52=$880024'----------? Happen?
        long ofn#,68=procaddr(OpenFileHook,4)
        Result&=external("COMDLG32","GetOpenFileNameA",ofn#)
        Result$=string $(ofn#,88)
        casenot Result&:Result$=\
        procaddr("OpenFileHook",-4)
        dispose ofn#
        return Result$

    endproc'---------------------------------------------------------------------------------

    print LoadPicDialog("","Bitte Image wählen","Bild")
    waitkey
 
XProfan X4
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
07/01/18  ▲
 




Pedro
Santos
Hello

I question simply again.????

thanks

greeting

Pedro
 
Windows XP Home
Xprofan 10
04/20/06  ▲
 



Hm What is herewith? [...] 
 
04/20/06  ▲
 



for the Schönmachen are but You zuständig.

here I habs time zusammengeballert there ichs too interestingly found:
CompileMarkSeparation
 {$cleq}
seterrorlevel -1
set(Fastmode,1)
Def GetOpenFileName(1) ! COMDLG32, GetOpenFileNameA
Def CommDlgExtendedError(0) ! COMDLG32, CommDlgExtendedError
Def Mm(3) !KERNEL32, RtlMoveMemory
declare h&,dc&,xx&,yy&,bwidth&,__mem#,preview.lastImg$
dim __mem#,12//(long)hwnd, id, code
clear __mem#
bwidth&=external(USER32,GetSystemMetrics,7)// borderwidth
print Multiloadfile()
dispose __mem#
waitkey
end

proc hook

    parameters _hWnd&,_Msg&,_wparam&,_lparam&

    if _msg&==272//init

        h&=external(USER32,GetParent,_hWnd&)
        dc&=external(USER32,GetDC,h&)
        xx&=width(h&)
        yy&=height(h&)
        external(USER32,SetWindowPos,h&,0,0,0,xx&+bwidth&+220,yy&+bwidth&,20)
        _wparam&=createblackframe(h&,,xx&+10,0,1,yy&)

    elseif _msg&==2//kill

    elseif _msg&==78//notify -602

        declare l&
        l&=addr(__mem#)
        mm(l&,_lparam&,12)

        if long(__mem#,8)==-602

            preview getfname(1125,h&)

        endif

    endif

    return _msg&

endproc

proc preview

    parameters fle$
    case instr(*,fle$) : return

    if fileexists(fle$)

        fle$=lower$(fle$)

        if right$(fle$,4)==.bmp

            if (preview.lastImg$<>fle$)

                preview.lastImg$=fle$
                startpaint h&
                loadsizedbmp fle$,xx&+20,5 - 190,(yy&-15-%cycaption);0
                endpaint

            endif

        endif

        settext h&,Öffnen von q+fle$+q

    elseif direxists(fle$)

        settext h&,Öffnen von q+fle$+q

    endif

endproc

proc getfname

    parameters msg&,h&
    declare s$
    s$=space$(260)
    sendmessage(h&,msg&,260,addr(s$))
    return trim$(s$)

endproc

Proc Multiloadfile

    Parameters title$,fmask$,drive$
    Declare mem#,fle$
    Dim mem#,8100
    fmask$=Bitmap-Dateien (*.bmp)z*.bmpzz
    Clear mem#
    Long mem#,0=76
    Long mem#,4=Getactivewindow()
    Long mem#,8=%Hinstance
    Long mem#,12=Addr(fmask$)
    Long mem#,28=mem#+100
    Long mem#,32=8000
    Long mem#,44=Addr(drive$)
    Long mem#,48=Addr(title$)
    Long mem#,52=( 4 | 2 | 32 | 524288 )
    Long mem#,68=procaddr(hook,4)
    Getopenfilename(mem#)

    if Commdlgextendederror()

        Dispose mem#
        return 0

    endif

    fle$=String$(mem#,100)
    Dispose mem#
    Return fle$

Endproc

If you BMP then still not reicht then is it simply with the new GDI-Unit others Image formats To support.

629 kB
Hochgeladen:04/20/06
Downloadcounter: 215
Download
 
04/20/06  ▲
 



Have whom code strain again vereinfacht...
 
04/20/06  ▲
 



here a Variant for any Image formats through GDI-Unit.
CompileMarkSeparation
 {$cleq}
 $I gdi.inc
seterrorlevel -1
set(Fastmode,1)
Def GetOpenFileName(1) ! COMDLG32, GetOpenFileNameA
Def CommDlgExtendedError(0) ! COMDLG32, CommDlgExtendedError
Def Mm(3) !KERNEL32, RtlMoveMemory
declare h&,dc&,xx&,yy&,bwidth&,__mem#,preview.lastImg$
declare gdiLoadableExtensions$
gdiLoadableExtensions$:=.bmp.dib.rle.jpg.jpeg.jpe.jfif.exif.gif.png.tiff.tif.wmf.emf.ico.
dim __mem#,12//(long)hwnd, id, code
clear __mem#
cls
bwidth&:=external(USER32,GetSystemMetrics,7)// borderwidth
gdi.init
print Multiloadfile()
gdi.kill
dispose __mem#
waitkey
end

proc hook

    parameters _hWnd&,_Msg&,_wparam&,_lparam&

    if _msg&==272//init

        h&:=external(USER32,GetParent,_hWnd&)
        dc&:=external(USER32,GetDC,h&)
        xx&:=width(h&)
        yy&:=height(h&)
        external(USER32,SetWindowPos,h&,0,0,0,xx&+bwidth&+220,yy&+bwidth&,20)
        _wparam&:=createblackframe(h&,,xx&+10,0,1,yy&)

    elseif _msg&==2//kill

    elseif _msg&==78//notify -602

        declare l&
        l&:=addr(__mem#)
        mm(l&,_lparam&,12)

        if long(__mem#,8)==-602

            preview getfname(1125,h&)

        endif

    endif

    return _msg&

endproc

proc preview

    parameters fle$
    case instr(*,fle$) : return

    if fileexists(fle$)

        fle$:=lower$(fle$)

        if instr(.+right$(fle$,3)+.,gdiLoadableExtensions$)

            if (preview.lastImg$<>fle$)

                preview.lastImg$:=fle$
                declare pic&
                pic&:=gdi.loadimage(fle$)
                preview.bg
                gdi.startpaint dc&
                gdi.drawsizedimage pic&,xx&+21,6,188,(yy&-17-%cycaption)
                gdi.endpaint
                gdi.deleteimage pic&

            endif

        endif

        settext h&,Öffnen von q+fle$+q

    elseif direxists(fle$)

        settext h&,Öffnen von q+fle$+q

    endif

endproc

proc preview.bg

    startpaint h&
    usepen 0,0,0
    usebrush 1,$00FFFFFF
    rectangle xx&+20,5 - xx&+210,yy&-10-%cycaption
    endpaint

endproc

proc getfname

    parameters msg&,h&
    declare s$
    s$:=space$(260)
    sendmessage(h&,msg&,260,addr(s$))
    return trim$(s$)

endproc

Proc Multiloadfile

    Parameters title$,fmask$,drive$
    Declare mem#,fle$
    Dim mem#,8100
    fmask$=Bild-Dateien (*+translate$(.+trim$(translate$(gdiLoadableExtensions$,., )), ,;*.)+)z*+translate$(.+trim$(translate$(gdiLoadableExtensions$,., )), ,;*.)+zz
    Clear mem#
    Long mem#,0=76
    Long mem#,4=Getactivewindow()
    Long mem#,8=%Hinstance
    Long mem#,12=Addr(fmask$)
    Long mem#,28=mem#+100
    Long mem#,32=8000
    Long mem#,44=Addr(drive$)
    Long mem#,48=Addr(title$)
    Long mem#,52=( 4 | 2 | 32 | 524288 )
    Long mem#,68=procaddr(hook,4)
    Getopenfilename(mem#)

    if Commdlgextendederror()

        Dispose mem#
        return 0

    endif

    fle$=String$(mem#,100)
    Dispose mem#
    ./../function-references/XProfan/return/'>Return fle$

Endproc
 
04/20/06  ▲
 




RGH
... and who it integrally without program having would like, dial in the integrally normalemn Loadfile$-dialog The Miniaturansicht* and beautiful go any of Create(hPic,...) supported Formate as Vorschaubild displayed. the goes at least under windows 2000 and XP.

* in the dialog supra right the Icon You can and the suitable view select. the functions unfortunately not Win98 or Win95. How it under WinME looks, white I do not, I it never using have.

Greeting
Roland
 
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
04/20/06  ▲
 



Hello Roland
>>* in the dialog supra right the Icon You can and the suitable view select. the functions unfortunately not Win98 or Win95. How it under WinME looks, white I do not, I it never using have. <<

can you calm: under ...ME works it too
 
04/21/06  ▲
 




RGH
Horst horn
can you calm: under ...ME works it too


OK, then was Bill Gates means so kind, the trouble for us To solve what about me must me in this thing not further bemühen.

Greeting
Roland
 
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4
04/22/06  ▲
 



Uwe Pascal Niemeier
Hello people!

since Win2000 watts The OpenFileName-structure circa 3 optionale Parameter complement (see MSDN). becomes The Size the structure properly extended (The three LongInts end must zero his) ought to it klappen.
here a demonstration, circa a dialog by Hook in the Miniatur-view to open (order Image-selection):
CompileMarkSeparation
window 10,10-700,500
 $H Messages.ph
 $H windows.ph

proc OpenFileHook-------------------------------OpenFileHook----------------------------

    parameters dlg&,msg&,wparam&,lparam&
    case status%:return 1-----view must only once adjusted go
    casenot msg&=~WM_NOTIFY:return 1

    if long(lparam&,8)=-603---with  Init existieren DefView and LV yet not!

        status%=1
        DefView&=~FindWindowEx(~GetParent(dlg&),0,SHELLDLL_DefView,)
        sendmessage(DefView&,~WM_COMMAND,$702D,0)--Undokumentierte Message

    endif

    return 1
    endproc---------------------------------------------------------------------------------

    proc LoadPicDialog------------------------------LoadPicDialog---------------------------

        parameters way$,cover$,name$
        declare ofn#,Result$,Result&
        declare DefView&,status%------variables for Hook
        name$=name$+z*.bmp;*.jpe;*.jpeg;*.jpg;*.gifzz--filter (with want adjust)
        dim ofn#,88+256---------------structure (Win2000/NT/XP) + Puffer
        clear ofn#
        long ofn#,0=88----------------Size structure for GetOpenFileName (76 for Win9x)
        long ofn#,4=%hwnd-------------übergeordnetes Window
        long ofn#,12=addr(name$)------filter/type
        long ofn#,28=ofn#+88----------Beginn Puffer
        long ofn#,32=255--------------Puffergrösse
        long ofn#,44=addr(way$)------Anfangspfad
        long ofn#,48=addr(cover$)-----cover
        long ofn#,52=$880024----------? Happen?
        long ofn#,68=procaddr(OpenFileHook,4)
        Result&=external(COMDLG32,GetOpenFileNameA,ofn#)
        Result$=string $(ofn#,88)
        casenot Result&:Result$=
        procaddr(OpenFileHook,-4)
        dispose ofn#
        return Result$

    endproc'---------------------------------------------------------------------------------

    print LoadPicDialog(,Please Image dial,Image)
    waitkey

HTH
Pascal
 
06/02/06  ▲
 




Jörg
Sellmeyer
Repariert...
CompileMarkSeparation
window 10,10-700,500
 $H Messages.ph
 $H windows.ph

proc OpenFileHook'-------------------------------OpenFileHook----------------------------

    parameters dlg&,msg&,wparam&,lparam&
    case status%:return 1'-----view must only once adjusted go
    casenot msg&=~WM_NOTIFY:return 1

    if long(lparam&,8)=-603'---with  Init existieren DefView and LV not yet!

        status%=1
        DefView&=~FindWindowEx(~GetParent(dlg&),0,"SHELLDLL_DefView","")
        sendmessage(DefView&,~WM_COMMAND,$702D,0)'--Undokumentierte Message

    endif

    return 1
    endproc---------------------------------------------------------------------------------

    proc LoadPicDialog'------------------------------LoadPicDialog---------------------------

        parameters way$,cover$,name$
        declare ofn#,Result$,Result&
        declare DefView&,status%'------variables for Hook
        name$=name$+"\z*.bmp;*.jpe;*.jpeg;*.jpg;*.gifzz"'--filter (with want adjust)
        dim ofn#,88+256'---------------structure (Win2000/NT/XP) + Puffer
        clear ofn#
        long ofn#,0=88'----------------Size structure for GetOpenFileName (76 for Win9x)
        long ofn#,4=%hwnd'-------------übergeordnetes Window
        long ofn#,12=addr(name$)'------filter/type
        long ofn#,28=ofn#+88'----------Beginn Puffer
        long ofn#,32=255'--------------Puffergrösse
        long ofn#,44=addr(way$)'------Anfangspfad
        long ofn#,48=addr(cover$)'-----cover
        long ofn#,52=$880024'----------? Happen?
        long ofn#,68=procaddr(OpenFileHook,4)
        Result&=external("COMDLG32","GetOpenFileNameA",ofn#)
        Result$=string $(ofn#,88)
        casenot Result&:Result$=\
        procaddr("OpenFileHook",-4)
        dispose ofn#
        return Result$

    endproc'---------------------------------------------------------------------------------

    print LoadPicDialog("","Bitte Image wählen","Bild")
    waitkey
 
XProfan X4
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
07/01/18  ▲
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

13.960 Views

Untitledvor 0 min.
RudiB.09/11/22
Stringray01/05/22
Sven Bader09/10/21
Rolf Koch09/06/20
More...

Themeninformationen

this Topic has 5 subscriber:

iF (5x)
RGH (2x)
Pedro Santos (2x)
Jörg Sellmeyer (1x)
unbekannt (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all rightDatenschutzerklärung
i want none Cookie