Search Results

'KeepAlphaLevel - If true then the alpha level of the source color is kept. Public Sub ReplaceColor (bmp As B4XBitmap, OldColor As Int, NewColor As Int, KeepAlphaLevel As Boolean) As B4XBitmap Dim bc As BitmapCreator = CreateBC(bmp) Dim oldargb, newargb, a As ARGBColor bc.ColorToARGB(Old

Mask As B4XBitmap) As B4XBitmap Dim SelfieBC As BitmapCreator = CreateBC(Selfie) Dim MaskBC As BitmapCreator = CreateBC(Mask) Dim oldargb, newargb, a As ARGBColor SelfieBC.ColorToARGB(xui.Color_Black, oldargb) SelfieBC.ColorToARGB(xui.Color_Transparent, newargb) For x = 0 To

That would be nice. I know that your wish is for it to be a built-in XUI method, and I know you know how to do this. But for those who are unfamiliar with this... Dim bc As BitmapCreator 'Include this standard core library bc.Initialize(0, 0) 'Zeroes because we don't rea
link: XUI GetARGB(B4XView.Color]) function.

For my need I went back to the roots and have already written my own routine to draw thin lines without antialiasing. In the routines in post#29, what is the reason for using: Dim argb As ARGBColor bc.ColorToARGB(clr, argb) For x = Max(0, Min(x1, x2)) To Min(Max(x1, x2), bc.mWidth - 1) bc.SetAR
link: For now the best option is to use these simple methods for drawing thin lines: Sub DrawHorizontalLine(bc As BitmapCreator, x1 As Int, y As Int, x2 As
link: Small optimization. The int color is converted to an ARGB color and then to a premultiplied color. Calling SetARGB saves one of the conversions. Note

OldColor As Int, NewColor As Int, KeepAlphaLevel As Boolean) As B4XBitmap Dim x As Int Dim y As Int Dim BMC As BitmapCreator = CreateBC(bmp2) Dim oldargb As ARGBColor Dim newargb As ARGBColor Dim a As ARGBColor BMC.ColorToARGB(OldColor, oldargb) BMC.ColorToA
link: Public Sub ChangeColorBasedOnAlphaLevel(bmp As B4XBitmap, NewColor As Int) As B4XBitmap Dim bc As BitmapCreator bc.Initialize(bmp.Width, bmp.H
link: I probably will need something like this: 'Replaces OldColor with NewColor. 'KeepAlphaLevel - If true then the alpha level of the source color is ke

Public Sub getDominantColor2(sourceImage As BitmapCreator, quality As Int, ignoreWhite As Boolean) As ARGBColor 'Returns a map of ARGBColor values, set how many with colorCount 'Ordered by most dominant to least dominant 'colorCount should be 2 - 255 Public Sub getPalette(sourceImage As B4XBitmap

126027 This will help you get started: Private Sub FindLargestGapAtTheCenter (bc As BitmapCreator) As B4XRect Dim y As Int = bc.mHeight / 2 Dim MaxGapStart As Int Dim MaxGapEnd As Int Dim GapStart As Int Dim white As ARGBColor white = bc.ColorToARGB(xui.Color_White, white)

It was perfect, using the first suggestion (from Roycefer). I did not test the others, but I greatly appreciate it! The result was better than I expected. The code I got is below. If anyone can improve it, I'm grateful. Thank you all. This forum is simply fantastic! Final code: Sub Clean(Whichcolo
link: There are a few ways to think about the "closeness" of a color to another color. A simple method that might work for you is to consider the RGB color

Based on your prefix #, you want the Web hex representation, which has the alpha level lowest to the right. but the xui.Color_ARGB(a,r,g,b) function puts the alpha to the left most position. So no mystery, you just switched the integer values to do what you need. The ColorToHex function, blind to w
link: Hello everyone, So I am trying to convert an RGBA color to a Hex color. Private Sub ColorToHex(clr As Int) As String Dim bc As ByteConverter
link: Yes thanks, you are right. I just wanted to confirm if it was normal so that a future change or fix in the function won't affect my code.

b4x.com/android/forum/threads/x2-how-to-use-transparent-color.108173/#post-676534 Dim clr As Int = 0xff000000 + Bit.ParseInt(clrstring.SubString(1), 16) Dim ptranspm As PremultipliedColor Dim trans As PremultipliedColor Dim pm As PremultipliedColor Dim argb As ARGBColor Tiles
link: This is the code that removes the color: Private Sub RemovePseudoTransparentColor(TilesBC As BitmapCreator, clrstring As String) Dim clr As Int =

Powered by ColBERT