package Ġcom . ap android . color wheel app Ċ Ċ import Ġandroid . os . Bundle Ċ import Ġandroid . view . LayoutInflater Ċ import Ġandroid . view . View Ċ import Ġandroid . view . ViewGroup Ċ import Ġandroidx . fragment . app . Fragment Ċ import Ġcom . ap android . color wheel app . extensions . density Ċ import Ġcom . ap android . color wheel app . extensions . setOn Progress ChangeListener Ċ import Ġkotlinx . android . synt hetic . main . fragment _ test _ color _ wheel .* Ċ import Ġjava . util .* Ċ import Ġkotlin . math . round ToInt Ċ Ċ class ĠTest Color Wheel Fragment Ġ: ĠFragment () Ġ{ ĊĊĠĠĠ Ġprivate Ġval Ġrandom Ġby Ġlazy Ġ{ ĠRandom () Ġ} ĊĊĠĠĠ Ġoverride Ġfun ĠonCreate View ( in flater : ĠLayoutInflater , Ġcontainer : ĠViewGroup ?, ĠsavedInstanceState : ĠBundle ?): ĠView ? Ġ{ ĊĠĠĠĠĠĠĠ Ġreturn Ġinflater . inflate ( R . layout . fragment _ test _ color _ wheel , Ġcontainer , Ġfalse ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġoverride Ġfun Ġon View Created ( view : ĠView , ĠsavedInstanceState : ĠBundle ?) Ġ{ ĊĠĠĠĠĠĠĠ Ġsuper . on View Created ( view , ĠsavedInstanceState ) ĊĠĠĠĠĠĠĠ Ġrandomize Color Button . setOnClickListener Ġ{ Ġrandomize Color Wheel Color () Ġ} ĊĠĠĠĠĠĠĠ Ġcolor Wheel Padding Seek Bar . setOn Progress ChangeListener ( this :: on Color Wheel Padding Seek Bar Change ) ĊĠĠĠĠĠĠĠ Ġthumb Radius Seek Bar . setOn Progress ChangeListener ( this :: on Thumb Seek Bar Change ) ĊĠĠĠĠĠĠĠ Ġcolor Wheel Padding Seek Bar . progress Ġ= Ġ( color Wheel . padding Top Ġ/ Ġdensity ). round ToInt () ĊĠĠĠĠĠĠĠ Ġthumb Radius Seek Bar . progress Ġ= Ġ( color Wheel . thumb Radius Ġ/ Ġdensity ). round ToInt () ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġprivate Ġfun Ġon Thumb Seek Bar Change ( progress : ĠInt ) Ġ{ ĊĠĠĠĠĠĠĠ Ġcolor Wheel . thumb Radius Ġ= Ġ( progress Ġ* Ġdensity ). round ToInt () ĊĠĠĠĠĠĠĠ Ġthumb Radius Text . text Ġ= ĠgetString ( R . string . thumb _ radius _ with _ value , Ġprogress ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġprivate Ġfun Ġon Color Wheel Padding Seek Bar Change ( progress : ĠInt ) Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġpadding Ġ= Ġ( progress Ġ* Ġdensity ). round ToInt () ĊĠĠĠĠĠĠĠ Ġcolor Wheel . set Padding ( padding , Ġpadding , Ġpadding , Ġpadding ) ĊĠĠĠĠĠĠĠ Ġcolor Wheel Padding . text Ġ= ĠgetString ( R . string . color _ wheel _ padding _ with _ value , Ġprogress ) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġprivate Ġfun Ġrandomize Color Wheel Color () Ġ{ ĊĠĠĠĠĠĠĠ Ġcolor Wheel . set Rgb ( random . nextInt ( 2 5 6 ), Ġrandom . nextInt ( 2 5 6 ), Ġrandom . nextInt ( 2 5 6 )) ĊĠĠĠ Ġ} Ċ } Ċ