Text expansion

Post

Posted
Rating:
#1 (In Topic #1406)
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
I use a LCDLabel and make the text "W". If I now resize the LCDLabel the text resizes at the same time. Is there a way I can do this with a Label?

This code shows the issue: -

Code (gambas)

  1. Label1 As Label
  2. LCDLabel1 As LCDLabel
  3.  
  4. Public Sub Form_Open()
  5.  
  6.   With Me
  7.     .Text = "Resize me"
  8.     .Arrangement = Arrange.Horizontal
  9.     .H = 150
  10.     .W = 150  
  11.     .Padding = 5
  12.   End With
  13.  
  14.   With Label1 = New Label(Me)
  15.     .Alignment = Align.Center
  16.     .Expand = True
  17.     .Font.Size = 12
  18.     .Text = "W"
  20.  
  21.   With LCDLabel1 = New LCDLabel(Me)
  22.     .Expand = True
  23.     .Text = "W"
  25.  
  27.  
Online now: No Back to the top

Post

Posted
Rating:
#2
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
Not by default, it's all about Font size for labels.

must be some workarounds though

this works on your above example (and if using different text/words)…

Code (gambas)

  1. Public Sub Form_Resize()
  2.  
  3.   ' if label text height and width are less than the label size then increase Font.Size
  4.   If Label1.Font.Height < Label1.Height And If Label1.Font.TextWidth(Label1.Text) < Label1.W Then
  5.     Do
  6.       If Label1.Font.Height < Label1.Height And If Label1.Font.TextWidth(Label1.Text) < Label1.W Then
  7.         Inc Label1.Font.Size
  8.       Else
  9.         Break
  10.       Endif
  11.     Loop
  12.  
  13.   ' if label text height or width is more than the label size then decrease Font.Size
  14.   Else If Label1.Font.Height > Label1.Height Or If Label1.Font.TextWidth(Label1.Text) > Label1.W Then
  15.     Do
  16.       If Label1.Font.Height > Label1.Height Or If Label1.Font.TextWidth(Label1.Text) > Label1.W Then
  17.         If Label1.Font.Size > 2 Then Dec Label1.Font.Size Else Break  ' dont set the font size too small or it errors
  18.       Else
  19.         Break
  20.       Endif
  21.     Loop
  23.  
  25.  
  26.  

you could also probably use a PictureBox and paint the text to a picture then have the PictureBox.Stretch enabled to make it fit.
Online now: No Back to the top

Post

Posted
Rating:
#3
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
 Thanks Bruce, I like the PictureBox idea. I'll do some experimentation as there are 110 separate LCDlables or Labels.
Online now: No Back to the top

Post

Posted
Rating:
#4
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
Or something like this..
Then any label who's name is like "SLabel*" gets stretched.

Code (gambas)

  1. Public Sub Form_Resize()
  2.  
  3.   For Each o As Object In Me.Controls
  4.     If o.Name Like "SLabel*" Then ResizeLabel(o)
  5.   Next
  6.  
  8.  
  9. Public Sub ResizeLabel(Lbl As Label)
  10.  
  11.   With Lbl
  12.   ' if label text height or width is less than the label size then increase Font.Size
  13.   If .Font.Height < .Height And If .Font.TextWidth(.Text) < .W Then
  14.     Do
  15.       If .Font.Height + 1 < .Height And If .Font.TextWidth(.Text) + 1 < .W Then
  16.         Inc .Font.Size
  17.       Else
  18.         Break
  19.       Endif
  20.     Loop
  21.   ' if label text height or width is more than the label size then decrease Font.Size
  22.   Else If .Font.Height > .Height Or If .Font.TextWidth(.Text) > .W Then
  23.     Do
  24.       If .Font.Height > .Height Or If .Font.TextWidth(.Text) > .W Then
  25.         If .Font.Size > 2 Then Dec .Font.Size Else Break
  26.       Else
  27.         Break
  28.       Endif
  29.     Loop
  31.  
  33.  
  35.  

Could be easier than converting all into pictureboxes
If naming is like Label1 , Label2, etc you just add S to the start of the Label names you want to stretch.
Online now: No Back to the top

Post

Posted
Rating:
#5
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
This is the progress so far, still using LCDLabels, just what you need to fill a cold winter's afternoon! Welcome to the WordClock. I based it on a clock I saw in a friend's house. Have a look at the price here?!!

Code (gambas)

  3. Private LCDLabel1 As LCDLabel
  4. Private Spring1 As Spring
  6. Private sLetters As String[] = ["ITLISASAMPM", "ACQUARTERDC", "TWENTYFIVEX", "HALFSTENFTO", "PASTERUNINE", "ONESIXTHREE", "FOURFIVETWO", "EIGHTELEVEN", "SEVENTWELVE", "TENSEOCLOCK"]
  7. Private lLCDs As New LCDLabel[]
  8. Private MinPanels As New Panel[]
  10. Private byIt As Byte[] = [0, 0, 2]
  11. Private byIs As Byte[] = [0, 3, 2]
  12. Private byAM As Byte[] = [0, 7, 2]
  13. Private byPM As Byte[] = [0, 9, 2]
  14. Private byTo As Byte[] = [3, 9, 2]
  15. Private byPast As Byte[] = [4, 0, 4]
  16. Private byOClock As Byte[] = [9, 5, 6]
  17. Private byPoints As Byte[][] = [[9, 5, 6], [2, 6, 4], [3, 5, 3], [1, 2, 7], [2, 0, 6], [2, 0, 10], [3, 0, 4], [2, 0, 10], [2, 0, 6], [1, 2, 7], [3, 5, 3], [2, 6, 4]] 'Oclock, Five, Ten, Quarter,Twenty, Twentyfive, Half , Twentyfive, Twenty,Quarter, Ten, Five
  18. Private byHr As Byte[][] = [[0, 0, 0], [5, 0, 3], [6, 8, 3], [5, 6, 5], [6, 0, 4], [6, 4, 4], [5, 3, 3], [8, 0, 5], [7, 0, 5], [4, 7, 4], [9, 0, 3], [7, 5, 6], [8, 5, 6]]
  19.  
  20. Public Sub Form_Open()
  21.  
  22.   Try system.Ignoreoverflow = True
  23.   BuildForm
  24.  
  26.  
  27. Public Sub Timer1_Timer()
  28.  
  29.   Dim byHour As Byte = Val(Format(Time(Now), "hh"))
  30.   Dim byMin As Byte = Val(Format(Time(Now), "nn"))
  31.   Dim byRemainder As Byte = byMin Mod 5
  32.   Dim bPM As Boolean
  33.  
  34.   SetAllLCDsGray
  35.  
  36.   byMin = byMin - byRemainder
  37.  
  38.   ShowText(byIt)
  39.   ShowText(byIs)
  40.  
  41.   If byHour > 12 Then
  42.     byHour = byHour - 12
  43.     If byMin > 30 Then Inc byHour
  44.     bPM = True
  45.   End If
  46.  
  47.   ShowText(byHr[byHour])
  48.   If bPM = True Then
  49.     'ShowText(byPM)
  50.   Else
  51.     'ShowText(byAM)
  53.  
  54.   'Oclock, Five, Ten, Quarter,Twenty, Twentyfive, Half , Twentyfive, Twenty,Quarter, Ten, Five
  55.   If byMin / 5 <> 0 Then
  56.     If byMin > 30 Then
  57.       ShowText(byTo)
  58.     Else
  59.       ShowText(byPast)
  60.     End If
  61.   End If
  62.  
  63.   ShowText(byPoints[byMin / 5])
  64.  
  65.   For byMin = 0 To 3
  66.     MinPanels[byMin].Background = Color.Default
  67.   Next
  68.  
  69.   For byMin = 0 To byRemainder - 1
  70.     MinPanels[byMin].Background = Color.Blue
  71.   Next
  72.  
  73.   Me.Refresh
  74.   Wait
  75.  
  77.  
  78. Public Sub ShowText(byVal As Byte[])
  79.  
  80.   Dim byLoop, byCount As Byte
  81.  
  82.   For byLoop = 0 To lLCDs.Max
  83.     If lLCDs[byLoop].Name Begins Str(byVal[0]) And lLCDs[byLoop].Name Ends Str(byVal[1]) Then
  84.       For byCount = 0 To byVal[2] - 1
  85.         lLCDs[byLoop + byCount].Foreground = Color.Red 'Settings["Foreground", Color.Red]
  86.         lLCDs[byLoop + byCount].Background = Color.Yellow 'Settings["Background", Color.Yellow]
  87.         lLCDs[byLoop + byCount].HighlightColor = Color.Yellow 'Settings["Highlight", Color.Yellow]
  88.       Next
  89.       Break
  90.     Endif
  91.   Next
  92.  
  94.  
  95. Public Sub SetAllLCDsGray()
  96.  
  97.   Dim byLoop As Byte
  98.  
  99.   For byLoop = 0 To lLCDs.Max
  100.     lLCDs[byLoop].Foreground = Color.LightGray 'Settings["FaintForeground", Color.LightGray]
  101.     lLCDs[byLoop].Background = Color.Default 'Settings["FaintBackground", Color.Default]
  102.     lLCDs[byLoop].HighlightColor = Color.Default'Settings["FaintHighlight", Color.Default]
  103.   Next
  104.  
  106.  
  107. Public Sub BuildForm()
  108.  
  109.   Dim byRow, byCol As Byte
  110.  
  111.   With Me
  112.     .Arrangement = Arrange.Vertical
  113.     .Padding = 5
  114.     .Height = 512
  115.     .Width = 512
  116.     .Background = Color.cyan
  118.  
  119.   For byRow = 0 To 9
  120.     With HBox1 = New HBox(Me) As "HBoxes"
  121.       .H = 28
  122.       .Expand = True
  123.       .Padding = 5
  124.     End With
  125.    
  126.     For byCol = 0 To 10
  127.       With LCDLabel1 = New LCDLabel(HBox1) As "LCDs"
  128.         .Alignment = Align.Center
  129.         .Text = sLetters[byRow][byCol]
  130.         .Foreground = Color.LightGray
  131.         .Expand = True
  132.         .Sheared = True
  133.         .Name = Str(byRow) & "-" & Str(byCol)
  134.       End With
  135.       lLCDs.Add(LCDLabel1)
  136.     Next
  137.   Next
  138.  
  139.   With HBox2 = New HBox(Me)
  140.     .H = 24
  141.     .Padding = 3
  143.  
  144.   Spring1 = New Spring(HBox2)
  145.  
  146.   For byRow = 0 To 3
  147.     With Panel1 = New Panel(HBox2)
  148.       .Background = Color.Default
  149.       .W = HBox2.H - (HBox2.Padding * 2)  
  150.     End With
  151.     MinPanels.Add(Panel1)
  152.     Spring1 = New Spring(HBox2)
  153.   Next
  154.  
  155.   With Timer1 = New Timer As "Timer1"
  156.     .Delay = 1000 ' Not sure!
  157.     .Trigger
  158.     .Start
  160.  
  162.  
Online now: No Back to the top
1 guest and 0 members have just viewed this.