| |
|
|
Frank Abbing | Toolbar(CheckButton... checkt toujours seulement den letzten Button, et somit seulement une. Wird aus qui Aider pas bien sûr. quelle Possibilité besteht, plusieurs Buttons gleichzeitig trop checken? |
|
|
| |
|
|
|
Dieter Zornow | normalement devrait qui Buttons doch sur den 2. paramètre MenuItem-Wert unterscheidbar son, si cela pas qui le cas ist, ist es un 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 ▲ |
|
|
|
|
Frank Abbing | qui Unterscheidbarkeit ist pas cela Problem. seulement peux je derzeit seulement une Button gleichzeitig checken. |
|
|
| |
|
|
|
Andreas Miethe
| Frank Abbing
qui Unterscheidbarkeit ist pas cela Problem. seulement peux je derzeit seulement une Button gleichzeitig checken.
allô Frank,
en supplément doit qui Buttons une anderen Style avons. KompilierenMarqueSéparationDeclare 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 ▲ |
|
|
|
|
Frank Abbing | Groups, oui c'est ca. était encore pas grossartig zum Testen gekommen. merci dir! peut-être peux Roland qui Funktion/den Style encore avec aufnehmen. |
|
|
| |
|
|
|
RGH | Salut, cela Problem était pas un fehlender Stil, mais un irrtümlich gesetzer Stil. Bien sûr soll avec Toolbar(CheckButton,n%) chacun beliebige Button gecheckt ou bien plan pas gecheckt dargestellt volonté, sans autre Buttons ou bien Funktionen trop beeinträchtigen. si Du dans Andreas Code qui la ligne Byte TB_BUTTON#,8 = 4,2,0,0 dans Byte TB_BUTTON#,8 = 4,0,0,0 änderst, ensuite peux Du qui SubProc pour alle Buttons verwenden. qui Style sollte alors 0 et pas, comment irrtümlich derzeit dans XProfan, 4 son. qui erste paramètre dans cette la ligne ist qui Zustand des Buttons et qui zweite, um den es ici allez, qui Style. (qui 3. et 4. paramètre sommes ungenutzt.)
(Style 4 = BTNS_GROUP, Style 2 = BTNS_CHECK sans Group-effet. là cela Checken dans XProfan par SetCheck et pas automatisch par Clicken avoir lieu soll, wird aucun cette Styles nécessaire. So ist es entier den désirer des Programmierers überlassen, quoi il faire veux. Bien sûr steht es ihm libre, pour Andreas Présentation qui Toolbar-Funktion um AddCheckButton (Style = 2) bzw. AddRadioButton (Style = 4) trop erweitern. Aus diesem Grunde wurde SUBPROC eingeführt.)
dans qui prochain XProfan-Version réagir qui Buttons sur SetCheck comment erwartet.
Salut 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 ▲ |
|
|
|