Fragmented Window Grid Pattern
lazarus / 39-Graphics

----------------------------------------------------------------------
Boleeman · 2025-07-13 05:55

Fragmented Window Grid Pattern


Adjust the size (rows/columns)


I could not set the number of random colors to the value of TSpinEdit
seN
(I get random colors but I should see only 1 color if seN:=1, 2 colors
if seN:=2, and so on)

----------------------------------------------------------------------
Dzandaa · 2025-07-13 10:53

Hi Eddie

Try this:

(quick change, no optimization)

B->

----------------------------------------------------------------------
Boleeman · 2025-07-13 12:47

Wow Dzandaa, it works now.

Interesting:  GenerateRandomFillColors(Max(seN.Value, 1),
Min(Max(seAlpha.Value, 0), 255));  in procedure TForm1.DrawScene;

Was going round in circles with a number of programs I was working on
and was getting frustrated with this one (getting random colors). Just
finished another animation program (after much stuffing around, Will
upload it now).

Thanks Dzandaa for that tweak. Your help was much appreciated.