Author Topic: Barra Deslizante - Autor Desconhecido  (Read 19 times)

Alex

  • Newbie
  • *
  • Posts: 23
    • View Profile
Barra Deslizante - Autor Desconhecido
« on: June 29, 2020, 07:20:08 AM »
Não sei que fez este código.
Estava lá no meu backup
Code: [Select]
Var Y Integer, Valorbt Integer, rotval String

Window Size = 35, 100, Position = Center, Center, Background = RGB(237,237,237)

Image Desenho,

Image Desenho.Lin = 3
Image Desenho.Col = 2
Image Desenho.Height = 15
Image Desenho.Width = 1.6

Image Desenho.PosY = -100
Image Desenho.Img = "bt.bmp"
Valorbt = ((95-3)/192)*100

rotval = JoinStr(Valorbt," %")

Label Teste, rotval, 4, 5, 2, 25
Label Teste.BackColor = RGB(237,237,237)
Label Teste.Alignment = 2

While 1 = 1

If Image(Desenho.MouseButton) = 1
Y = Image(Desenho.MouseY)
If Y > 2 And Y < 196
Image Desenho.PosY = Y-195
Image Desenho.Img = "bt.bmp"
Valorbt = ((Y-3)/192)*100
rotval = JoinStr(Valorbt," %")
Label Teste.Txt = rotval
EndIf
EndIf 


Wait Events
Loop
EndProgram