XProfan

Español

Web
Scanner

¡Hola Amigos

super, Yo nun el Sinn uno Toolbar erkannt

Deshalb bastle Yo el nun auch en mein CNC Programa rein.
Leider sehe Yo no Seperatoren.
Wer sieht Por favor, media Fehler?
Kompilieren Marca Separación

Declare 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

Xprofan X3.1

Win7 auf AMDX6

08.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

¡Hola, el Seperator es el Zwischenraum zwischen el beiden Toolbarbuttons. Como esta sólo Texto enthalten y Stil 0 gewählt wurde, es él no así sin weiteres sichtbar. Der Abstand el Buttons es sólo algo größer.

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

08.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Web
Scanner

Hi Roland,

okay. Gracias.

Wenn Yo el Toolbar unten platziere überschreibt lo me komplett el untere vorhandene Statuszeile.

@Crear("Toolbar",N1,H,N2,N3,N4,N5)

N5: Stil el Toolbar
2 = unten - 3D

¿Cómo se puede Yo el umgehen?

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

09.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Yo glaube el va, si du el Statusbar neu 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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Web
Scanner

Hi Jac,

Gracias para el Tipp. Aber desafortunadamente va el así no.
Jedenfalls tener Yo verschiedenes probiert. Keine Chance.

Yo poner nun individual Tasten a el unteren Rand.
Es para mich incluso mejor y flexibler.

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

10.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Como wäre lo así:
Kompilieren Marca Separación

Declare 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