Bug? Compare colors

Yunus ÖZ · Feb 8, 2016

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

B4X:

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 · Feb 8, 2016

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

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

Yunus ÖZ · Feb 8, 2016

Erel said:
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 · Feb 8, 2016

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

Yunus ÖZ · Feb 8, 2016

Erel said:
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 · Feb 8, 2016

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

Yunus ÖZ · Feb 8, 2016

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

Forgive me if I was rude

Thank you again
Best regards.

Erel · Feb 8, 2016

Yunus ÖZ said:
if a variable writable, why not readable

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

ArminKH · Feb 8, 2016

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

some thing like this

B4X:

#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 · Feb 8, 2016

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.

Bug? Compare colors

Yunus ÖZ

Member

Erel

B4X founder

Yunus ÖZ

Member

Erel

B4X founder

Yunus ÖZ

Member

Erel

B4X founder

Yunus ÖZ

Member

Erel

B4X founder

ArminKH

Well-Known Member

Erel

B4X founder

Similar Threads

Bug? Compare colors

Member

B4X founder

Member

B4X founder

Member

B4X founder

Member

B4X founder

Well-Known Member

B4X founder

Similar Threads

Privacy & Transparency

Privacy & Transparency