Commit 623edaec authored by Michele's avatar Michele

Nuova gestione Font

parent 5c110083
......@@ -26,7 +26,7 @@
}
{ btn_cancella Button
Move(245,14,63,28)
Font = Font["Arial"]
Font = Font["Ubuntu"]
Background = &H818EFF&
Text = ("Cancella")
}
......
......@@ -218,7 +218,7 @@
}
{ Label2 Label
Move(2,7,309,42)
Font = Font["Arial,Bold,+2"]
Font = Font["Ubuntu,Bold,+2"]
Background = &HFFFF3F&
Foreground = &H000000&
Expand = True
......
......@@ -51,6 +51,10 @@ Public Sub Main()
Try Copy "Suoni" &/ files To user.home &/ ".Lista/Suoni" &/ files
Endif
Next
If Not Exist(user.home &/ ".fonts") Then Mkdir (User.home &/ ".fonts")
For Each files In Dir("Font", "*.ttf")
If Not Exist(User.home &/ ".fonts" &/ files) Then Copy "Font" &/ files To User.home &/ ".fonts" &/ files
Next
Tempor = Application.version
tempor = Replace(Tempor, ".", "-")
Tempor = "Lista/" & Tempor & ".txt"
......
File added
File added
File added
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment