Sign in to follow this  
Followers 0
Merchants

how to make the string bigger?

5 posts in this topic

#1 ·  Posted (edited)

how to make the string bigger?

from this

Posted Image

to this

Posted Image

and how do i get to only in sec and mins i don't need the hours so like this 00:02 Mins, Secs

; *** 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 by Merchants

Share this post


Link to post
Share on other sites



Merchants,

After this line:

GUICtrlCreateLabel("00:00:00", 10, 10)

you need one beginning with

GUICtrlSetFont(-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:;)

; *** 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   ;==>Timer

It 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._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

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)

Share this post


Link to post
Share on other sites

wel this is usefull ty

and how do i remove the hours i have try that but getting errors

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

Line 41 (37 in first post)

$Time = StringFormat("%02i:%02i", $Mins, $Secs)
Edited by dwerf

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