Joined: Feb 08, 2003
Posts: 31
Location: Alaska, USA
Posted:
Sun Jun 15, 2003 2:46 am
This may be topic for skins forum, and possibly require a separate software to accomplish this.
Possible for a different user interface or skin, such as Winamp3? For user who is interested in only one flight sim, or only some features of HL client. Possible to have completely different "form-factor" or different appearing front end to HL client? for examples, look to variety of winamp3 skins. I'm aware that Winamp3 uses a custom programming language to acomplish this, but maybe possible using the HL key commands with HL running in background?
Sometimes I think too much, sometimes I just talk too much. Not necessary to reply.
_________________ "One must have chaos in oneself in order to give birth to a dancing star."
-Friedrich Nietzsche
Jiri-Fojtasek Site Admin
Joined: Feb 02, 2003
Posts: 1737
Location: Slovakia
Posted:
Sun Jun 15, 2003 8:40 am
Zolos wrote:
This may be topic for skins forum, and possibly require a separate software to accomplish this.
Possible for a different user interface or skin, such as Winamp3? For user who is interested in only one flight sim, or only some features of HL client. Possible to have completely different "form-factor" or different appearing front end to HL client? for examples, look to variety of winamp3 skins. I'm aware that Winamp3 uses a custom programming language to acomplish this, but maybe possible using the HL key commands with HL running in background?
Sometimes I think too much, sometimes I just talk too much. Not necessary to reply.
Here is the whole skin function:
Code:
Public Function ObjSkin(ByRef obj As Object, ByRef section As String, ByVal item As String)
Dim prop As String
Dim inif As String
Dim itm As String
Dim scl As Single
On Error Resume Next
inif = skindir & "\skin.ini"
scl = scale_factor
With obj
If Not is_scaled Then
.Width = .Width * scl
.Height = .Height * scl
.Top = .Top * scl
.Left = .Left * scl
If item = "lnslot" Then
.Y1 = .Y1 * scl
.Y2 = .Y2 * scl
.X1 = .X1 * scl
.X2 = .X2 * scl
End If
End If
If item <> "button" Then
itm = item & ".Font.Name"
prop = Rfromini(inif, section, itm, "")
If prop <> "" Then
.Font.name = prop
End If
End If
itm = item & ".Font.Size"
prop = Rfromini(inif, section, itm, "")
If prop <> "" Then
.Font.Size = prop * scl
End If
itm = item & ".Font.Bold"
prop = Rfromini(inif, section, itm, "")
If prop <> "" Then
.Font.Bold = Val(prop)
End If
itm = item & ".Font.Italic"
prop = Rfromini(inif, section, itm, "")
If prop <> "" Then
.Font.Italic = Val(prop)
End If
itm = item & ".Font.Underline"
prop = Rfromini(inif, section, itm, "")
If prop <> "" Then
.Font.Underline = Val(prop)
End If
itm = item & ".MouseIcon"
prop = Rfromini(inif, section, itm, "")
If prop <> "" Then
.MouseIcon = LoadPicture(skindir & "\" & prop)
End If
If item = "button" Then
Exit Function
End If
itm = item & ".Picture"
prop = Rfromini(inif, section, itm, "")
If prop <> "" Then
.Picture = LoadPicture(skindir & "\" & prop)
Else
.Picture = LoadPicture()
End If
itm = item & ".BackColor"
prop = Rfromini(inif, section, itm, "")
If prop <> "" Then
.BackColor = Val(prop)
End If
itm = item & ".BorderColor"
prop = Rfromini(inif, section, itm, "")
If prop <> "" Then
.BorderColor = Val(prop)
End If
itm = item & ".ForeColor"
prop = Rfromini(inif, section, itm, "")
If prop <> "" Then
.ForeColor = Val(prop)
End If
itm = item & ".BorderStyle"
prop = Rfromini(inif, section, itm, "")
If prop <> "" Then
.BorderStyle = Val(prop)
End If
itm = item & ".BackStyle"
prop = Rfromini(inif, section, itm, "")
If prop <> "" Then
.BackStyle = Val(prop)
End If
End With
End Function
Its posible. Every UI object passing this function when HL start . But some object using common skin property and it will be hard to sort it. It will be feature for a 4.x version ....
View next topic View previous topic
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You cannot download files in this forum
