XProfan

print &BmpCol

If &BmpCol <> 2

    drawtext 10,50,Graphic als monochrom konvertieren

Endif

declare BMPC&
bmpc&=&BmpCol
print BMPC&

If BMPC&<> 2

    drawtext 10,50,Grafik als monochrom konvertieren

Endif

proc converte_94x120

    graphic wählen zum laden

    if bombeiro120&

        temp$ = pfad$+Imagens\Bombeiros\120X94\

    elseif carga120&

        temp$ = pfad$+Imagens\Excesso de carga\120X94\

    endif

    LoadPicDialog(temp$,Seleccione o grÃ	fico,BMP)

    ifnot file$ =

        dlg2& = @Create(dialog,%hwnd,,110,210,150,150)
        @SetWindowPosition(dlg2&,-1,0,0,120,94,(2+(1+$40))) on top
        male die graphic auf ein dialog und konvertiere es anschliessend in binären code
        startpaint dlg2&
        loadbmp file$,0,0;0
        endpaint
        print %bmpx, ,%bmpy, ,&bmpcol

        If (%bmpx <> 120) or (%bmpy <> 94)

            @MessageBox((t#.translate(Converta por favor o grÃ	fico para 120x94 pixels e tente de novo)),(t#.translate(Tamanho errado)),48)
            @destroyWindow(dlg2&)
            return

        Endif

        If &BmpCol <> 2

            @MessageBox((t#.translate(Converta e guarde o grÃ	fico como monocromÃ	tico com um utilitÃ	rio como o Paint)),(t#.translate(Tamanho errado)),48)
            @destroyWindow(dlg2&)
            return

        Endif

        Hier kommt die konvertierungs routine

    Endif

Endproc

proc LoadPicDialog

    parameters local$,Titulo$,Nome$
    declare ofn#,Result&
    declare DefView&,Status%------VariÃ	vel para Hook
    Nome$=Nome$+z*.bmp;*.jpe;*.jpeg;*.jpg;*.gifzz--Filtro (ajustar se necessÃ	rio)
    dim ofn#,Gl_puffer&+256---------------Structura (Win2000/NT/XP) + Buffer
    clear ofn#
    long ofn#,0=Gl_puffer&----------------Tamanho da Estrutura para GetOpenFileName (76 para Win9x)
    long ofn#,4=%hwnd-------------Janela hirarquicamente superior
    long ofn#,12=addr(Nome$)------Filtro/Tipo
    long ofn#,28=ofn#+Gl_puffer&----------Inicio Buffer
    long ofn#,32=255--------------Tamanho Buffer
    long ofn#,44=addr(local$)------pfad inicial
    long ofn#,48=addr(Titulo$)-----Titulo
    long ofn#,52=$880024----------Flags
    long ofn#,68=procaddr(OpenFileHook,4)
    Result&=external(COMDLG32,GetOpenFileNameA,ofn#)
    file$=string$(ofn#,Gl_puffer&)
    casenot Result&:Result$=
    casenot Result&:file$=
    procaddr(OpenFileHook,-4)
    dispose ofn#
    return Result$
    return file$

endproc