XProfan

Español

Frank
Abbing

Toolbar(CheckButton... checkt siempre sólo el letzten Button, y somit sólo una. Wird de el Ayuda no está claro.
Welche Möglichkeit besteht, mehrere Buttons gleichzeitig a checken?

23.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dieter
Zornow

Normalerweise debería el Buttons doch encima el 2. Parámetro
MenuItem-Valor unterscheidbar ser, si el no Fall es,
es una eindeutiger Bug

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

23.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

El Unterscheidbarkeit es no el problema. Nur kann Yo actualmente sólo una Button gleichzeitig checken.

23.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Frank Abbing

El Unterscheidbarkeit es no el problema. Nur kann Yo actualmente sólo una Button gleichzeitig checken.

¡Hola Franco,

dazu necesario el Buttons una otro Style haben.
Kompilieren Marca Separación

Declare hToolBar&, hBild&, ende%
WindowStyle 63
Cls
hToolbar& = @Create(TOOLBAR, %hWnd, 0, 0, 32, 2000, 1)
@Toolbar(AddButton, hToolBar&, 0, 2000, Knopf 1)
@Toolbar(Separator, hToolbar&)
@Toolbar(AddButton, hToolBar&, 1, 2001, Hugo)
@Toolbar(AddButton, hToolBar&, 2, 2002, Klaus)
@Toolbar(AddButton, hToolBar&, 3, 2003, Ina)
@Toolbar(AddButton, hToolBar&, 4, 2004, Nix)
@Toolbar(Separator, hToolbar&)
@Toolbar(AddButton, hToolBar&, 5, 2005, ENDE)
@Toolbar(Separator, hToolbar&)
@Toolbar(AddGroupButton, hToolBar&, 6, 2006, Nix)
@Toolbar(AddGroupButton, hToolBar&, 7, 2007, Nix)
@Toolbar(AddGroupButton, hToolBar&, 8, 2008, Nix)
@Toolbar(AddGroupButton, hToolBar&, 9, 2009, Nix)
@Toolbar(CheckButton, hToolbar&, 2006, 1)
@Toolbar(CheckButton, hToolbar&, 2007, 1)
@Toolbar(CheckButton, hToolbar&, 2008, 1)
@Toolbar(CheckButton, hToolbar&, 2009, 1)

WhileNot ende%

    WaitInput

    If %KEY = 2

        ende% = 1

    ElseIf %KEY = 4

        SetWindowPos hToolbar& = 0, 0 - 0, 0; 0

    ElseIf @MenuItem(2000)

        @MessageBox(2000, Test, 0)

    ElseIf @MenuItem(2001)

        @MessageBox(2001, Test, 0)

    ElseIf @MenuItem(2002)

        @MessageBox(2002, Test, 0)

    ElseIf @MenuItem(2003)

        @MessageBox(2003, Test, 0)

    ElseIf @MenuItem(2004)

        @MessageBox(2004, Test, 0)

    ElseIf @MenuItem(2005)

        ende% = 1

    EndIf

EndWhile

End

SUBPROC Toolbar.AddGroupButton

    Parameters Toolbar&,ImageId&,CommandId&,Text$
    Declare TB_Button#
    Dim TB_BUTTON#,20
    Long TB_BUTTON#,0=ImageId&,-CommandId&
    Byte TB_BUTTON#,8 = 4,2,0,0
    Long TB_BUTTON#,12 = 0,ADDR(Text$)
    Sendmessage(Toolbar&,1045,-1,TB_BUTTON#)
    Dispose TB_BUTTON#

ss=s4 href='./../../funktionsreferenzen/XProfan/ENDPROC/'>ENDPROC

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

23.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Groups, genau. War todavía no grossartig para Testen gekommen. Gracias dir!
Tal vez kann Roland el Función/el Style todavía con aufnehmen.

23.12.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

¡Hola,
el problema war no una fehlender Stil, pero una irrtümlich gesetzer Stil.
Natürlich se con Toolbar(CheckButton,n%) cada beliebige Button gecheckt oder eben no gecheckt dargestellt voluntad, sin otro Buttons oder Características a beeinträchtigen.
Si usted en Andreas Code el Línea Byte TB_BUTTON#,8 = 4,2,0,0 en Byte TB_BUTTON#,8 = 4,0,0,0 änderst, entonces kannst Usted el SubProc para todos Buttons uso. Der Style debería also 0 y no, como irrtümlich actualmente en XProfan, 4 ser. Der erste Parámetro en dieser Línea es el Zustand des Buttons y zweite, en el lo hier va, el Style. (Der 3. y 4. Parámetro son ungenutzt.)

(Style 4 = BTNS_GROUP, Style 2 = BTNS_CHECK sin Group-Effekt. Como el Checken en XProfan por SetCheck y no automáticamente por Clicken tener lugar se, se keiner dieser Styles benötigt. So es bastante el Wünschen des Programmierers überlassen, qué él hacer voluntad. Natürlich es lo ihm frei, después de Andreas Presentación el Toolbar-Función en AddCheckButton (Style = 2) o. AddRadioButton (Style = 4) a erweitern. Aus diesem Grunde wurde SUBPROC eingeführt.)

In el nächsten XProfan-Versión reagieren el Buttons en SetCheck como esperado.

Saludo
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

10.02.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita