| |
| |
|
Frank
Abbing | Toolbar(CheckButton... checkt always only whom last Button, and accordingly only a. becomes from the Help not clear.
which Possibility exists, several Buttons at the same time To checken? |
|
| |
| |
| |
|
|
Dieter
Zornow | usually should The Buttons still over the 2. Parameter
MenuItem-worth unterscheidbar his, if not the case is,
is it one eindeutiger bow |
|
| |
| Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2 | 12/23/08 ▲ |
|
| |
|
|
Frank
Abbing | | The Unterscheidbarkeit isn't the trouble. only can I presently only a Button at the same time checken. |
|
| |
| |
| |
|
|
Andreas
Miethe
 | Frank Abbing
The Unterscheidbarkeit isn't the trouble. only can I presently only a Button at the same time checken.
Hello Frank,
moreover must The Buttons a others Style having.
CompileMarkSeparationDeclare 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='./../../Function-References/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 : [...]  | 12/23/08 ▲ |
|
| |
|
|
Frank
Abbing | Groups, very. was not yet terrific to that testing come. thanks you!
Perhaps can Roland The function/whom Style yet with take in. |
|
| |
| |
| |
|
|
RGH | Hi,
the trouble wasn't one fehlender Style, separate one irrtümlich gesetzer Style.
naturally should with Toolbar(CheckButton,n%) anybody Button gecheckt or even not gecheckt displayed go, without others Buttons or functions To disfigure.
If you in Andreas code The row byte TB_BUTTON#,8 = 4,2,0,0 in byte TB_BUTTON#,8 = 4,0,0,0 änderst, then can You The SubProc for any Buttons use. The Style ought to means 0 and not, How irrtümlich presently in XProfan, 4 his. The first Parameter in this row is the status the Buttons and the second, around the it here goes, the Style. (The 3. and 4. Parameter are ungenutzt.)
(Style 4 = BTNS_GROUP, Style 2 = BTNS_CHECK without Group-effect. there the Checken in XProfan through SetCheck and not automatically through Clicken erfolgen should, becomes none this Styles needed. so is it integrally whom Wish the Programmierers give over, what it make wants. naturally standing it it spare, to Andreas Presentation The Toolbar-Function to AddCheckButton (Style = 2) or. AddRadioButton (Style = 4) To strain. from this Grunde watts SUBPROC introduced.)
in the next XProfan-Version react The Buttons on SetCheck How expects.
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 | 02/10/09 ▲ |
|
| |
|
(780)
Deutsch
English
Français
Español
Italia