| |
|
|
Web Scanner | allô Amis
super, j'ai eh bien den Sinn einer Toolbar erkannt c'est pourquoi bastle je qui eh bien aussi dans mon CNC Programme rein. malheureusement vois je aucun Seperatoren. qui sieht s'il te plaît meinen faute? KompilierenMarqueSéparationDeclare hToolBar&, hBild&, ende%
WindowTitle "WEBBI 3 Achsen CNC Software Steuerung 2008 Version: 0.038"
Window 0,0,1024,768
hToolbar& = @Create("TOOLBAR", %hWnd,8,0,1,2000,0)
@Toolbar("AddTextButton",hToolbar&,0,2000,"Gruppieren","20")
@Toolbar("Separator", hToolbar&)
@Toolbar("AddTextButton",hToolbar&,0,2000,"Gruppe auflösen","20")
waitkey
a>
Grüße
Web |
|
|
| |
|
|
|
RGH | allô, qui Seperator ist qui Zwischenraum entre den beiden Toolbarbuttons. là cet seulement Text enthalten et qui Stil 0 gewählt wurde, ist il pas so sans weiteres sichtbar. qui la distance qui Buttons ist seulement quelque chose größer.
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 | 08.08.2008 ▲ |
|
|
|
|
Web Scanner | Hi Roland,
okay. merci.
si je qui Toolbar unten platziere überschreibt es mir komplett qui untere vorhandene Statuszeile.
@Créer("Toolbar",N1,H,N2,N3,N4,N5)
N5: Stil qui Toolbar 2 = unten - 3D
comment peux je cela tourner autour de?
Grüße
Web |
|
|
| |
|
|
|
Jac de Lad | je crois cela allez, si du qui Statusbar récente platzierst ("SetWindowPos stbar&=0,0-0,0"). |
|
|
| Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP | 09.08.2008 ▲ |
|
|
|
|
Web Scanner | Hi Jac,
merci pour den Tipp. mais malheureusement allez cela so pas. Jedenfalls hab je verschiedenes probiert. aucun chance.
je mets eh bien individuel Tasten à den unteren rebord. c'est pour mich sogar besser et flexibler.
Grüße
Web |
|
|
| |
|
|
|
Jörg Sellmeyer | comment wäre es so: KompilierenMarqueSéparationDeclare hToolBar&, hBild&, ende%,dummy&
WindowTitle "WEBBI 3 Achsen CNC Software Steuerung 2008 Version: 0.038"
Window 0,0,1024,768
Var h&=Create("StatusWindow",%HWND,"Test")
dummy& = Control("DIALOG","",$54000000,0,(Height(%hwnd) - Height(h&) -30),Width(%hwnd),30,%hwnd,0,%hinstance)
hToolbar& = @Create("TOOLBAR", dummy&,8,0,1,2000,3)
@Toolbar("AddTextButton",hToolbar&,0,2000,"Gruppieren","20")
@Toolbar("Separator", hToolbar&)
@Toolbar("AddTextButton",hToolbar&,0,2001,"Gruppe auflösen","20")
While 1
waitinput
SetWindowPos H& = 0,0-0,0;0
SetWindowPos dummy& = 0,(Height(%hwnd) - Height(h&) -30) - Width(%hwnd),30;0
SetWindowPos hToolbar& = 0,0,-0,0;0
If MenuItem(2000)
Print "Klick!"
EndIf
Wend
|
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 10.08.2008 ▲ |
|
|
|