Bug? Compare colors

[Yunus ÖZ]

I try to change alpha channel for Panel, and i wrote a code below

If SurfaceHolder.Color=Colors.ARGB(0,255,255,255) Then '<--- Line: 107
     SurfaceHolder.SetColorAnimated(666,Colors.ARGB(0,255,255,255),Colors.ARGB(255,255,255,255))
Else
     SurfaceHolder.SetColorAnimated(666,Colors.ARGB(255,255,255,255),Colors.ARGB(0,255,255,255))
End If

When i hit "F5" IDE say me that

B4A version: 5.50
Parsing code. (0.01s)
Compiling code. Error
Error compiling program.
Error description: Property: Color is writeonly.
Occurred on line: 107
If SurfaceHolder.Color=Colors.ARGB(0,255,255,255) Then
Word: color

Thank you
Best regards

 

[Erel]

Please use [code]code here...[/code] tags when posting code.

This is not a bug. The color property is writeonly.

 

[Yunus ÖZ]

Please use [code]code here...[/code] tags when posting code.

This is not a bug. The color property is writeonly.

Thank you for reply and i edited

Yes i know it is readonly but i dont add a new value, i want to compare
it is in "IF block",

 

[Erel]

It is not read-only. It is write-only.

 

[Yunus ÖZ]

It is not read-only. It is write-only.

so, i can't compare
And is there a way to comparing alpha channel, maybe a properties like opacity or color.alpha

 

[Erel]

Create a sub that sets the color and stores the alpha channel in the Tag property.

 

[Yunus ÖZ]

Thank you, i wonder that,
if a variable writable, why not readable

Forgive me if I was rude

Thank you again
Best regards.

 

[Erel]

if a variable writable, why not readable

I can explain. But questions should be posted in the questions forum...

 

[ArminKH]

I can explain. But questions should be posted in the questions forum...

some thing like this

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals
    Dim SurfaceHolder As Panel
    Dim SurfaceHolderColor As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Public Sub setSurfaceHolderColor(color As Int)
    SurfaceHolder.Color = color
    SurfaceHolderColor  = color
End Sub


Public Sub YourSubName
    If SurfaceHolderColor = Colors.ARGB(0,255,255,255) Then
        SurfaceHolder.SetColorAnimated(666,Colors.ARGB(0,255,255,255),Colors.ARGB(255,255,255,255))
        SurfaceHolderColor = Colors.ARGB(255,255,255,255)
    Else
        SurfaceHolder.SetColorAnimated(666,Colors.ARGB(255,255,255,255),Colors.ARGB(0,255,255,255))
        SurfaceHolderColor = Colors.ARGB(0,255,255,255)
    End If
End Sub

also can use tag property to store panel's color

 

[Erel]

Bug reports should be used to report bugs. This is not a bug.

For further discussions please start a new thread in the questions forum.