XProfan

English

Web
Scanner

Hello Friends

super, I have now whom sense of/ one Toolbar recognized

therefore bastle I The now too in my CNC Program mere.
unfortunately see I no Seperatoren.
who sees Please my Error?
Compile Mark Separation

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>

Regards

Web

Xprofan X3.1

Win7 auf AMDX6

08/08/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

Hello, the Seperator is the Zwischenraum between whom both Toolbarbuttons. there these only Text include and the Style 0 chosen watts, is it not so without further visible. The stood off the Buttons is only slightly larger.

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

08/08/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Web
Scanner

Hi Roland,

okay. thanks.

If I The Toolbar under platziere überschreibt it me complete The downstairs available Statuszeile.

@Create("Toolbar",n1,H,n2,n3,n4,n5)

n5: Style the Toolbar
2 = under - 3D

How can I the bypass?

Regards

Web

Xprofan X3.1

Win7 auf AMDX6

08/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

I faith the goes, if You The Statusbar new 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

08/09/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Web
Scanner

Hi Jac,

thanks for Tipp. but unfortunately does it so not.
anyway Have I verschiedenes probiert. No chance.

I set now individual Keys on whom downstairs edge.
this is for me even rather and flexibler.

Regards

Web

Xprofan X3.1

Win7 auf AMDX6

08/10/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

how'bout so:
Compile Mark Separation

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