Merchants Posted October 1, 2010 Share Posted October 1, 2010 (edited) how to make the string bigger?from thisto thisand how do i get to only in sec and mins i don't need the hours so like this 00:02 Mins, Secsexpandcollapse popup; *** Demo to show a timer window #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Date.au3> Opt("TrayIconDebug", 1) Opt("MustDeclareVars", 1) Global $timer, $Secs, $Mins, $Hour, $Time _Main() Func _Main() ;Create GUI GUICreate("Timer", 90, 30) GUICtrlCreateLabel("00:00:00", 10, 10) GUISetStyle($WS_POPUP) GUISetState() ;Start timer $timer = TimerInit() AdlibEnable("Timer", 50) ; While 1 ;FileWriteLine("debug.log",@min & ":" & @sec & " ==> before") Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit EndSwitch ;FileWriteLine("debug.log",@min & ":" & @sec & " ==> after") WEnd EndFunc ;==>_Main ; Func Timer() _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs) Local $sTime = $Time ; save current time to be able to test and avoid flicker.. $Time = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs) If $sTime <> $Time Then ControlSetText("Timer", "", "Static1", $Time) EndFunc ;==>Timer Edited October 1, 2010 by Merchants Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted October 1, 2010 Moderators Share Posted October 1, 2010 Merchants,After this line:GUICtrlCreateLabel("00:00:00", 10, 10)you need one beginning withGUICtrlSetFont(-1, .........)But do make sure your label is big enough to hold the bigger string. You might also make life much easier for yourself by doing this:expandcollapse popup; *** Demo to show a timer window #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <Date.au3> Global $hLabel ; <<<<<<<<<<<<<<<<<<<<<<<<<<<< Opt("TrayIconDebug", 1) Opt("MustDeclareVars", 1) Global $timer, $Secs, $Mins, $Hour, $Time _Main() Func _Main() ;Create GUI GUICreate("Timer", 90, 30) $hLabel = GUICtrlCreateLabel("00:00:00", 10, 10, 100, 20) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<< GUICtrlSetFont(-1, 12) ; This sets 12 point text <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< GUISetStyle($WS_POPUP) GUISetState() ;Start timer $timer = TimerInit() AdlibRegister("Timer", 50) ; While 1 ;FileWriteLine("debug.log",@min & ":" & @sec & " ==> before") Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit EndSwitch ;FileWriteLine("debug.log",@min & ":" & @sec & " ==> after") WEnd EndFunc ;==>_Main ; Func Timer() _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs) Local $sTime = $Time ; save current time to be able to test and avoid flicker.. $Time = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs) If $sTime <> $Time Then GUICtrlSetData($hLabel, $Time) ; <<<<<<<<<<<<<<<<<<<<<<<<<<< EndFunc ;==>TimerIt is a lot easier when you have created the controls. The Control* commands are for controls in other GUIs. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
ajag Posted October 1, 2010 Share Posted October 1, 2010 Merchants, GUICreate("Timer", 120, 50) ; <<<<< enlarge the GUI GUICtrlCreateLabel("00:00:00", 10, 10, 120, 50) ; <<<<< enlarge the label GUICtrlSetFont(-1,20,200) ; <<<<< Set a big font for the label Rule #1: Always do a backup Rule #2: Always do a backup (backup of rule #1) Link to comment Share on other sites More sharing options...
Merchants Posted October 1, 2010 Author Share Posted October 1, 2010 wel this is usefull ty and how do i remove the hours i have try that but getting errors Link to comment Share on other sites More sharing options...
dwerf Posted October 1, 2010 Share Posted October 1, 2010 (edited) Line 41 (37 in first post) $Time = StringFormat("%02i:%02i", $Mins, $Secs) Edited October 1, 2010 by dwerf Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now