Sign in to follow this  
Followers 0
JavaScript_Freek

Make new lines

10 posts in this topic

I want to know. That my script:

; Dan's Menu
; August 2, 2006

#include <GuiConstants.au3>

; GUI
GuiCreate("Dan's Main Menu", 400, 400)
GuiSetIcon(@SystemDir & "\notepad.exe", 0)


; MENU 
$filemenu = GuiCtrlCreateMenu ("File")
$fileitem = GuiCtrlCreateMenuitem ("Open...",$filemenu)
$recentfilesmenu = GuiCtrlCreateMenu ("Recent Files",$filemenu)
$separator1 = GuiCtrlCreateMenuitem ("",$filemenu)
$exititem = GuiCtrlCreateMenuitem ("Exit",$filemenu)
$helpmenu = GuiCtrlCreateMenu ("About")
$aboutitem = GuiCtrlCreateMenuitem ("About",$helpmenu)

; TAB
GuiCtrlCreateTab(1, 0, 400, 150)
GuiCtrlCreateTabItem("Dan")
GuiCtrlCreateLabel("[color=red][b]Welcome to Dan's Menu Program. Of course if you trust me you would be seeing this right now. So hats off you too. So, this is like my first favorite program I wrote. Sweet eh? Well not really, but I still like it![/b][/color]", 20, 40)
GuiCtrlCreateTabItem("Test")
GuiCtrlCreateLabel("I'm like testing.", 20, 40)
GuiCtrlCreateTabItem("About")

; GUI MESSAGE LOOP
GuiSetState()

While 1
    $msg = GUIGetMsg()
    

    Select
        
        Case $msg = $fileitem
            $file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)")
            If @error <> 1 Then GuiCtrlCreateMenuItem ($file,$recentfilesmenu)

        Case $msg = $exititem
            ExitLoop

        Case $msg = $aboutitem
            Msgbox(0,"About Dan's Menu","This menu was programmed by Dan. This is copyrighted so if you have the same exact code and you claim as yours. Well then your ripping. Got questions? Email me at dan@zetastyles.com!")
    EndSelect
WEnd

Welcome to Dan's Menu Program. Of course if you trust me you would be seeing this right now. So hats off you too. So, this is like my first favorite program I wrote. Sweet eh? Well not really, but I still like it! - YES I MADE IT COLOR RED AND BOLD.

Anyways after the word "seeing" it gets cutt off.

I tried {ENTER} but it didn't work.


[center]Cookyx.com :: Simple LAN Chat[/center]

Share this post


Link to post
Share on other sites



Try something like this :

"line1" & @CRLF & "line2"

Share this post


Link to post
Share on other sites

I want to know. That my script:

; Dan's Menu
; August 2, 2006

#include <GuiConstants.au3>

; GUI
GuiCreate("Dan's Main Menu", 400, 400)
GuiSetIcon(@SystemDir & "\notepad.exe", 0)
; MENU 
$filemenu = GuiCtrlCreateMenu ("File")
$fileitem = GuiCtrlCreateMenuitem ("Open...",$filemenu)
$recentfilesmenu = GuiCtrlCreateMenu ("Recent Files",$filemenu)
$separator1 = GuiCtrlCreateMenuitem ("",$filemenu)
$exititem = GuiCtrlCreateMenuitem ("Exit",$filemenu)
$helpmenu = GuiCtrlCreateMenu ("About")
$aboutitem = GuiCtrlCreateMenuitem ("About",$helpmenu)

; TAB
GuiCtrlCreateTab(1, 0, 400, 150)
GuiCtrlCreateTabItem("Dan")
GuiCtrlCreateLabel("[color=red][b]Welcome to Dan's Menu Program. " &@crlf &"Of course if you trust me you would be seeing this right now." &@crlf &"So hats off you too. So, this is like my first favorite program I wrote. Sweet eh? Well not really, but I still like it![/b][/color]", 20, 40)
GuiCtrlCreateTabItem("Test")
GuiCtrlCreateLabel("I'm like testing.", 20, 40)
GuiCtrlCreateTabItem("About")

; GUI MESSAGE LOOP
GuiSetState()

While 1
    $msg = GUIGetMsg()
    

    Select
        
        Case $msg = $fileitem
            $file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)")
            If @error <> 1 Then GuiCtrlCreateMenuItem ($file,$recentfilesmenu)

        Case $msg = $exititem
            ExitLoop

        Case $msg = $aboutitem
            Msgbox(0,"About Dan's Menu","This menu was programmed by Dan. This is copyrighted so if you have the same exact code and you claim as yours. Well then your ripping. Got questions? Email me at dan@zetastyles.com!")
    EndSelect
WEnd
that should work :-)

Share this post


Link to post
Share on other sites

Now it cuts off after right now.

Like below "right now" is blank.


[center]Cookyx.com :: Simple LAN Chat[/center]

Share this post


Link to post
Share on other sites

just do this :-)

msgbox(0,"","Xantios rulez on line 1 " &@crlf &"Xantios rulez on line 2" &@clrf &"Xantios rulez on line 3")

Share this post


Link to post
Share on other sites

You need to fix your label's width & height.

Read the help file to see what the defaults are for unspecified parameters.


[font="Tahoma"]"Tougher than the toughies and smarter than the smarties"[/font]

Share this post


Link to post
Share on other sites

Bump ^^ not a real answer :whistle:

Read about Styles in the help file and search for "wrap".

Cheers

Kurt


__________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf *

Share this post


Link to post
Share on other sites

If you can't find it in your help file, look here: http://www.autoitscript.com/autoit3/files/...CreateLabel.htm

Since you didn't specify the label's dimensions, it's the same size as your tab control. (400 x 150)

The text is clipping because the label extends beyond the edge of the tab.

Change this:

GuiCtrlCreateLabel("Welcome to Dan's Menu Program. " &@crlf &"etc...", 20, 40)

to this:
GuiCtrlCreateLabel("Welcome to Dan's Menu Program" & @crlf & "etc...", 20, 40, 300, 120)

btw, the styles Kurt is referring to are here: http://www.autoitscript.com/autoit3/files/...x/GUIStyles.htm


[font="Tahoma"]"Tougher than the toughies and smarter than the smarties"[/font]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0