XProfan

Italia

Web
Scanner

Hallo Amici

super, ich habe nun den Sinn einer Toolbar erkannt

Deshalb bastle ich die nun auch in mein CNC Programm rein.
Leider sehe ich keine Seperatoren.
Wer sieht bitte meinen Fehler?
Kompilieren Markieren Separieren

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 Citazione Zeilenweise Citazione

RGH

Hallo, der Seperator ist der Zwischenraum zwischen den beiden Toolbarbuttons. Da diese nur Text enthalten und der Stil 0 gewählt wurde, ist er nicht so ohne weiteres sichtbar. Der Abstand der Buttons ist nur etwas größer.

Saluto
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 Citazione Zeilenweise Citazione

Web
Scanner

Hi Roland,

okay. Danke.

Wenn ich die Toolbar unten platziere überschreibt es mir komplett die untere vorhandene Statuszeile.

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

N5: Stil der Toolbar
2 = unten - 3D

Wie kann ich das umgehen?

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

09.08.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jac
de
Lad

Ich glaube das geht, wenn du die 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 Citazione Zeilenweise Citazione

Web
Scanner

Hi Jac,

Danke per den Tipp. Aber leider geht das so nicht.
Jedenfalls hab ich verschiedenes probiert. Keine Chance.

Ich setze nun einzelnen Tasten an den unteren Rand.
Das ist per mich sogar besser und flexibler.

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

10.08.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Wie wäre es so:
Kompilieren Markieren Separieren

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