XProfan

Proc Dat_Print

    Parameters Seite1%, Seite2%, Seite3%, Seite4%, Seite5%, Vorschau%, DruckDialog%

    IfNot Druckdialog%

        StartPrint "FFWV druckt..."

    ElseIf Druckdialog%

        StartPrint "*FFWV druckt..."

    EndIf

    If %Printing

        If Seite1%

            DrawText 10,10,"Seite 1"

        EndIf

        If Seite2%

            NextPage
            DrawText 10,10,"Seite 2"

        EndIf

        If Seite3%

            NextPage
            DrawText 10,10,"Seite 3"

        EndIf

        If Seite4%

            NextPage
            DrawText 10,10,"Seite 4"

        EndIf

        If Seite5%

            NextPage
            DrawText 10,10,"Seite 5"

        EndIf

        EndPrint

    EndIf

EndProc

Declare Btn1&, Btn2&, Btn3&, Btn4&, Ausw_1&, Ausw_2&, Ausw_3&, Ausw_4&, Ausw_5&, Ausw_6&, Ausw_7&
declare Params%[], HelpWin_Ende%, FrameFont&
Def @GetSysColor(1) !"USER32","GetSysColor" dem Aussehen wegen...
WindowStyle 1024 + $800 + 16
Window (%MaxX-200),(%MaxY-200)-1,1
CLS @GetSysColor(15)
Usefont "MS Sans Serif",14,1,0,0,0
FrameFont& = @Create("Font","MS Sans Serif",14,1,1,0,0)
Setdialogfont FrameFont&
@Create("GroupBox",%HWnd,"Bitte wählen Sie aus, was gedruckt werden soll : ",10,10,370,220)
@Create("GroupBox",%HWnd,"Druck - Einstellungen : ",10,240,370,80)
Setdialogfont 1
Ausw_1& = @Create("CheckBox",%HWnd,"SEITE 1 : Persönliche Daten",20,40,300,20)
Ausw_2& = @Create("CheckBox",%HWnd,"SEITE 2 : Lehrgänge && Auszeichnungen",20,70,300,20)
Ausw_3& = @Create("CheckBox",%HWnd,"SEITE 3 : Beförderungen",20,100,300,20)
Ausw_4& = @Create("CheckBox",%HWnd,"SEITE 4 : Persönliche Ausrüstung",20,130,300,20)
Ausw_5& = @Create("CheckBox",%HWnd,"SEITE 5 : Sonstiges / Text",20,160,300,20)
Ausw_6& = @Create("CheckBox",%HWnd,"Druck - Vorschau verwenden",20,260,300,20)
EnableWindow Ausw_6&,0
Ausw_7& = @Create("CheckBox",%HWnd,"Drucker-Auswahl-Dialog",20,290,300,20)
SetCheck Ausw_1& ,1
SetCheck Ausw_2& ,1
SetCheck Ausw_3& ,1
SetCheck Ausw_4& ,1
SetCheck Ausw_5& ,1
SetCheck Ausw_7& ,1
Btn1& = @Create("Button",%HWnd,"DRUCKEN",40,340,150,25)
Btn2& = @Create("Button",%HWnd,"Abbrechen",210,340,150,25)
Btn3& = @Create("Button",%HWnd,"Alles AN",80,190,100,25)
Btn4& = @Create("Button",%HWnd,"Alles AUS",220,190,100,25)

WhileLoop 200

    SetWindowPos %HWnd=(%MaxX/2-200),(%MaxY/2-200) - &loop*2,&loop*2,-1

EndWhile

Clear HelpWin_Ende%

WhileNot HelpWin_Ende%

    If @GetCheck(Ausw_1&) OR @GetCheck(Ausw_2&) OR @GetCheck(Ausw_3&) OR @GetCheck(Ausw_4&) OR @GetCheck(Ausw_5&)

        EnableWindow Btn1&,1

    ElseIf (@GetCheck(Ausw_1&)=0) AND (@GetCheck(Ausw_2&)=0) AND (@GetCheck(Ausw_3&)=0) AND (@GetCheck(Ausw_4&)=0) AND (@GetCheck(Ausw_5&)=0)

        EnableWindow Btn1&,0

    EndIf

    waitinput Print_Wahl

    If @Clicked(Btn1&)

        Params%[1] = @GetCheck(Ausw_1&)
        Params%[2] = @GetCheck(Ausw_2&)
        Params%[3] = @GetCheck(Ausw_3&)
        Params%[4] = @GetCheck(Ausw_4&)
        Params%[5] = @GetCheck(Ausw_5&)
        Params%[6] = @GetCheck(Ausw_6&)
        Params%[7] = @GetCheck(Ausw_7&)
        Dat_Print Params%[1],Params%[2],Params%[3],Params%[4],Params%[5],Params%[6],Params%[7]

    ElseIf @Clicked(Btn2&)

        HelpWin_Ende% = 1

    ElseIf @Clicked(Btn3&)

        SetCheck Ausw_1& ,1
        SetCheck Ausw_2& ,1
        SetCheck Ausw_3& ,1
        SetCheck Ausw_4& ,1
        SetCheck Ausw_5& ,1

    ElseIf @Clicked(Btn4&)

        SetCheck Ausw_1& ,0
        SetCheck Ausw_2& ,0
        SetCheck Ausw_3& ,0
        SetCheck Ausw_4& ,0
        SetCheck Ausw_5& ,0

    EndIf

EndWhile

DestroyWindow(%HWnd)
../funktionsreferenzen/XProfan/deleteobject/'>DeleteObject FrameFont&
Fin

CLS
var HFNT&=CREATE("MS Sans Serif",10,0,0,0,0)
var MYBUT&=_SFNT(CREATE("Button",%HWND,"oO",10,10,100,100))
WAITINPUT
end

proc _SFNT

    PARAMETERS H&
    SETFONT H&,HFNT&
    RETURN H&

oc

cls
long hFnt=create("MS Sans Serif",10,,,,),
myBut=_sFnt(create("Button",hWnd,"oO",10,10,100,100))
waitInput
end

_sFnt(long h){

    setFont h,hFnt
    return h

}